📄 admincheck.asp
字号:
<!--#include file="conn.asp"--><!--#include file="../inc/md5.asp"--><!--#include file="../inc/fun.asp"-->
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel=stylesheet type=text/css href=../inc/Comm.css>
<body topmargin="0" leftmargin="0">
<title>管理员登陆</title>
<body bgcolor="#ABCAFE">
<%dim action,lgname,lgpwd,adminid,login,lgpwdmd5,wrongnum
wrongnum=checknum(session(prefix&"wrongnum"))
if isnull(wrongnum) or wrongnum="" then wrongnum=0
if wrongnum>=3 then
%>
<table align="center" border="2" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="500">
<tr>
<td class=td1 width="100%" height="30"> 管理员登陆：</td>
</tr>
<tr>
<td class=td2 width="450" bgcolor="#FFFFFF">
<p style="margin: 5"><br>对不起。你已经连续3次输入错误，现在不能登陆。<br><br></td>
</tr>
</table><%
response.end
end if
action=request.querystring("action")
select case action
case""%>
<br>
<form method="POST" action="admincheck.asp?action=check" style='margin:0'><table width='500' border='1' bordercolordark=#aCd7fF bordercolorlight=#145AA0 cellspacing='0' cellpadding='3' align='center'><tr bgcolor='#73B2EF'><th height='25' align='center'><strong> 论坛后台管理登陆</strong></th></tr><tr><td align='center' bgcolor='#9CC7EF'><table width='100%' height='118' border='0' cellpadding='0' cellspacing='0'><tr><td width='40%' align='right'>用 户 名：</td><td width='60%'><input name='lgname' type=text size='22'></td></tr><tr><td align='right'>管理密码：</td><td><input name='lgpwd' type=password size='22'></td></tr><tr><td align='right'>验 证 码：</td><td><input type=text name='adminid' size=10> <img align='absmiddle' src=../Inc/Code.asp ></td></tr></table> </td></tr><tr bgcolor='#73B2EF'><th height='25' align='center'><input type=submit class=submit value=' 提 交 '></td></tr></table></form>
</body>
<%case"check"
login=true
lgname=Replace(Request.Form("lgname"),"'","")
lgpwd=Replace(Request.Form("lgpwd"),"'","")
dim rec,passpwd
function pname(str)
pname=true
if Instr(str,"=")>0 or Instr(str,"%")>0 or Instr(str,chr(32))>0 or Instr(str,"?")>0 or Instr(str,"&")>0 or Instr(str,";")>0 or Instr(str,",")>0 or Instr(str,"'")>0 or Instr(str,".")>0 or Instr(str,chr(34))>0 or Instr(str,chr(9))>0 or Instr(str,"⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -