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=10session对象的超时值
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://www.z6688.com/
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!
