asp如何对数据库进行验证账号密码是否正确 10
我这有很多asp文件,每个asp里面都要写验证账号密码是否正确可是我不想每个asp文件里面都写验证码密码是否正确的,我想单独写一个asp文件来验证,其他的asp文件来调用...
我这有很多asp文件,每个asp里面都要写验证账号密码是否正确
可是我不想每个asp文件里面都写验证码密码是否正确的,
我想单独写一个asp文件来验证,其他的asp文件来调用这个asp文件进行验证就可以
这是些的一段代码,就是写个asp文件来验证密码是否正确,其他asp文件来调用这个文件验证码是否正确
求不用每个asp文件都来写代码验证了
怎么弄
rs.open "select * from admin where user_name='" & user_name & "' and user_pass='" & user_pass & "'",con,1,3
if rs.bof and rs.eof then
rs.close
response.write("管理员帐号或管理员密码错误!")
response.end
else
rs.close
rs.open "select * from admin where user_name='" & user_name & "'",con,1,1
user_role1=rs("user_role")'权限
if user_role1 <> "0" then
response.write("抱歉您没有权限添加管理员")
response.End()
rs.close
end if 展开
可是我不想每个asp文件里面都写验证码密码是否正确的,
我想单独写一个asp文件来验证,其他的asp文件来调用这个asp文件进行验证就可以
这是些的一段代码,就是写个asp文件来验证密码是否正确,其他asp文件来调用这个文件验证码是否正确
求不用每个asp文件都来写代码验证了
怎么弄
rs.open "select * from admin where user_name='" & user_name & "' and user_pass='" & user_pass & "'",con,1,3
if rs.bof and rs.eof then
rs.close
response.write("管理员帐号或管理员密码错误!")
response.end
else
rs.close
rs.open "select * from admin where user_name='" & user_name & "'",con,1,1
user_role1=rs("user_role")'权限
if user_role1 <> "0" then
response.write("抱歉您没有权限添加管理员")
response.End()
rs.close
end if 展开
展开全部
建立两个 Session(),一个名称为 Adminuser,一个名称为Adminlevel,
Session("Adminuser") '在验证成功后,存入管理账户的用户名
Session("Adminlevel") '在验证成功后,存入管理账户的管理权限级别,如果需要的话
建立一个CkAdmin.asp
if session("Adminuser")="" then
response.Redirect("index.asp") '或者使用login.asp 登录页
end if
只要验证不成功,就返回到首页
Login.asp
<%
Session("Adminuser")=""
Session("Adminlevel")=""
%>
校验登录
set rs=server.CreateObject("adodb.recordset")
sql="select * from admin where user_name='" & user_name & "' and user_pass='" & user_pass & "'"
con.open sql,1,3
if not (rs.bof and rs.eof) then '登录成功
Session("Adminuser")=rs("user_name")
Session("Adminlevel")=rs("Adminlevel") '如果有这个字段
response.Redirect("Manage_index.asp") '验证成功后,跳转到需要的页面
else
'这里就是验证失败啦.'
response.Redirect("index.asp") '或者使用login.asp 登录页
end if
rs.close
rs=nothing
最后,,在每个需要验证是否管理员登录的页面前边..
<!--#INCLUDE FILE="./CkAdmin.asp"--> '注意文件路径,使用相对路径.'
Session("Adminuser") '在验证成功后,存入管理账户的用户名
Session("Adminlevel") '在验证成功后,存入管理账户的管理权限级别,如果需要的话
建立一个CkAdmin.asp
if session("Adminuser")="" then
response.Redirect("index.asp") '或者使用login.asp 登录页
end if
只要验证不成功,就返回到首页
Login.asp
<%
Session("Adminuser")=""
Session("Adminlevel")=""
%>
校验登录
set rs=server.CreateObject("adodb.recordset")
sql="select * from admin where user_name='" & user_name & "' and user_pass='" & user_pass & "'"
con.open sql,1,3
if not (rs.bof and rs.eof) then '登录成功
Session("Adminuser")=rs("user_name")
Session("Adminlevel")=rs("Adminlevel") '如果有这个字段
response.Redirect("Manage_index.asp") '验证成功后,跳转到需要的页面
else
'这里就是验证失败啦.'
response.Redirect("index.asp") '或者使用login.asp 登录页
end if
rs.close
rs=nothing
最后,,在每个需要验证是否管理员登录的页面前边..
<!--#INCLUDE FILE="./CkAdmin.asp"--> '注意文件路径,使用相对路径.'
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询