admincheck.asp

图书管理系统的所有程序

<!--#include file="conn/conn.asp"-->
<%
response.Expires=-1
username1=trim(request("username"))
userpass1=trim(request("userpass"))
'response.write 41
'response.End()
if username1="" or userpass1="" then
   session("passed")=""
   session("msg")="请您先登录再进来！"
   'response.Redirect("userlogin.asp")
else
   set rs=server.CreateObject("adodb.recordset")
   
   strsql="select * from tb_operator where name='"&username1&"'"
   rs.open strsql,conn,3,3
   if rs.eof then
      session("passed")=""
      session("msg")="管理员名称不存在"
   else
      if rs("password")<>userpass1 then
	    session("passed")=""
		session("msg")="密码错误"
	  else
	     session("passed")=true
		 session("msg")=""
		 session("username")=rs("name")
		 'response.Redirect("userlogin.asp")
	  end if
	end if
end if
response.Redirect("adminlogin.asp")
%>