📄 login.asp

📁 多用户管理分权限发布、管理软件信息；　自由选择系统默认为静态HTML或动态ASP；　无限制添加下载服务器
💻 ASP
字号:
<!--#include file="setup.asp"-->
<!--#include file="../inc/NC_MD5Cls.Asp"-->
<!--#include file="myadmin.asp"-->
<%
Dim NC_Encode
Dim GetCode
Set NC_Encode = New MD5Encode
FoundErr = False
Select Case request("action")
	Case "logout" '退出系统
		Call logout()
	Case "login" '登陆系统
		Call chklogin()
	Case Else
		Call main()
End Select
If FoundErr = True Then
	Response.Redirect("showerr.asp?action=error&message=" & server.URLEncode(errmsg) & "")
End If

Sub main()
	If session(Newasp.CacheName & "AdminName") = "" Then
%>
<html>
<head>
<title>管理员登陆</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="Admin_STYLE.CSS" type="text/css">
</head>
<script language="javascript">
<!--//
function SetFocus()
{
if (document.myform.AdminName.value=="")
	document.myform.AdminName.focus();
else
	document.myform.AdminName.select();
}
function CheckBrowser()
{
  var app=navigator.appName;
  var verStr=navigator.appVersion;
  if (app.indexOf('Netscape') != -1) {
    alert("新云网络友情提示：\n    你使用的是Netscape浏览器，可能会导致无法使用后台的部分功能。建议您使用 IE6.0 或以上版本。");
  }
  else if (app.indexOf('Microsoft') != -1) {
    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)
      alert("新云网络友情提示：\n    您的浏览器版本太低，可能会导致无法使用后台的部分功能。建议您使用 IE6.0 或以上版本。");
  }
}
//-->
</script>
<body topmargin="0" leftmargin="0" rightmargin="0">
<div align="center"><BR>
  <p>&nbsp;</p>  <p>&nbsp;</p>
<form name=myform method="post" action="login.asp?action=login" target="_top">

  <table width="600" border="0" align="center" cellpadding="0" cellspacing="0">
    <tr>
      <td colspan="2"><img src="Images/Admin_Login1.gif" width="600" height="126"></td>
    </tr>
    <tr>
      <td width="508" valign="top" background="images/Admin_Login2.gif"><table width="508" border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td height="37" colspan="7">&nbsp;</td>
        </tr>
        <tr>
          <td width="75" rowspan="2">&nbsp;</td>
          <td width="126"><font color="#043BC9">用户名称：</font></td>
          <td width="39" rowspan="2">&nbsp;</td>
          <td width="131"><font color="#043BC9">用户密码：</font></td>
          <td width="33">&nbsp;</td>
          <td colspan="2"><font color="#043BC9">验证码：</font></td>
          </tr>
        <tr>
          <td><input name="AdminName" type="text" style="width:110px; 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" onFocus="this.select(); " onmouseover="this.style.background='#ffffff';" onmouseout="this.style.background='#F7F7F7'" maxlength="20";"></td>
          <td><input name="PassWord" type="password" size="20" style="width:110px; 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>
          <td>&nbsp;</td>
          <td width="53"><input name="verifycode" size="6"  value="<%If GetCode=9999 Then Response.Write "9999"%>" maxlength="4" 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" onmouseover="this.style.background='#ffffff';" onmouseout="this.style.background='#F7F7F7'" onFocus="this.select(); "></td>
          <td width="51"><%=GetCode1()%></td>
        </tr>
      </table></td>
      <td><input type='hidden' name='Action' value='Login'>
        <input type="image" name="Submit" src="Images/Admin_Login3.gif" style="width:92px; HEIGHT: 126px;"></td>
    </tr>
  </table>
  </form>
</div>
<script language="JavaScript" type="text/JavaScript">
CheckBrowser();
SetFocus();
</script>
<p align=center></p>
<%
Else
	Response.Redirect "admin_index.asp"
End If
End Sub

