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

<!--#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
if rs("权限")="VIP" then //权限为你数据表裏面识别权限的列名
response.redirect VIP.asp
else if rs("权限")="USER"
response.redirect USER.asp
end if
end if
session("coldriver_user")="管理员"
response.redirect "admin.asp" '登陆后转入的页面。
else
response.write"<SCRIPT language=JavaScript>alert('密码错误或用户名错误！');javascript:history.go(-1);</SCRIPT>"
end if
//end if 你此处多了个END IF 如果不是else if 就没必要在else之後接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
%>

追问

限为你数据表裏面识别权限的列名
“裹面”是什么

追答

额...繁体字啦，就是说你数据表里边的新建一个列名，值为1或0来判断是否是VIP用户

追问

为什么显示错误类型500,给我你QQ或邮箱,给你发过去完全版的登陆系统

追答

不好意思，我的这个是繁体系统，你给的那包打开後中文全乱码了，你是如何判断我说的那个权限问题的？

追问

就是登上服务器后就显示错误500啊

追答

登录上後显示错误500？如果直接访问你需要登录的界面有没有问题，然後你把错误信息在网上收一下吧，我刚看了下貌似是IIS的问题，我记得以前弄这个的时候也碰到过有个网页明明没问题可就是打不开，你看看是不是你的碰到的

Answer 2

当 用户名是 VIP 的时候 if user="vip" then 跳转到 vip界面 else 否则的话跳转到普通页面 endif