怎么会这样呢？各位高手帮我看一看

[iwo99]

各位为高手我写了一个用户校验程序，源码如下，我不知道为什么，当输入用户名对，密码错时会显示错误提示，但是输入用户名错时就出现“HTTP 500 - 内部服务器错误
”我不知道怎么搞好！各位高手帮一下我！


<!-- #include file="conn.asp"-->

<%
username=request("username")
userpass=request("password")
sql="select * from users where username='"&username&"'"

set rs=conn.execute(sql)
If username = rs("UserName") and userpass = rs("password") Then
session("user")=username
session("pass")=userpass
response.redirect "main.asp"
Else
response.write "<center><font size=5 color=red>你的账号或密码不符，请检查一下！</font>"
rs.close
conn.close
set rs= nothing
set conn= nothing
End If
%>

[flyingghost]

先判断用户名查询后rs中有没有记录！！！没有的话你使用当然会出错了！
if not rs.eof then
''''判断密码
else
response.write "用户名不存在！"
end if

[heman2000]

<!-- #include file="conn.asp"-->

<%
username=trim(request("username"))
userpass=trim(request("password"))
if username="" or userpass="" then
response.write"各填充项不能为空！"
else
sql="select * from users where username='"&username&"'"
set rs=conn.execute(sql)
If userpass = rs("password") Then
session("user")=username
session("pass")=userpass
response.redirect "main.asp"
Else
response.write "<center><font size=5 color=red>你的账号或密码不符，请检查一下！</font>"
rs.close
conn.close
set rs= nothing
set conn= nothing
End If
end if
%>

如果conn.asp没问题的话，应该是没问题。
检查一下WEB服务器环境。

[free_doctor]

是不是redirect的那个页面有问题呀

[heman2000]

“是不是redirect的那个页面有问题呀 ”
是呀，这也有可能的呀

[luket]

你的用户名或密码是不是有特殊字符.你可以这样看看:把出错文件里面的代码全部剪掉然后随便输入几个字符如"aaa"然后刷新,这时网页应该显示"aaa"然后把刚才的代码又重新粘贴过来.然后在刷新,一般情况下会显示出出错的地方.可能说得很罗嗦,对这种不出现提示的错误我一般就是这样干的.

[IT写轮眼]

当用户名不对时，rs为空，If username = rs("UserName") and userpass = rs("password") Then .....就会出错，应该先判断rs是否为空
<%
username=request("username")
userpass=request("password")
sql="select * from users where username='"&username&"'"

set rs=conn.execute(sql)

if not rs.eof then
If username = rs("UserName") and userpass = rs("password") Then

session("user")=username
session("pass")=userpass
conn.close
set rs= nothing
set conn= nothing
response.redirect "main.asp"

Else

response.write "<center><font size=5 color=red>你密码不符，请检查一下！</font>"

conn.close
set rs= nothing
set conn= nothing
End If
else
response.write "用户名不存在,请注册！"

end if

%>

[iwo99]

各位高手我明白了是因为我没有判断rs是否为空
多谢你们！

[jhysky]

在rs("UserName") 和rs("password") 前家Trim
即：
Trim(rs("UserName"))和Trim（rs("password")）

[jhysky]

最好在接收值的时后也加Trim

[yigenhuochai]

先检测记录集是否为空

[qisanyou]

<%@ Language=VBScript %>
<!--#include file=conn.asp -->
<%
username=trim(Request.Form("username"))
password=trim(Request.Form("password"))

username=replace(username,"'","''")
password=replace(password,"'","''")

set rs=server.CreateObject ("ADODB.RecordSet")
rs.Source="select id from Admin where username='" & username & "' and password='" & password & "'"
rs.Open rs.Source,conn,1,1

if not rs.EOF then
session("username")=username
session("password")=password
Response.Redirect "main.asp"
else
Response.Write "请核对您的用户名和密码！"
Response.End
end if
%>

[lemontree197977]

你将conn.asp的源码贴出来，

再将错误信息也贴出来！

[iwo99]

各位高手的办法我都试过了，还是不行啊！我现在将conn.asp的源码和错误信息也贴出来

<%
set conn=server.createobject("adodb.connection")
set rs=server.createobject("adodb.recordset")
conn.open "driver={SQL Server};Server=192.168.0.2;uid=sa;pwd=;database=book"
%>

该页无法显示
您要访问的页有问题，无法显示该页。

--------------------------------------------------------------------------------

请尝试以下操作:

打开 192.168.0.99 主页，然后查找指向您感兴趣信息的链接。
单击刷新按钮，或以后再试。

单击搜索，寻找 Internet 上的信息。
也可查看相关站点列表。




HTTP 500 - 内部服务器错误
Internet Explorer

注明 ：192.168.0.2 是服务器地址
192。168。0。99 是后添加ip地址

[iwo99]

错误信息是这样的
错误 '80020009'
发生意外。

/identity.asp，行9

[lazywolf]

<!-- #include file="conn.asp"-->

<%
username=request("username")
userpass=request("password")
sql="select * from users where username='"&username&"'"
set rs=conn.execute(sql)
if not rs.eof
If username = rs("UserName") and userpass = rs("password") Then
session("user")=username
session("pass")=userpass
response.redirect "main.asp"
response.end
end if
end if
response.write "<center><font size=5 color=red>你的账号或密码不符，请检查一下！</font>"
%>

[lemontree197977]

If （username = rs("UserName")） and （userpass = rs("password")） Then