Question

ASP用户级别分类，跳转

代码如下，想添加用户级别USER,VIP并分别跳转至USER.ASP,VIP.ASP
<!--#include file="conn.asp"-->
<%
go=trim(request.querystring("go"))
username=trim(request.form("username"))
password=cstr(Request.form("password"))
if go="go" then
set rs=server.createobject("adodb.recordset")
sql="select * from user where username='"&username&"'and password='"&password&"'"
rs.open sql,conn,1,1
if not rs.eof then
session("coldriver_user")="管理员"
response.redirect "admin.asp" '登陆后转入的页面。
else
response.write"<SCRIPT language=JavaScript>alert('密码错误或用户名错误！');javascript:history.go(-1);</SCRIPT>"
end if
end if
%>
<form method="post" action="?go=go">
<TABLE borderColor=#6699cc cellPadding=4 width="100%" border=1>
<tr>
<td align=right width="10%" >管理名称:</td>
<td align=left width="10%" ><input name="username" type="text"></td>
</tr>
<tr>
<td align=right width="10%" >登录密码:</td>
<td align=left width="10%" ><input name="password" type="password"></td>
</tr>
<tr>
<td colspan="2" align=middle align=right width="10%" ><input type="submit" name="submit" value=" 登 陆 ">
<input type="reset" name="submit" value=" 重 置 "></td>
</tr>
</TBODY>
</form>
</BODY>
</HTML>

conn.asp:
<%
on error resume next
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("data.mdb")
if err then
err.clear
set conn = Nothing
response.write "数据库连接出错，请检查conn.asp中的连接字符串。"
response.end
end if
function CloseDB
Conn.Close
set Conn=Nothing
End Function
%>
数据库：
数据库截图

Answer 1

在以下代码中加入判断条件
if not rs.eof then
if session("coldriver_user")="管理员" then
response.redirect "admin.asp" '登陆后转入的页面。
elseif session("coldriver_user")="user" then
response.redirect "user.asp" '登陆后转入的页面。
elseif session("coldriver_user")="vip" then
response.redirect "vip.asp" '登陆后转入的页面。
else
response.write"<SCRIPT language=JavaScript>alert('密码错误或用户名错误！');javascript:history.go(-1);</SCRIPT>"
end if
end if