admincheck.asp

完美政府版,正版网站解决方案

<!--#include file="AdminConn.asp"--><!--#include file="../inc/md5.asp"--><meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel=stylesheet type=text/css href=pic/css.css>
<style type="text/css">
<!--
.style1 {
	font-size: 10.5pt;
	font-weight: bold;
}
body {
	background-color: #FFFFFF;
}
.STYLE3 {color: #0000FF}
.STYLE4 {color: #000000}
-->
</style>
<title>完美设计.完美政府网站管理系统--政务论坛管理员登陆</title>

<%
function checknum(str)
if isnull(str) or str=""  then
exit function
else
if not isnumeric(str) then
response.write"<center>非法操作导致程序中止!</center>"
response.end
else
checknum=int(str)
end if
end if
end function
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" background="Pic/lbg.gif">&nbsp;<img border="0" src="Pic/home.gif"> 管理员登陆：</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""%>
<form method="POST" action="admincheck.asp?action=check">
<div align="center"><br><br><br><br>
<table width="719" height="318" border="0" align=center cellpadding="0" cellspacing="0" background="../../IMAGES/login.gif">
<tr>
<td  height="64" colspan="2" align="center"><font color="#000000">&nbsp;
  <p></font></td>
</tr>
<tr>
<td  height="58" colspan="2" align="center"><span class="style1"></span></td>
</tr>
<tr>
<td width="270" height="176" >
</td>
<td width="449" height="176" align="left" valign="top" ><div align="left"></div>
  <table border="0" width="100%" cellpadding="0" style="border-collapse: collapse" id="table2">
		<tr>
    <td width="157" height="28" align="right" >
      <b><font color="#000000">用户名:</font></b></td>
    <td  width="286" >
    <input type="text" name="lgname" size="20" style="font-size: 9pt; background-color:#EAEAF4"></td>
  </tr>
  <tr>
    <td width="157"  height="28" align="right" >
      <b><font color="#000000">密码：</font></b></td>
    <td width="286" >
    <input type="password" name="lgpwd" size="20" style="font-size: 9pt; background-color:#EAEAF4"></td>
  </tr>
  <tr>
    <td width="157"  height="28" align="right" >
      <b><font color="#000000">验证码：</font></b></td>
    <td width="286" ><input type="text" name="adminid" size="5" maxlength="4" style="font-size: 9pt; background-color:#EAEAF4"> <img src=../Code.asp></td>
  </tr>
<tr><td></td><td><div align="left">
  <input type="submit" value=" 登  陆 " name="B1" style="font-size: 9pt;  color: #000000; background-color: #EAEAF4; solid #EAEAF4" onMouseOver ="this.style.backgroundColor='#24F708'" onMouseOut ="this.style.backgroundColor='#EAEAF4'" title="登录中极速网站管理系统">
  &nbsp;  
  <input type="reset" value=" 重  置 " name="a1" style="font-size: 9pt;  color: #000000; background-color: #EAEAF4; solid #EAEAF4" onMouseOver ="this.style.backgroundColor='#24F708'" onMouseOut ="this.style.backgroundColor='#EAEAF4'" title="重新输入"> 
</div></td></tr>
		  </table></td>
</tr>
</table></div>
</form>
<%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,"