📄 admin_login.asp

📁 网人分类信息5.0商业版。非常优秀的分类信息系统。比较少见。
💻 ASP
字号:
<!--#include file="../Inc/Conn.asp"-->
<!--#include file="../Inc/Cls.Common.asp"-->
<%
Select Case Request("Action")
  Case "LoginSave"
    Call LoginSave()
  Case "Logout"
    Call Logout()
  Case Else
    Call Login()
End Select
Call ClassEnd()

Public Sub Logout()
  Response.Cookies("Admin")("ID") = Empty
  Response.Cookies("Admin")("Admin") = Empty
  Response.Cookies("Admin")("Flag") = Empty
  Response.Cookies("Admin")("Pass") = Empty
  Response.Cookies("Admin")("FlagGroup") = Empty
  Response.Cookies("Admin")("ManageCode") = Empty
  WRMPS.DelCookies "Attestation"
  Response.Write "<script language=JavaScript>" & vbCrLf
  Response.Write "window.open('../','_parent');" & vbCrLf
  Response.Write "</script>" & vbCrLf
End Sub

Public Sub LoginSave()
  Dim UserName,Password,Code,AdminLoginCode,AdminFlag,AdminFlagGroup
  UserName = WRMPS.CheckStr(Request.form("username"),0)
  Password= WRMPS.CheckStr(Request.form("password"),0)
  Code = WRMPS.CheckStr(Request.form("Code"),0)
  AdminLoginCode = WRMPS.CheckStr(Request.form("AdminLoginCode"),0)
  Call DBConnBegin()
  Set Rs = Conn.Execute("Select WM_UserName,WM_PassWord,WM_Flag,WM_FlagGroup,WM_ID From WM_admin Where WM_UserName = '"&UserName&"'")
  If Not Rs.Eof Then
    If Rs(1) <> MD5(2,PassWord) Then
      Call WRMPS.ErrView("·用户密码输入不正确<meta http-equiv='refresh' content='1;URL=Admin_login.asp'>",0)
	Else
      If Code <> WRMPS.GetCookies("Code") Then
        Call WRMPS.ErrView("·验证码不正确<meta http-equiv='refresh' content='1;URL=Admin_login.asp'>",0)
      End If
      WRMPS.DelCookies "Code"
      If EnableSiteManageCode Then
        If AdminLoginCode <> SiteManageCode Then Call WRMPS.ErrView("·您输入的后台管理认证码不对，请重新输入<br>·请注意大小写<meta http-equiv='refresh' content='1;URL=Admin_login.asp'>",0)
        Response.Cookies("Admin")("ManageCode") = AdminLoginCode
	  End If
	  AdminFlag = Rs(2)
	  If IsNull(AdminFlag) Or AdminFlag = "" Then AdminFlag = ","
	  AdminFlagGroup = Rs(3)
      Response.Cookies("Admin")("ID") = Rs(4)
      Response.Cookies("Admin")("Admin") = Rs(0)
      Response.Cookies("Admin")("Pass") = Rs(1)
      Response.Cookies("Admin")("Flag") = AdminFlag
      Response.Cookies("Admin")("FlagGroup") = AdminFlagGroup
  	End If
  Else
      Call WRMPS.ErrView("·管理员不存在<meta http-equiv='refresh' content='1;URL=Admin_login.asp'>",0)
  End If
  Rs.Close
  Set Rs = Nothing
  Call DBConnEnd()
  Response.Redirect "Admin_Manage.asp"
End Sub

