usercheck.asp

图书管理系统的所有程序

<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<!--#include file="conn/conn.asp"-->
<%
response.Expires=-1
username1=trim(request("username"))
userpass1=trim(request("userpass"))
if username1="" or userpass1="" then
   session("passed1")=""
   session("msg1")="用户ID和密码不能为空"
else
   set rs=server.CreateObject("adodb.recordset")
   
   strsql="select * from tb_member where userID='"&username1&"'"
   rs.open strsql,conn,3,3
   if rs.eof then
      session("passed1")=""
      session("msg1")="用户ID不存在"
   else
      if rs("PassWord")<>userpass1 then
	    session("passed1")=""
		session("msg1")="密码错误"
	  else
	     session("passed1")=true
		 session("msg1")=""
		 session("ID1")=username1
		 session("username1")=rs("UserName")
	  end if
	end if
end if
response.Redirect("userlogin.asp")
%>