⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 admin_login.asp

📁 个人网站比较简短
💻 ASP
📖 第 1 页 / 共 2 页
字号:
🔍
12 
<!--#include file="../Start.asp"-->
<!--#include file="../Include/PowerEasy.MD5.asp"-->
<%
'**************************************************************
' Software name: PowerEasy SiteWeaver
' Web: http://www.powereasy.net
' Copyright (C) 2005－2008 佛山市动易网络科技有限公司 版权所有
'**************************************************************

'强制浏览器重新访问服务器下载页面，而不是从缓存读取页面
'主要是使随机出现的图片数字随机
Response.Expires = -1
Response.ExpiresAbsolute = Now() - 1
Response.Expires = 0
Response.CacheControl = "no-cache"

If Action = "Login" Then
    Call ChkLogin
ElseIf Action = "Logout" Then
    Call Logout
Else
    Call main
End If
If FoundErr = True Then
    Call WriteErrMsg
End If
Call CloseConn

Sub main()
    Response.Write "<html>" & vbCrLf
    Response.Write "<head>" & vbCrLf
    Response.Write "<title>管理员登录</title>" & vbCrLf
    Response.Write "<meta http-equiv='Content-Type' content='text/html; charset=gb2312'>" & vbCrLf
    Response.Write "<link rel='stylesheet' href='Admin_Style.css'>" & vbCrLf
    Response.Write "<script language='JavaScript' src='../images/softkeyboard.js'></script>" & vbCrLf
    Response.Write "<script language=javascript>" & vbCrLf
    Response.Write "<!--" & vbCrLf
    Response.Write "var closestr=0;" & vbCrLf
    Response.Write "function SetFocus() {" & vbCrLf
    Response.Write "if(document.Login.UserName.value == '')" & vbCrLf
    Response.Write "  document.Login.UserName.focus();" & vbCrLf
    Response.Write "else" & vbCrLf
    Response.Write "  document.Login.UserName.select();" & vbCrLf
    Response.Write "}" & vbCrLf
    Response.Write "function CheckForm() {" & vbCrLf
    Response.Write "  if(document.Login.UserName.value == '') {" & vbCrLf
    Response.Write "    alert('请输入用户名！');" & vbCrLf
    Response.Write "    document.Login.UserName.focus();" & vbCrLf
    Response.Write "    return false;" & vbCrLf
    Response.Write "  }" & vbCrLf
    Response.Write "  if(document.Login.password.value == '') {" & vbCrLf
    Response.Write "    alert('请输入密码！');" & vbCrLf
    Response.Write "    document.Login.password.focus();" & vbCrLf
    Response.Write "    return false;" & vbCrLf
    Response.Write "  }" & vbCrLf
    Response.Write "  if (document.Login.CheckCode.value == '') {" & vbCrLf
    Response.Write "    alert ('请输入您的验证码！');" & vbCrLf
    Response.Write "    document.Login.CheckCode.focus();" & vbCrLf
    Response.Write "    return(false);" & vbCrLf
    Response.Write "  }" & vbCrLf
    If EnableSiteManageCode = True Then
        Response.Write "  if (document.Login.AdminLoginCode.value == '') {" & vbCrLf
        Response.Write "    alert ('请输入您的管理验证码！');" & vbCrLf
        Response.Write "    document.Login.AdminLoginCode.focus();" & vbCrLf
        Response.Write "    return(false);" & vbCrLf
        Response.Write "  }" & vbCrLf
    End If
    Response.Write "}" & vbCrLf
    Response.Write "function CheckBrowser() {" & vbCrLf
    Response.Write "  var app=navigator.appName;" & vbCrLf
    Response.Write "  var verStr=navigator.appVersion;" & vbCrLf
    Response.Write "  if(app.indexOf('Netscape') != -1) {" & vbCrLf
    Response.Write "    alert('友情提示：\n    你使用的是Netscape、Firefox或者其他非IE浏览器，可能会导致无法使用后台的部分功能。建议您使用 IE6.0 或以上版本。');" & vbCrLf
    Response.Write "  } else if(app.indexOf('Microsoft') != -1) {" & vbCrLf
    Response.Write "    if (verStr.indexOf('MSIE 3.0')!=-1 || verStr.indexOf('MSIE 4.0') != -1 || verStr.indexOf('MSIE 5.0') != -1 || verStr.indexOf('MSIE 5.1') != -1)" & vbCrLf
    Response.Write "      alert('友情提示：\n    您的浏览器版本太低，可能会导致无法使用后台的部分功能。建议您使用 IE6.0 或以上版本。');" & vbCrLf
    Response.Write "  }" & vbCrLf
    Response.Write "}" & vbCrLf
    Response.Write "function refreshimg(){document.all.checkcode.src='../Inc/CheckCode.asp?'+Math.random();}" & vbCrLf
    Response.Write "//-->" & vbCrLf
    Response.Write "</script>" & vbCrLf
    Response.Write "</head>" & vbCrLf
    Response.Write "<body>" & vbCrLf
    
    Response.Write "<table width='100%' height='100%' border='0' cellpadding='0' cellspacing='0'><tr><td>" & vbCrLf
    Response.Write "<form name='Login' action='Admin_Login.asp' method='post' target='_parent' onSubmit='return CheckForm();'>" & vbCrLf
    Response.Write "  <table width='100%' border='0' cellpadding='0' cellspacing='0'>" & vbCrLf
    Response.Write "    <tr>" & vbCrLf
    Response.Write "      <td width='219' height='164' background='images/Admin_Login1_0_02.gif'></td>" & vbCrLf
    Response.Write "      <td width='64' height='164' background='images/Admin_Login1_0_04.gif'></td>" & vbCrLf
    Response.Write "      <td valign='top' background='images/Admin_Login1_0_09.gif'><table border='0' cellpadding='0' cellspacing='0'>" & vbCrLf
    Response.Write "        <tr>" & vbCrLf
    Response.Write "          <td><table width='100%' border='0' cellpadding='0' cellspacing='0'>" & vbCrLf
    Response.Write "            <tr>" & vbCrLf
    Response.Write "              <td width='270' height='79' background='images/Admin_Login1_0_05.gif'></td>" & vbCrLf
    Response.Write "              <td width='150' height='79' background='images/Admin_Login1_0_06.gif'></td>" & vbCrLf
    Response.Write "              <td valign='top'><table width='100%' border='0' cellpadding='0' cellspacing='0'>" & vbCrLf
    Response.Write "                <tr>" & vbCrLf
    Response.Write "                  <td height='21'></td>" & vbCrLf
    Response.Write "                  <td></td>" & vbCrLf
    Response.Write "                </tr>" & vbCrLf
    Response.Write "                <tr>" & vbCrLf
    Response.Write "                  <td><input type='hidden' name='Action' value='Login' /><input type='image' name='Submit' src='Images/Admin_Login1_0_10.gif' style='width:50px; HEIGHT: 50px;' /></td>" & vbCrLf
    Response.Write "                  <td width='58' height='50' background='images/Admin_Login1_0_11.gif'></td>" & vbCrLf
    Response.Write "                </tr>" & vbCrLf
    Response.Write "              </table></td>" & vbCrLf
    Response.Write "            </tr>" & vbCrLf
    Response.Write "           </table></td>" & vbCrLf
    Response.Write "        </tr>" & vbCrLf
    Response.Write "        <tr>" & vbCrLf
    Response.Write "          <td height='85'><table border='0' cellspacing='0' cellpadding='0'>" & vbCrLf
    Response.Write "            <tr>" & vbCrLf
    Response.Write "              <td width='22' rowspan='2' valign='bottom'><img src='images/Admin_Login1_0_15.gif' alt='' /></td>" & vbCrLf
    Response.Write "              <td width='80'><font color='#ffffff'>用户名称：</font></td>" & vbCrLf
    Response.Write "              <td width='22' rowspan='2' valign='bottom'><img src='images/Admin_Login1_0_19.gif' alt='' /></td>" & vbCrLf
    Response.Write "              <td width='80'><font color='#ffffff'>用户密码：</font></td>" & vbCrLf
    If EnableSiteManageCode = True Then
        Response.Write "              <td width='22' rowspan='2' valign='bottom'><img src='images/Admin_Login1_admin.gif' alt='' /></td>" & vbCrLf
        Response.Write "              <td width='80'><font color='#ffffff'>管理认证码：</font></td>" & vbCrLf
    End If
    Response.Write "              <td width='22' rowspan='2' valign='bottom'><img src='images/Admin_Login1_0_23.gif' alt='' /></td>" & vbCrLf
    Response.Write "              <td colspan='2'><font color='#ffffff'>验证码：</font></td>" & vbCrLf
    Response.Write "            </tr>" & vbCrLf
    Response.Write "            <tr>" & vbCrLf
    Response.Write "              <td><input name='UserName' type='text' id='UserName' maxlength='20' style='width:70px; BORDER-RIGHT: #F7F7F7 0px solid; BORDER-TOP: #F7F7F7 0px solid; FONT-SIZE: 9pt; BORDER-LEFT: #F7F7F7 0px solid; BORDER-BOTTOM: #c0c0c0 1px solid; HEIGHT: 16px; BACKGROUND-COLOR: #F7F7F7' onmouseover=''this.style.background='#ffffff';'' onmouseout=''this.style.background='#F7F7F7''' onFocus='this.select();'></td>" & vbCrLf
    If EnableSoftKey = True Then
        Response.Write "              <td><input name='password'  type='password' maxlength='20' readOnly style='width:70px; BORDER-RIGHT: #F7F7F7 0px solid; BORDER-TOP: #F7F7F7 0px solid; FONT-SIZE: 9pt; BORDER-LEFT: #F7F7F7 0px solid; BORDER-BOTTOM: #c0c0c0 1px solid; HEIGHT: 16px; BACKGROUND-COLOR: #F7F7F7' onmouseover=''this.style.background='#ffffff';'' onmouseout=''this.style.background='#F7F7F7''' onFocus=""password1=this;showkeyboard();Calc.password.value=''""></td>" & vbCrLf
    Else
        Response.Write "              <td><input name='password'  type='password' maxLength='20' style='width:70px; BORDER-RIGHT: #F7F7F7 0px solid; BORDER-TOP: #F7F7F7 0px solid; FONT-SIZE: 9pt; BORDER-LEFT: #F7F7F7 0px solid; BORDER-BOTTOM: #c0c0c0 1px solid; HEIGHT: 16px; BACKGROUND-COLOR: #F7F7F7' onmouseover=''this.style.background='#ffffff';'' onmouseout=''this.style.background='#F7F7F7''' onFocus='this.select();'></td>" & vbCrLf
    End If
    If EnableSiteManageCode = True Then
        Response.Write "              <td><input name='AdminLoginCode'  type='password' maxLength='20' style='width:70px; BORDER-RIGHT: #F7F7F7 0px solid; BORDER-TOP: #F7F7F7 0px solid; FONT-SIZE: 9pt; BORDER-LEFT: #F7F7F7 0px solid; BORDER-BOTTOM: #c0c0c0 1px solid; HEIGHT: 16px; BACKGROUND-COLOR: #F7F7F7' onmouseover=''this.style.background='#ffffff';'' onmouseout=''this.style.background='#F7F7F7''' onFocus='this.select();'></td>" & vbCrLf
    End If
    Response.Write "              <td width='53'><input name='CheckCode' size='6' maxlength='6' style='width:50px; BORDER-RIGHT: #F7F7F7 0px solid; BORDER-TOP: #F7F7F7 0px solid; FONT-SIZE: 9pt; BORDER-LEFT: #F7F7F7 0px solid; BORDER-BOTTOM: #c0c0c0 1px solid; HEIGHT: 16px; BACKGROUND-COLOR: #F7F7F7; ime-mode:disabled;' onmouseover=''this.style.background='#ffffff';'' onmouseout=''this.style.background='#F7F7F7''' onFocus='this.select();'></td>" & vbCrLf
    Response.Write "              <td width='51'><a href='javascript:refreshimg()' title='看不清楚，换个图片'><img id='checkcode' src='../Inc/CheckCode.asp' style='border: 1px solid #ffffff' /></a></td>" & vbCrLf
    Response.Write "            </tr>" & vbCrLf
    Response.Write "          </table></td>" & vbCrLf
    Response.Write "        </tr>" & vbCrLf
    Response.Write "      </table></td>" & vbCrLf
    Response.Write "   </tr>" & vbCrLf
    Response.Write "  </table>" & vbCrLf

    If EnableSiteManageCode = True And SiteManageCode = "Cns520" Then
        Response.Write "      <br><center><font color=""red"">您使用的后台管理认证码为系统初始值“Cns520”，请登陆管理后台，进入“系统设置”/“网站信息配置”，“网站选项”标签里面，修改“后台管理认证码”一项。</font></center>" & vbCrLf
    End If


    Response.Write "</form>" & vbCrLf
    Response.Write "</td></tr></table>" & vbCrLf
    
    Response.Write "<script language='JavaScript' type='text/JavaScript'>" & vbCrLf
    Response.Write "CheckBrowser();" & vbCrLf
    Response.Write "SetFocus();" & vbCrLf
    Response.Write "</script>" & vbCrLf
    Response.Write "</body>" & vbCrLf
    Response.Write "</html>" & vbCrLf
End Sub

Sub ChkLogin()
    Dim sql, rs
    Dim UserName, Password, CheckCode, RndPassword, AdminLoginCode
    UserName = ReplaceBadChar(Trim(Request("UserName")))
    Password = ReplaceBadChar(Trim(Request("Password")))
    CheckCode = LCase(ReplaceBadChar(Trim(Request("CheckCode"))))
    AdminLoginCode = Trim(Request("AdminLoginCode"))

    If CSng(ScriptEngineMajorVersion & "." & ScriptEngineMinorVersion) < 5.6 Then
12

⌨️ 快捷键说明

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