Public Sub Login()
  Response.Write "<script>" & vbCrLf
  Response.Write "function CheckForm(){" & vbCrLf
  Response.Write "  var Msg = """";" & 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 "    Msg = ""Err"";}" & 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 "    Msg = ""Err"";}  " & vbCrLf
  Response.Write "  if (document.login.Code.value == """"){" & vbCrLf
  Response.Write "	alert(""请输入验证码！"");" & vbCrLf
  Response.Write "	document.login.Code.focus();" & vbCrLf
  Response.Write "	return false;" & vbCrLf
  Response.Write "    Msg = ""Err"";}" & vbCrLf
  If EnableSiteManageCode 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 "    Msg = ""Err"";}" & vbCrLf
  End If
  Response.Write "  if (Msg == """"){login.submit();}else{return false;}}" & vbCrLf
  Response.Write "function Ctlent(){if(window.event.keyCode==13){CheckForm();}}" & 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 get_Code(){" & vbCrLf
  Response.Write "document.getElementById(""imgurl"").src='../inc/CodeNum.asp?'+Math.random();" & vbCrLf
  Response.Write "}" & vbCrLf
  Response.Write "</script>" & vbCrLf
  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 href='img/Style.css' rel='stylesheet' type='text/css'>" & vbCrLf
  Response.Write "<SCRIPT language=JavaScript src=img/SoftKey.Js></SCRIPT>" & vbCrLf
  Response.Write "</head>" & vbCrLf
  Response.Write "<body style='margin:0;color:#FFFFFF;overflow:hidden;border:0'>" & vbCrLf
  Response.Write "<div onkeydown=Ctlent()><table width='100%' height='100%'  border=0 cellpadding=0 cellspacing=0><tr><td>" & vbCrLf
  Response.Write "<table width='100%' align=center height=160 border=0 cellpadding=0 cellspacing=0 style='border-top:1px #0069BF solid;border-bottom:1px #0069BF solid'>" & vbCrLf
  Response.Write "<tr><td align=center>" & vbCrLf
  Response.Write "<table width='100%' align=center height=150 border=0 cellpadding=0 cellspacing=2 bgcolor=#1890CC>" & vbCrLf
  Response.Write "<form name=login action=?Action=LoginSave method=post>" & vbCrLf
  Response.Write "<tr><td width='25%' align=right><img src='img/Login_pic.gif' align=absmiddle></td><td width='2%'><img src='img/Login_line.gif' align=absmiddle></td><td width='73%'>" & vbCrLf
  Response.Write "<table border=0 cellpadding=0 cellspacing=2><tr>" & vbCrLf
  Response.Write "<td colspan=8><img src='img/Login_tit.gif' align=absmiddle></td>" & vbCrLf
  Response.Write "<td align=right rowspan=2 valign=bottom width=90><img onclick='CheckForm();' src=Img/Login.gif width=71 height=71 border=0 align=absmiddle style='cursor:pointer'></td>" & vbCrLf
  Response.Write "</tr><tr>" & vbCrLf
  Response.Write "<td width=50 align=right height=60><img src='img/admin_login_01.gif' align=absmiddle></td>" & vbCrLf
  Response.Write "<td>用户名<br><input name=UserName size=12 class=input_login style='width:80;height:18px'></td>" & vbCrLf
  Response.Write "<td width=40 align=right><img src='img/admin_login_02.gif' align=absmiddle></td>" & vbCrLf
  Response.Write "<td>密　码" & vbCrLf
  Response.Write "<table border=0 cellspacing=0 cellpadding=0 class=input_login>" & vbCrLf
  Response.Write "<tr><td bgcolor=#ffffff><input name=Password type=Password style='width:60;height:14px;border:0px'></td>" & vbCrLf
  Response.Write "<td bgcolor=#ffffff width=18><img align=absmiddle src=""Img/Dot_Info.gif"" border=0 style='cursor:pointer' onkeydown=Calc.Password.value=login.Password.value title=""点此使用小键盘输入密码，使你的帐号信息更安全！"" onclick=""inputpass=login.Password;showkeyboard();login.Password.readOnly=1;Calc.Password.value=''""  readOnly onchange=Calc.passcnbbr.value=login.passcnbbr.value></td></tr>" & vbCrLf
  Response.Write "</table>" & vbCrLf
  Response.Write "</td>" & vbCrLf
  Response.Write "<td width=45 align=right><img src='img/admin_login_03.gif' align=absmiddle></td>" & vbCrLf
  Response.Write "<td>验证码<br><input name=Code class=input_login size=8 maxlength=6 style='width:50;height:18px' onfocus=get_Code()><img id=imgurl src="&WR_Setting(3)&"Skins/"&WR_Setting(5)&"/code.gif align=absmiddle class=input_login style='width:82px;height:16px;cursor:pointer' alt='验证码看不清楚?请点击刷新验证码' onclick=""this.src='../inc/CodeNum.asp?'+Math.random()""></td>" & vbCrLf
  If EnableSiteManageCode Then
    Response.Write "<td width=40 align=right><img src='img/admin_login_04.gif' align=absmiddle></td>" & vbCrLf
    Response.Write "<td>管理认证码<br><input name=AdminLoginCode size=12 class=input_login type=Password style='width:80;height:18px'></td>" & vbCrLf
    If SiteManageCode = "WRMPS5" Then Response.Write "</tr><tr><td colspan=9>您使用的后台管理认证码为系统初始值“WRMPS5”，请修改 Inc/Data.asp 文件中相应的 SiteManageCode 值。</td>" & vbCrLf
  End If
  Response.Write "</tr></table>" & vbCrLf
  Response.Write "</td></tr></form></table>" & vbCrLf
  Response.Write "</td></tr></table>" & vbCrLf
  Response.Write "</td></tr></table></div>" & vbCrLf
  Response.Write "<SCRIPT>document.login.UserName.focus();CheckBrowser();</SCRIPT>" & vbCrLf
  Response.Write "</body>" & vbCrLf
  Response.Write "</html>" & vbCrLf
End Sub
%>
⌨️ 快捷键说明

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