ASP为什么验证不了用户啊????????

来源:百度知道 编辑:UC知道 时间:2024/05/26 10:58:06
<!--#include file="conn.asp"-->
<%
Dim s_rs,s_Sql,s_user
s_user=Request.form("s_user") '提取student_loing.asp页面的学号;
Set rs=Server.Createobject("adodb.recordset")
s_Sql="select * from student where s_user='"&s_user&"' "
s_rs.open s_Sql,connstr,1,1
If s_rs.eof and s_rs.eof then '判断学号是否存在
Response.write "<script language=javascript>alert('用户不存在');history.go(-1);</script>"
Response.End
Else
Session("s_user")=s_user '把学号写入session
Response.redirect("admin.asp")
End if
%>

改成
<!--#include file="conn.asp"-->
<%
Dim s_rs,s_Sql,s_user
s_user=Request.form("s_user") '提取student_loing.asp页面的学号;
Set s_rs=Server.Createobject("adodb.recordset")
s_Sql="select * from student where s_user='"&s_user&"'"
s_rs.open s_Sql,connstr,1,1
If s_rs.eof and s_rs.bof then '判断学号是否存在
Response.write "<script language=javascript>alert('用户不存在');history.go(-1);</script>"
Response.End
Else
Session("s_user")=s_user '把学号写入session
Response.redirect("admin.asp")
End if
%>

你把s_Sql="select * from student where s_user='"&s_user&"' " 打印出来看看sql语句有问题么
response.write(s_Sql)
response.end

s_Sql="select * from student where s_user="&s_user&""
这样写

Set rs=Server.Createobject("adodb.recordset"