一个登陆窗口的记数判断登录(有用哦),了解"IF"语句的用应

类别:Asp 点击:0 评论:0 推荐:

<%
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" -->
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
<%
'session.timeout=10'session对象的超时值
'on error resume next
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("examination.mdb")

Set rs = Server.CreateObject("ADODB.Recordset")
%>
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 <%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
%>

本文地址:http://com.8s8s.com/it/it7887.htm