为什么只有一个会员能登陆的问题

xingon 2004-03-19 09:02:07

问题是只有一个会员能登陆,其他会员却提示"您没有权限",大家看下出错在什么地方

这个是登陆验证页面chk.asp

<%
username=trim(request("username"))
pass=trim(request("pass"))
if username="" or pass="" then
%>
<script>alert("请完整输入登陆信息");window.location.href="login.asp";</script>
<%
else
%>
<%
set rs=server.createobject("adodb.recordset")
sql="select * from [menber] where username='"&username&"'"
rs.open sql,conn,1,1
if rs.eof then
%>
<script>alert("此用户还没有注册");window.location.href="login.asp";</script>

<%
elseif pass<>rs("pass") then
%><script>alert("密码不正确");window.location.href="login.asp";</script>
<%
else
session("m")=rs("username")
response.redirect("ok.asp")
conn.close
set conn=nothing
rs.close
set rs=nothing
end if
end if
%>
这个是登陆后的控制面版

<%
set rs=server.createobject("adodb.recordset")
sql="select * from menber"
rs.open sql,conn,1,2
if session("m")<>rs("username") then
%>
<script>alert("您没有该权限或者您还没有登陆");window.location.href="login.asp";</script>
<%
end if
%>
<%
if session("m")=rs("username") then
%>

<body>

<div align="center">
<table border="1" width="800" bordercolordark="#FFFFFF" cellspacing="0" cellpadding="0" height="332">
<tr>
<td width="100" height="17">我的控制台</td>
<td width="694" rowspan="2" height="330" valign="top">
<div align="center">
<center>
<table border="0" width="677" height="327" cellspacing="0" cellpadding="0">
<tr>
<td width="675" height="27">
<p align="center">欢迎您
<%
=rs("username")
%>同学</p>
</td>
</tr>
<tr>
<td width="675" height="300" valign="top">
<form method="POST" action="">

<p align="center">您的初始密码为<input type="text" name="pass" size="20" value="<% =rs("pass") %>"></p>
<p align="center"><input type="submit" value="修改" name="B1"><input type="reset" value="取消" name="B2"></p>
</form>
<p>　</td>
</tr>
</table>
</center>
</div>
</td>
</tr>
<tr>
<td width="100" height="311" valign="top"><a href="login.asp?action=no">退出控制台</a></td>
</tr>
</table>
</div>
<%
end if
%>

</body>

...全文

39 3 打赏收藏转发到动态举报

写回复

用AI写文章

3 条回复

切换为时间正序

请发表友善的回复…

发表回复

xingon 2004-03-19

打赏
举报

真的很晕,现在OK了,不能用这样验证
session<>rs("username")
学到一招
能留下您的QQ吗,学习讨教下哈

cjf1009 2004-03-19

打赏
举报

set rs=server.createobject("adodb.recordset")
sql="select * from menber"
rs.open sql,conn,1,2 //这样的话，是取出所有用户记录，且指针在第一条。
if session("m")<>rs("username") then //这里是判断session中存的值是否是这第一条记录，否则……

所以，你只有这第一条记录的的用户可以用。
懂了？

cjf1009 2004-03-19

打赏
举报

<%
set rs=server.createobject("adodb.recordset")
sql="select * from menber"
-------
//这里：sql="select * from [menber] where username='"&username&"'"
-------
rs.open sql,conn,1,2
if session("m")<>rs("username") then
%>
<script>alert("您没有该权限或者您还没有登陆");window.location.href="login.asp";</script>

看不懂你这段程序是干吗的。按你的话，确实只有一个用户登陆后不提示您“没有该权限或者您还没有登陆"

如果要验证用户是否已登陆，可以这样：
if Trim(session("m"))="" then
%>
<script>alert("您没有该权限或者您还没有登陆");window.location.href="login.asp";</script>
<%else
sql="select * from [menber] where username='"&session("m")&"'"
%>

开始显示用户个人信息。