Sub logout()
	'清除COOKIES中管理员身份的验证信息.
	Session.Abandon
	session(Newasp.CacheName & "AdminName") = ""
	session(Newasp.CacheName & "Purview") = ""
	session(Newasp.CacheName & "adminid") = ""
	Response.Redirect ("../")
End Sub

Sub chklogin()
	Dim adminname, password
	adminname = Trim(Replace(request("adminname"), "'", ""))
	password = NC_Encode.md5(Trim(Replace(request("password"), "'", "")))
	If Newasp.IsValidStr(Request("adminname")) = False Then
		Errmsg = Errmsg + "<li>用户名中含有非法字符。</li>"
		Founderr = true
		Exit Sub
	End If
	If Newasp.IsValidPassword(Request("password")) = False Then
		Errmsg = Errmsg + "<li>密码中含有非法字符。</li>"
		Founderr = true
		Exit Sub
	End If
	If request("verifycode") = "" Then
		errmsg = errmsg + "<br>" + "<li>请返回输入确认码。<li><b>返回后请刷新登陆页面后重新输入正确的信息。</b>"
		founderr = true
		Exit Sub
	ElseIf session("getcode") = "9999" Then
		session("getcode") = ""
		errmsg = errmsg + "<br>" + "<li>请不要重复提交，如需重新登陆请返回登陆页面。<li><b>返回后请刷新登陆页面后重新输入正确的信息。</b>"
		founderr = true
		Exit Sub
	ElseIf CStr(session("getcode"))<>CStr(Trim(request("verifycode"))) Then
		errmsg = errmsg + "<br>" + "<li>您输入的确认码和系统产生的不一致，请重新输入。<li><b>返回后请刷新登陆页面后重新输入正确的信息。</b>"
		founderr = true
		Exit Sub
	End If
	session("getcode") = ""
	If adminname = "" Or password = "" Then
		founderr = true
		Errmsg = Errmsg + "<br>" + "<li>请输入您的用户名或密码。<li><b>返回后请刷新登陆页面后重新输入正确的信息。</b>"
		Exit Sub
	End If
	If founderr Then Exit Sub
	Set rs = conn.Execute("select * from " & Admintable & " where adminname='"&adminname&"'")
	If rs.EOF And rs.bof Then
		rs.Close
		Set rs = Nothing
		founderr = true
		errmsg = "您输入的用户名和密码不正确或者您不是系统管理员。请<a href=admin_login.asp>重新输入</a>您的密码。<b>返回后请刷新登陆页面后重新输入正确的信息。</b>"
		Exit Sub
	Else
		If rs("isActive") = 0 Then
			founderr = true
			errmsg = "你的用户名已被锁定,你不能登陆!请联系管理员."
			Exit Sub
		End If
		If Trim(rs("password"))<>password Then
			founderr = true
			errmsg = "您输入的用户名和密码不正确或者您不是系统管理员。请<a href=login.asp>重新输入</a>您的密码。<li><b>返回后请刷新登陆页面后重新输入正确的信息。</b>"
			Exit Sub
		Else
			Session(Newasp.CacheName & "AdminName") = rs("adminname")
			session(Newasp.CacheName & "Purview") = rs("Purview")
			session(Newasp.CacheName & "Flag") = rs("Flag")
			session(Newasp.CacheName & "adminid") = rs("id")
			conn.Execute("update " & Admintable & " set Logintime="&Newasp.SqlString&",loginip='"&Newasp.GetUserip&"' where adminname='"&adminname&"'")
			rs.Close
			Set rs = Nothing
			response.redirect("admin_index.asp")
		End If
	End If

End Sub

Function GetCode1()
	Dim Test
	On Error Resume Next
	Set Test = Server.CreateObject("Adodb.Stream")
	Set Test = Nothing
	If Err Then
		Dim zNum
		Randomize Timer
		zNum = CInt(8999 * Rnd + 1000)
		Session("GetCode") = zNum
		getcode1 = Session("GetCode")
	Else
		getcode1 = "<img src=""../getcode.asp"">"
	End If
End Function
%>
</div>
</body>
</html>
⌨️ 快捷键说明

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