usercheck.asp

来自「《网上图书订购系统》 1.后台数据库：SQL Server 2000 2.在」· ASP 代码 · 共 31 行

<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")
%>