怎么用ASP实现用户权限问题，让不同的用户登录到不同的页面，请教高手！ - ASP技术论坛

楼主

已结贴√ 问题点数：0 回复次数：1

怎么用ASP实现用户权限问题，让不同的用户登录到不同的页面，请教高手！

我要做一个用户登录系统，我想让不同的用户登录到不同的页面里，比如用户名为1的进入1.asp，用户名为2的进入2.asp 以此类推。请高手帮忙修改一下我的登录代码，谢谢！

数据库有一个zhi_rui_e_manage表用来放用户信息：

图片附件: 游客没有浏览图片的权限，请登录或注册

表中的字段如下：

图片附件: 游客没有浏览图片的权限，请登录或注册

我的登录页面Login.asp的代码如下：

程序代码：

<!--主要是使随机出现的产品数字随机-->
<%
Response.Expires = -1
Response.ExpiresAbsolute = Now() - 1
Response.Expires = 0
Response.CacheControl = "no-cache"
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.>
<html xmlns="http://www.>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>管理员登陆</title>
<link href="images/style_left.css" type=text/css rel=stylesheet>
<SCRIPT type=text/javascript>
    <!--
    if(self!=top){top.location=self.location;}
    function ShowSoftKeyboard(obj)
    {
        if((typeof(CheckLoaded) == "function"))
        {
            password1 = obj;
            showkeyboard();
            Calc.password.value = '';
        }
        else
        {
            return false;
        }
    }
    // -->
    </SCRIPT>

<SCRIPT src="images/softkeyboard.js" type=text/javascript></SCRIPT>
</head>
<BODY id=loginbody>
<form name="AdminLogin" method="post" action="Cklogin.asp">
<DIV id=adminboxall>
<DIV class=adminboxtop></DIV>
<DIV id=adminboxmain>
<div style=" margin-left:380px; margin-top:5px;">
<INPUT id=IbtnEnter style="BORDER-TOP-WIDTH: 0px; BORDER-LEFT-WIDTH: 0px; BORDER-BOTTOM-WIDTH: 0px; WIDTH: 76px; HEIGHT: 26px; BORDER-RIGHT-WIDTH: 0px" type=image src="images/admin_menu.gif" name=IbtnEnter>
</div>
</DIV>
<DIV class=adminboxbottom>
<DIV id=login>
<UL>
  <LI class=text>用户名：<BR>
  <DIV class=box1><input class=smallInput name="LoginName" type="text" id="LoginName" Style="width:80px;"></DIV></LI>
  <LI class=text>密 码：<BR>
  <DIV class=box2><input class=smallInput name="LoginPassword" type="password" id="LoginPassword" Style="width:80px;"></DIV></LI>
  <LI class=text>验证码：<BR>
  <DIV class=box4>
   <input class=smallInput name="code" type="text" id="code" size="8" maxlength="5"/>&nbsp;<img src="Code.asp" border="0" alt="看不清楚请点击刷新验证码" onClick="this.src='code.asp'"/>
  </DIV></LI>
  </UL>
  </DIV>
  </DIV>
  </DIV>
</FORM>
</BODY>
</html>

输入用户名，密码后转跳到Cklogin.asp页面进行验证，代码如下：

程序代码：

<!--#include file="Conn.asp"-->
<!--#include file="md5.asp"-->
<%
dim LoginName,LoginPassword,AdminName,Password,AdminPurview,Working,UserName,rs,sql,mycode
LoginName=trim(request.form("LoginName"))
LoginPassword=Md5(request.form("LoginPassword"))
mycode = trim(request.form("code"))
set rs = server.createobject("adodb.recordset")
sql="select * from zhi_rui_E_manage where AdminName='"&LoginName&"'"
rs.open sql,conn,1,3

if rs.eof then
   response.write "<script language=javascript> alert('管理员名称不正确，请重新输入。');location.replace('Login.asp');</script>"
   response.end
else
   AdminName=rs("AdminName")
   Password=rs("Password")
   AdminPurview=rs("AdminPurview")
   Working=rs("Working")
   UserName=rs("UserName")
end if

if LoginPassword<>Password then
   response.write "<script language=javascript> alert('管理员密码不正确，请重新输入。');location.replace('Login.asp');</script>"
   response.end
end if 

if mycode<>Session("getcode") then
   response.write "<script language=javascript> alert('您输入验证码错误，请返回重新登录！');location.replace('Login.asp');</script>"
   response.end
end if

if Working=0 then
   response.write "<script language=javascript> alert('不能登录，此管理员帐号已被锁定。');location.replace('Login.asp');</script>"
   response.end
end if

if LoginName=AdminName and LoginPassword=Password then
   rs("LastLoginTime")=now()
   rs("LastLoginIP")=Request.ServerVariables("Remote_Addr")
   rs.update
   rs.close
   set rs=nothing 
   session("ZhiRui_Admin")=AdminName
   session("ZhiRui_User")=UserName
   Session("ZhiRui_Ck")="ZhiRuiAdmin"
   Session.Timeout = 60
   session("AdminPurview")=AdminPurview
   Response.Cookies("ZhiAdmin")=""
   '==================================
   dim LoginIP,LoginTime,LoginSoft
   LoginIP=Request.ServerVariables("Remote_Addr")
   LoginSoft=Request.ServerVariables("Http_USER_AGENT")
   LoginTime=now()
   '====================================
   set rs = server.createobject("adodb.recordset")
   sql="select * from zhi_rui_E_manageLog"
   rs.open sql,conn,1,3
   rs.addnew
   rs("AdminName")=AdminName
   rs("UserName")=UserName
   rs("LoginIP")=LoginIP
   rs("LoginSoft")=LoginSoft
   rs("LoginTime")=LoginTime
   rs.update
   rs.close
   set rs=nothing
   '========================================
   response.redirect "index.asp"
   response.end
end if
%>
</BODY>
</html>

请高手帮忙修改，谢谢！