admincheck.asp

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

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