数据库表 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