📄 admin_login.asp
字号:
<!--#include file="Conn.asp"-->
<!--#include file="Inc/Md5.asp"-->
<!--#include file="Inc/Admin_checkuser.asp"-->
<%
dim ip
select case request("action")
case "logout" '退出系统
call logout()
case else
If Admin_Check_T=0 Then
Response.Write"<script>alert('目前您是登陆状态，系统自动跳转到管理目录，如果想重登陆，请退出系统后再继续操作，谢谢');window.parent.location.reload("""&Admin_InstallDir&"/Admin_Index.asp"");</SCRIPT>"
End if
call main()
end select
sub main()
If request("action")="login" then
Call chklogin()
If founderr=true Then
Call WriteErrMsg(errmsg)
End if
Else
%>
<html>
<head>
<title>管理员登陆</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="images/admin/admin.css" type="text/css">
<STYLE type=text/css>
BODY {
BACKGROUND-IMAGE: url(images/admin/back.gif); MARGIN: 0px
}
.form1 {
BORDER-RIGHT: #4696ee 1px solid; BORDER-TOP: #4696ee 1px solid; FONT-SIZE: 12px; BORDER-LEFT: #4696ee 1px solid; COLOR: #000066; BORDER-BOTTOM: #4696ee 1px solid; FONT-FAMILY: Verdana, Arial, Helvetica, sans-serif
}
.font1 {
FONT-SIZE: 12px; COLOR: #0066cc; FONT-FAMILY: Verdana, Arial, Helvetica, sans-serif
}
.font2 {
FONT-SIZE: 12px; COLOR: #000000; FONT-FAMILY: Verdana, Arial, Helvetica, sans-serif
}
.style2 {
FONT-SIZE: 12px; COLOR: #ff0000; FONT-FAMILY: Verdana, Arial, Helvetica, sans-serif
}
.style3 {
COLOR: #3333cc
}
.style4 {
COLOR: #ff0000
}
</STYLE>
</head>
<body topmargin="0" leftmargin="0" rightmargin="0">
<div align="center"><BR>
<%
Dim FY_Com_Do
FY_Com_Do=LCase("/"&Admin_InstallDir&"/")
If InStr(FY_Com_Do,LCase("/admin/"))>0 Then
response.write"<script>alert('请记得将默认管理目录Admin改名！');</script>"
End If
%>
<script language=javascript>
var closestr=0;
function SetFocus() {
if(document.form1.AdminName.value == '')
document.form1.AdminName.focus();
else
document.form1.AdminName.select();
}
function CheckBrowser() {
var app=navigator.appName;
var verStr=navigator.appVersion;
if(app.indexOf('Netscape') != -1) {
alert('飞云友情提示：\n 你使用的是Netscape、Firefox或者其他非IE浏览器，可能会导致无法使用后台的部分功能。建议您使用 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 或以上版本。');
}
}
function xxg()
{
if (document.form1.AdminName.value==""){
alert("请输入用户名")
document.form1.AdminName.focus();
return false
}
if (document.form1.PassWord.value==""){
alert("请输入密码");
document.form1.PassWord.focus();
return false
}
if (document.form1.verifycode.value==""){
alert("请输入验证码");
document.form1.verifycode.focus();
return false
}
if (document.form1.verifycode.value.length<6){
alert("请输入正确的验证码");
document.form1.verifycode.focus();
return false
}
return true
}
function reset_form()
{
document.form1.AdminName.value="";
document.form1.PassWord.value="";
document.form1.verifycode.value="";
document.form1.AdminName.focus;
}
</script>
<form name="form1" method="post" action="Admin_Login.asp?action=login" target="_top" onSubmit="return xxg()">
<TABLE height="100%" cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD><SPAN class=font5></SPAN>
<TABLE height="100%" cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD>
<DIV align=center> <BR>
</DIV>
<TABLE cellSpacing=0 cellPadding=0 width=616 align=center border=0><TBODY>
<TR>
<TD><IMG height=84 src="images/admin/denglu_r1_c1.jpg" width=281><IMG height=84 src="images/admin/denglu_r1_c4.jpg" width=335></TD></TR>
<TR>
<TD>
<TABLE cellSpacing=0 cellPadding=0 width=616 border=0>
<TBODY>
<TR>
<TD width=281><IMG height=68 src="images/admin/denglu_r2_c1.jpg" width=281></TD>
<TD width=185><IMG height=68 src="images/admin/denglu_r2_c4.jpg" width=185></TD>
<TD width=126>
<TABLE cellSpacing=0 cellPadding=0 width=126 border=0>
<TBODY>
<TR>
<TD><A href="../"><IMG height=41 src="images/admin/denglu_r2_c7.jpg" width=126 border=0></A></TD>
</TR>
<TR>
<TD><IMG height=27 src="images/admin/denglu_r3_c7.jpg" width=126></TD></TR></TBODY></TABLE></TD>
<TD><IMG height=68 src="images/admin/denglu_r2_c10.jpg"
width=24></TD></TR></TBODY></TABLE></TD></TR>
<TR>
<TD><IMG height=50 src="images/admin/denglu_r4_c1.jpg"
width=164><IMG height=50 src="images/admin/denglu_r4_c2.jpg"
width=332><IMG height=50 src="images/admin/denglu_r4_c9.jpg"
width=120></TD></TR>
<TR>
<TD>
<TABLE cellSpacing=0 cellPadding=0 width=616 border=0>
<TBODY>
<TR>
<TD width=164><IMG height=135
src="images/admin/denglu_r5_c1.jpg" width=164></TD>
<TD width=332>
<TABLE height=135 cellSpacing=0 cellPadding=0 width=332
background=images/admin/denglu_r5_c2.jpg border=0>
<TBODY>
<TR>
<TD>
<TABLE height=91 cellSpacing=0 cellPadding=0
width=266 align=center border=0>
<TBODY>
<TR>
<TD style="PADDING-LEFT: 3px" width=48
height=24><FONT class=font1
color=#000066><STRONG>用户名</STRONG></FONT></TD>
<TD width=218><INPUT class=form1 maxLength=30 size=25 name=AdminName onmouseover=''this.style.background='#ffffff';'' onmouseout=''this.style.background='#F7F7F7''' onFocus='this.select();'></TD></TR>
<TR>
<TD style="PADDING-LEFT: 3px" height=24><FONT
class=font1
color=#000066><STRONG>密 码</STRONG></FONT></TD>
<TD><INPUT class=form1 type=password maxLength=30 size=25 name=PassWord onmouseover=''this.style.background='#ffffff';'' onmouseout=''this.style.background='#F7F7F7''' onFocus='this.select();'></TD></TR>
<TR>
<TD style="PADDING-LEFT: 3px" height=24><FONT
class=font1
color=#000066><STRONG>验证码</STRONG></FONT></TD>
<TD><INPUT class=form1 size=7 name=verifycode maxLength=6 value="" onmouseover=''this.style.background='#ffffff';'' onmouseout=''this.style.background='#F7F7F7''' onFocus='this.select();' onkeyup="if(isNaN(value))execCommand('undo')" onafterpaste="if(isNaN(value))execCommand('undo')">
<img src="inc/CheckCode.asp"></TD></TR></TBODY></TABLE>
</TD>
</TR></TBODY></TABLE></TD>
<TD width=120><IMG height=135
src="images/admin/denglu_r5_c9.jpg"
width=120></TD></TR></TBODY></TABLE></TD></TR>
<TR>
<TD><IMG height=13 src="images/admin/denglu_r6_c1.jpg"
width=616></TD></TR>
<TR>
<TD>
<TABLE cellSpacing=0 cellPadding=0 width=616 border=0>
<TBODY>
<TR>
<TD><IMG height=27 src="images/admin/denglu_r7_c1.jpg"
width=337></TD>
<TD><INPUT type=image height=27 width=73
src="images/admin/denglu_r7_c5.jpg" border=0
name=image></TD>
<TD><A
href="../"><IMG
height=27 src="images/admin/denglu_r7_c6.jpg" width=75
border=0></a></TD>
<TD><IMG height=27 src="images/admin/denglu_r7_c8.jpg"
width=131></TD></TR></TBODY></TABLE></TD></TR>
<TR>
<TD><IMG height=66 src="images/admin/denglu_r8_c1.jpg"
width=281><IMG height=66 src="images/admin/denglu_r8_c4.jpg"
width=335></TD></TR></TBODY></TABLE>
<TABLE height=22 cellSpacing=0 cellPadding=0 width=615 align=center
border=0>
<TBODY>
<TR>
<TD align=middle width=335> </TD>
<TD align=middle width=280> </TD>
</TR>
</TBODY>
</TABLE></TD></TR></TBODY></TABLE></FORM></TR></TBODY></TABLE>
</div>
<script language='JavaScript' type='text/JavaScript'>
CheckBrowser();
SetFocus();
</script>
</BODY>
</HTML>
<%
end if
end sub
sub logout()
Call Admin_logout()
Response.Redirect "Admin_Login.asp"
end sub
sub chklogin()
dim adminname,password,CheckCode
adminname=ReplaceBadChar(trim(request("adminname")))
CheckCode=LCase(ReplaceBadChar(trim(request("verifycode"))))
password=ReplaceBadChar(trim(request("password")))
if CheckCode="" then
errmsg=errmsg+"<br>"+"<li>请返回输入确认码。<li><b>返回后请刷新登陆页面后重新输入正确的信息。</b>"
founderr=true
elseif Session("CheckCode")="" then
errmsg=errmsg+"<br>"+"<li>请不要重复提交，如需重新登陆请返回登陆页面。<li><b>返回后请刷新登陆页面后重新输入正确的信息。</b>"
founderr=true
elseif clng(Session("CheckCode"))<>clng(trim(CheckCode)) then
errmsg=errmsg+"<br>"+"<li>您输入的确认码和系统产生的不一致，请重新输入。<li><b>返回后请刷新登陆页面后重新输入正确的信息。</b>"
founderr=true
end if
if adminname="" or password="" then
founderr=true
Errmsg=Errmsg+"<br>"+"<li>请输入您的用户名或密码。<li><b>返回后请刷新登陆页面后重新输入正确的信息。</b>"
end if
if founderr=true then exit sub
ip=Request.ServerVariables("REMOTE_ADDR")
If IP="" Then
ip="代理IP"
End if
set rs=conn.execute("select * from [管理员_Admin] where 管理账号='"&adminname&"'")
if rs.eof and rs.bof then
rs.close
set rs=nothing
founderr=true
errmsg= "您输入的用户名和密码不正确或者您不是系统管理员。请<a href=Admin_Login.asp>重新输入</a>您的密码。<b>返回后请刷新登陆页面后重新输入正确的信息。</b>"
else
if rs("状态")<>0 then
rs.close
set rs=nothing
founderr=true
errmsg= "你的用户名已被锁定,你不能登陆!请联系管理员."
Elseif trim(rs("安全密码"))<>md5(password) then
rs.close
set rs=nothing
founderr=true
errmsg= "您输入的用户名和密码不正确或者您不是系统管理员。请<a href=Admin_Login.asp>重新输入</a>您的密码。<li><b>返回后请刷新登陆页面后重新输入正确的信息。</b>"
else
response.cookies(FY_cookies)("AdminName")=rs("管理账号")
response.cookies(FY_cookies)("AdminId")=rs("编号")
response.cookies(FY_cookies)("AdminPass")=rs("安全密码")
response.cookies(FY_cookies)("AdminFlag")=rs("权限")
response.cookies(FY_cookies)("AdminBM")=rs("登陆次数")+1
conn.execute("update [管理员_Admin] set 登陆时间='"&Now()&"',登陆IP='"&ip&"',登陆次数=登陆次数+1 where 管理账号='"&adminname&"'")
rs.close
set rs=nothing
Session("CheckCode")=""
response.redirect(""&Admin_InstallDir&"/Admin_Index.asp")
end if
end if
end sub
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -