📄 index.asp

📁 OA最新破解2008版全新破解希望大家用着舒服
💻 ASP
字号:
<!--#Include File="conn.asp" -->
<!--#Include File="md5.asp" -->
<%
'============================================================
'基点广告系统--COAD
'文件名：index.asp
'版  本：1.0
'编写日期：2004-3-11
'------------------------------------------------------------
'Copyright (C) 2002-2004 CECEN.net. All rights reserved.
'提供: http://www.CECEN.net, 制作：http://www.CECEN.net
'============================================================
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>COAD System</title>
<link href="COAD.css" rel="stylesheet" type="text/css">
<SCRIPT LANGUAGE="JavaScript" src="images/js.js"></SCRIPT>
</head>

<body>
<%
  Response.Expires = -1  
  Response.ExpiresAbsolute = Now() - 1  
  Response.cachecontrol = "no-cache" 
Dim s
randomize timer
s=Int((8999)*Rnd +1000)

If Request.Form("denglu") <> "" Then
	Call chkadmin()
Else
	If Request.Cookies("donggan")("adadmin")="adminmaster" Then Response.Cookies("donggan")("adadmin")=""
	Call main()
End If

Sub main()%> 
<br>
<table width="300" border="0" align="center" cellpadding="1" cellspacing="1" bgcolor="f1f1f1">
  <FORM method="post" action="index.asp" name="loadad" onsubmit="return ckinput()"> 
    <tr>
      <td height="30" align="center" bgcolor="#990000"><font color="ffffff"><b>管理员登陆</b></font></td>
    </tr>
    <tr>
      <td><br>
          <table  width="250" border="0" align="center" cellpadding="1" cellspacing="1" bgcolor="#CCCCCC">
            <tr bgcolor="e6e6e6" align="left">
              <td width="70" height="30" align="right" >管理员：</td>
              <td width="180" height="30" align="center"><input name="username" type="text" size="12" class="input1"></td>
            </tr>
            <tr bgcolor="e6e6e6" align="left">
              <td height="30" align="right">密&nbsp;&nbsp;码：</td>
              <td align="center"><input name="userpass" type="password" size="12" class="input1"></td>
            </tr>
            <tr bgcolor="e6e6e6" align="center">
              <td height="30" align="right">验证码：</td>
              <td><input name="secruity" type=text class="input1" style="ime-mode:disabled" onkeypress="return Num();" size="5" maxlength="4"> [<b><font color="#990000"><%=s%></font></b>]<input maxlength=20 name=checksecruity size=12 type=hidden value=<%=s%>></td>
            </tr>
            <tr bgcolor="e6e6e6" align="center">
              <td height="40" colspan="2"><input name="denglu" type="Submit" value="登 陆" class="input1"></td>
            </tr>
          </table>
          <br></td>
    </tr>
  </form>
</table>
<%
End Sub 

Sub chkadmin() 
	username=replace(trim(Request("username")),"'","‘") 
	userpass=MD5(replace(trim(Request("userpass")),"'","‘"))    
	secruity=replace(trim(Request("secruity")),"'","‘") 
	checksecruity=replace(trim(Request("checksecruity")),"'","‘") 

	Set rs=Server.Createobject("adodb.recordset") 
	sql="select * from [config] where userpass='"&userpass&"' AND username='"&username&"'" 
	rs.open sql,conn,1,1 
	If NOT(rs.bof AND rs.eof) AND secruity=checksecruity Then  
			Response.Cookies("donggan")("adadmin")="adminmaster" 
			Response.Redirect "list.asp"
	Else
		Response.Write "<script>alert('登陆失败!请检查输入是否正确.');history.back();</script>"
	End If 
 
	rs.close     
End Sub  
 
Set rs=nothing 
conn.close 
Set conn=nothing 
%> 
</body>
</html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -