登录验证一个奇怪的问题,RS("字段名")无法读取到数据,返回值为空,走过路过的都来看看啊
先贴代码:
<%
dim username,password
username=trim(request.form("username"))
password=trim(request.form("pswd"))
if instr(username,"&")>0 or instr(username,"=")>0 then
response.write("<SCRIPT LANGUAGE=javascript>history.back(1);alert('用户名包含非法字符!');</SCRIPT>")
response.end
end if
if instr(password,"&")>0 or instr(password,"=")>0 then
response.write ("<SCRIPT LANGUAGE=javascript>history.back(1);alert('密码包含非法字符!');</SCRIPT>")
response.end
end if
if username="" or password="" then
response.write ("<SCRIPT LANGUAGE=javascript>history.back(1);alert('用户名和密码不能为空!');</SCRIPT>")
response.end
end if
%>
<!--#include file="include/conn.asp"-->
<%
dim sqlstr
sqlstr="select * from PSI_operator where username= '" & username & "'"
Set Rs=conn.Execute(sqlstr)
If (Rs.Eof) then
conn.close
response.write ("<SCRIPT LANGUAGE=javascript>alert('登录失败,该用户名不存在!');</SCRIPT>")
response.end
elseif password<>Rs("pswd") then
conn.close
response.write ("<SCRIPT LANGUAGE=javascript>alert('登录失败,密码不正确!');</SCRIPT>")
response.end
else
response.write ("<SCRIPT LANGUAGE=javascript>alert('登录成功!');</SCRIPT>")
response.end
conn.close
end if
%>
conn.asp内容:
<%
dim conn
Set conn = Server.CreateObject("ADODB.Connection")
conn.open"Driver={SQL Server};Server=(Local);UID=sa;PWD=;database=PSI;"
%>
如果是数据库内不存在的用户,能提示该用户名不存在,可只要是数据库内存在的用户,总是提示密码错误,我alert了一下rs("pswd"),没有对话框弹出,说明返回的值为空,非常郁闷,请大家来看看