数据库表 user表 中,username(用户名) pass(密码) type(超级管理员、高级发文者) cname(单位名称)登录页index.asp<%if request.Form("submit")="登陆系统" thenuser=trim(request.Form("uname"))pass=ucase(md5(request.Form("pass")))if request.Form("uname")="" or request.Form("pass")="" thenresponse.Write alert("错误!\n你未填写 用户名 或 密码。\n请重新填写。","index.asp")elsesql="select * from user where username='"&user&"' and pass='"&pass&"'"set rs=conn.execute(sql)if rs.eof thenresponse.Write alert("错误的用户名 或 密码!\n请重新检查,用户名或密码是否填写正确!","index.asp")elsesession("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 ifrs.closeend ifend ifif request.QueryString("action")="q" thensession("user")=""session("pass")=""session("type")=""session("cname")=""session("uid")=""response.Write alert("退出成功!","index.asp")end if%>想实现 超级管理员登录成功后跳转到admin/index.asp,其他用户跳转到user/index.asp
添加回答
举报
0/150
提交
取消