chkadmlogin.asp

来自「ASP写的在线考试系统」· ASP 代码 · 共 48 行

<%n=0
adminID=Request("adminID")
password=Request("password")
if adminID="" then %>

<script language=vbscript>  
  		MsgBox "错误：请输入管理员用户名！"  
  		location.href = "javascript:history.back()"  
	  </script> 
<%elseif password="" then%>

<script language=vbscript>  
  		MsgBox "错误：请输入你的密码！"  
  		location.href = "javascript:history.back()"  
	  </script> 
<%end if%>
 <!--#include file="connect.asp" -->
 <%rs.Open "Select * From 管理 where adminID='" &adminID&"'", conn, 3,3%>
 <% if rs.bof or rs.eof then%>
    
        <script language=vbscript>  
  			MsgBox "错误：该用户名不存在，请确认你是管理员！"  
  			location.href = "javascript:history.back()" 
	  		</script> 
<%  elseif rs("password")<>password then%>
    
<%       if rs("登陆次数")>3 then %>
        <script language=vbscript>  
  		MsgBox "错误：登录次数太多!系统将关闭!"  
  		location.href="javascript:window.close()" 
	    </script> 
         <%else %><script language=vbscript>  
  			MsgBox "<%'=rs("登陆次数")%>错误：该密码不正确，请确认你是管理员！"  
  			location.href = "javascript:history.back()" 
	  		</script> 
         <%rs("登陆次数")=rs("登陆次数")+1
     
         rs.update
         end if
else
rs("登陆次数")=0
rs.update 
session("logstatus")=1 '记录登陆状态
response.redirect "admin.asp"
end if   
conn.close
set rs=nothing%>