📄 admin.asp
字号:
<%OPTION EXPLICIT%>
<!--#include file="Include/Config.asp"-->
<!--#include file="Include/SQLUser.asp"-->
<!--#include file="Include/Conn.asp"-->
<!--#include file="Include/IPLockAdmin.asp"-->
<!--#include file="Include/MD5.asp"-->
<html>
<head>
<title><%=WebSiteName%>--网站管理中心</title>
<meta http-equiv="Content-Type" content="text/html;charset=gb2312">
<meta http-equiv="Content-Language" Content="zh-CN">
<meta name="Keywords" Content="">
<meta name="Description" Content="">
<link type="text/css" rel="stylesheet" href="Include/Style.css">
<Script Language="JavaScript">
<!--
function GuInputFocus() {
document.Admin_Login.GuUsername.focus();
}
//-->
</Script>
</head>
<body topmargin="26" leftmargin="26" bgcolor="#FFFFFF" onload="JavaScript:GuInputFocus();">
<%
if Trim(Request.Form("GuComm"))="AdminLogin" then
dim Ma_Username,Ma_Password,Ma_LoginIP
Ma_Username=Trim(Request.Form("GuUsername"))
Ma_Password=MD5(MD5(Trim(Request.Form("GuPassword"))))
Ma_LoginIP=GuUserIP
dim rsAd1
set rsAd1=Server.CreateObject("Adodb.RecordSet")
GuSQL="select Ma_Username,Ma_Password,Ma_Purview,Ma_LoginNumber,Ma_LastLoginDate,Ma_LastLoginIP from "&GuTablePrefix&"_Manager where Ma_Username='"&Ma_Username&"' and Ma_Password='"&Ma_Password&"' and Ma_TablePrefix='"&GuTablePrefix&"'"
rsAd1.open GuSQL,GuConn,3,3
if err.number<>0 then
Response.Redirect "Admin.asp?SM=1"
Response.end
elseif GuAdminValidationCode="1" and UCase(Trim(Request.Form("GuValidationCodeInput")))<>Request.Cookies("GuValidationCodeCookies") then
dim rsAd2
set rsAd2=Server.CreateObject("Adodb.RecordSet")
GuSQL="select LL_Username,LL_IP,LL_Code,LL_DateTime from "&GuTablePrefix&"_LoginLog where (LL_ID is null)"
rsAd2.open GuSQL,GuConn,1,3
rsAd2.addnew
rsAd2("LL_Username")=Ma_Username
rsAd2("LL_IP")=Ma_LoginIP
rsAd2("LL_Code")=3
rsAd2("LL_DateTime")=now()
rsAd2.update
rsAd2.close
set rsAd2=Nothing
Response.Redirect "Admin.asp?SM=3"
Response.end
else
if not rsAd1.eof and not rsAd1.bof then
rsAd1("Ma_LoginNumber")=rsAd1("Ma_LoginNumber")+1
rsAd1("Ma_LastLoginDate")=Date()
rsAd1("Ma_LastLoginIP")=Ma_LoginIP
rsAd1.update
Session("GuLREcnArticleAdminUsername")=rsAd1("Ma_Username")
Session("GuLREcnArticleAdminPurview")=rsAd1("Ma_Purview")
Session.Timeout=GuLREcnArticleAdminTimeout
rsAd1.close
set rsAd1=Nothing
dim rsAd3
set rsAd3=Server.CreateObject("Adodb.RecordSet")
GuSQL="select LL_Username,LL_IP,LL_Code,LL_DateTime from "&GuTablePrefix&"_LoginLog where (LL_ID is null)"
rsAd3.open GuSQL,GuConn,1,3
rsAd3.addnew
rsAd3("LL_Username")=Ma_Username
rsAd3("LL_IP")=Ma_LoginIP
rsAd3("LL_Code")=0
rsAd3("LL_DateTime")=now()
rsAd3.update
rsAd3.close
set rsAd3=Nothing
Response.Redirect "Admin_Index.asp"
Response.end
else
dim rsAd4
set rsAd4=Server.CreateObject("Adodb.RecordSet")
GuSQL="select LL_Username,LL_IP,LL_Code,LL_DateTime from "&GuTablePrefix&"_LoginLog where (LL_ID is null)"
rsAd4.open GuSQL,GuConn,1,3
rsAd4.addnew
rsAd4("LL_Username")=Ma_Username
rsAd4("LL_IP")=Ma_LoginIP
rsAd4("LL_Code")=2
rsAd4("LL_DateTime")=now()
rsAd4.update
rsAd4.close
set rsAd4=Nothing
Response.Redirect "Admin.asp?SM=2"
Response.end
end if
end if
end if
if Trim(Request.QueryString("GuComm"))="0" then
Session("GuLREcnArticleAdminUsername")=""
Session("GuLREcnArticleAdminPurview")=""
Response.Redirect WebSiteURL
Response.end
end if
dim SM,GuSystemMessage
if Trim(Request.QueryString("SM"))<>"" then
select case Trim(Request.QueryString("SM"))
case "1"
GuSystemMessage="登录失败，数据库查询失败"
case "2"
GuSystemMessage="登录失败，用户帐号或密码错误"
case "3"
GuSystemMessage="登录失败，验证码输入错误"
case else
GuSystemMessage="登录失败"
end select
end if
%>
<table border="0" cellpadding="0" cellspacing="0" width="444" height="243" background="Images/Admin_Bg.jpg">
<form name="Admin_Login" method="post" action="Admin.asp" target="_top">
<tr>
<td width="444" height="72" colspan="2"></td>
</tr>
<tr>
<td width="123" height="21"></td>
<td width="321" height="21"></td>
</tr>
<tr>
<td width="123" height="38" align="right"><font style="font-family:宋体;font-size:14px;color:#35A488;">用户账号:</font> </td>
<td width="321" height="38"><input name="GuUsername" type="text" Maxlength="20" class="Admin_InputText" style="width:166;height:19;background-color:#FFFFFF;" value=""></td>
</tr>
<tr>
<td width="123" height="38" align="right"><font style="font-family:宋体;font-size:14px;color:#35A488;">用户密码:</font> </td>
<td width="321" height="38"><input name="GuPassword" type="password" Maxlength="20" class="Admin_InputText" style="width:<%if GuAdminValidationCode="1" then Response.write "106" else Response.write "166" end if%>;height:19;background-color:#FFFFFF;" value=""> <%if GuAdminValidationCode="1" then%><input type="text" name="GuValidationCodeInput" class="Admin_InputText" style="width:52;background-color:#FFFFFF" Maxlength="6"> <img src="Include/ValidationCode.asp" style="cursor:pointer;width:46;height:12" onclick="this.src='Include/ValidationCode.asp?'+Math.random()"><%end if%></td>
</tr>
<tr>
<td width="123" height="40"><input name="GuComm" type="hidden" value="AdminLogin"></td>
<td width="321" height="40"><input type="submit" name="Admin_Button_OK" value="" class="Admin_Button_OK"> <input type="reset" name="Admin_Button_Reset" value="" class="Admin_Button_Reset"></td>
</tr>
<tr>
<td width="444" height="34" colspan="2" align="right" valign="top"><table border="0" width="440" height="32" cellspacing="0" cellpadding="0"><tr><td width="232" height="32" valign="top"> <font class="RedS12"><%if Trim(Request.QueryString("SM"))<>"" then Response.write GuSystemMessage end if%></font></td><td width="198" height="32" align="right" valign="top"><a href="http://www.lre.cn/" class="SilverS12">浪人网络</a> <a href="mailto:gueeon@gmail.com" class="SilverS12">啊估设计</a> </td></tr></table></td>
</tr>
</form>
</table>
</body>
</html>
<%CloseDatabase%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -