chklogin.asp

来自「查询,基于ASP的开发环境!数据库是ACCESS [成绩查询.rar] - 网上」· ASP 代码 · 共 29 行

<!--#include file=conn.asp-->
<%number1=request.form("number")
if number1="" then
response.redirect "error.asp?id=012"
response.end
end if
if request.form("passwd")="" then
response.redirect "error.asp?id=013"
response.end
end if
dim rs

PassWd1=request.form("PassWd")
set rs=server.CreateObject("ADODB.RecordSet")
rs.open "select * from admin1 where number='"&number1&"'",conn,1
if rs.eof then
response.redirect "error.asp?id=055"
response.end
end if
if passwd1<>rs("passwd") then
response.redirect "error.asp?id=031"
response.end
else
session("number")=RS("number")
session("Passwd")=rs("Passwd")
response.redirect "userlogin.asp"
end if
rs.close
%>