usercheck.asp

来自「这个是图书管理系统绝对是本人原著！而且多次调试能够用！」· ASP 代码 · 共 35 行

<%@ Language=VBScript %>
<%
	userno= trim(Request.Form("userno"))
	userpassword =trim(Request.Form("userpassword"))
	
	
	set conn = server.CreateObject("adodb.connection")
        connstr="DBQ="+server.mappath("bookstore.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
	conn.Open connstr
	set rs = server.CreateObject("adodb.recordset")
	sql = "select * from userinfo where userno='" & trim(userno)& "'" 
        rs.Open sql,conn
	
          if trim(request("userno"))="" then 
response.write "<center><b><font size=2 >请输入用户名和密码后，才能登录!<a href=login.asp>重新登录</a></font><b></center>"
response.end
end if
if not rs.eof then
   if userno=rs("userno") and userpassword<>rs("userpassword") then
   response.write "<center><b><font size=2>用户密码不正确，请重新输入!<a href=login.asp>重新登录</a></font><b></center>"
   end if
   if userpassword=rs("userpassword") and userno=rs("userno") then
    response.redirect "userchaxun.asp"
   end if
end if

if rs.eof then
response.write "<center><b><font size=2>用户不存在!<a href=login.asp>重新登录</a></font><b></center>"
end if
rs.close
conn.close
set rs=nothing
set conn=nothing

%>