数据库表 user表 中,username(用户名) pass(密码) type(超级管理员、高级发文者) cname(单位名称)
登录页index.asp
<%
if request.Form("submit")="登陆系统" then
user=trim(request.Form("uname"))
pass=ucase(md5(request.Form("pass")))
if request.Form("uname")="" or request.Form("pass")="" then
response.Write alert("错误!\n你未填写 用户名 或 密码。\n请重新填写。","index.asp")
else
sql="select * from user where username='"&user&"' and pass='"&pass&"'"
set rs=conn.execute(sql)
if rs.eof then
response.Write alert("错误的用户名 或 密码!\n请重新检查,用户名或密码是否填写正确!","index.asp")
else
session("user")=rs("username")
session("pass")=rs("pass")
session("type")=rs("type")
session("cname")=rs("cname")
session("uid")=rs("id")
response.Redirect "user/index.asp"
end if
rs.close
end if
end if
if request.QueryString("action")="q" then
session("user")=""
session("pass")=""
session("type")=""
session("cname")=""
session("uid")=""
response.Write alert("退出成功!","index.asp")
end if
%>
想实现 超级管理员登录成功后跳转到admin/index.asp,其他用户跳转到user/index.asp
尚方宝剑之说