📄 admin_login.asp
字号:
<!--#include file="../config.asp"-->
<!--#include file="../inc/md5/ss_md5.asp"-->
<%
Response.CacheControl = "no-cache"
Dim RefreshTime,GetCode
FoundErr = False
RefreshTime = 3 '设置防刷新时间
If DateDiff("s", Session("UserTime"), Now()) < RefreshTime Then
Response.Write "<META http-equiv=Content-Type content=text/html; chaRset=gb2312><meta HTTP-EQUIV=REFRESH CONTENT="&RefreshTime&"><br>本页面起用了防刷新机制，请不要在"&RefreshTime&"秒内连续刷新本页面<BR>正在打开页面，请稍后……"
Response.End
End If
Select Case CheckStr(Request("action"))
Case "logout" '退出系统
Call logout()
Case "login" '登陆系统
Call chklogin()
Case Else
Call main()
End Select
CloseConn
Sub main()
If Session("sysadminuid") = "" Then
%>
<html>
<head>
<title>管理员登陆</title>
<meta http-equiv="Content-Type" content="text/html; chaRset=gb2312">
<link rel="stylesheet" href="../Style.css" type="text/css">
<style type="text/css">
<!--
.btn_letter {
BORDER-RIGHT: #5C08B2;
BORDER-TOP: #7b9ebd;
FILTER: progid:DXImageTransform.Microsoft.Gradient(GradientType=0,StartColorStr=#ffffff, EndColorStr=#DDDCDC);
BORDER-LEFT: #7b9ebd;
COLOR: black;
BORDER-BOTTOM: #5C08B2;
color:#075BC3;
}
.btn_num {
BORDER-RIGHT: #7EBF4F;
BORDER-TOP: #7EBF4F;
FILTER: progid:DXImageTransform.Microsoft.Gradient(GradientType=0, StartColorStr=#ffffff, EndColorStr=#B3D997);
BORDER-LEFT: #7EBF4F;
COLOR: black;
BORDER-BOTTOM: #7EBF4F;
}
.btn_letter {
BORDER-RIGHT: 1px solid; PADDING-RIGHT: 1px; BORDER-TOP: 1px solid; PADDING-LEFT: 2px; FONT-SIZE: 12px; BORDER-LEFT: 1px solid; WIDTH: 25px; CURSOR: hand; PADDING-TOP: 1px; BORDER-BOTTOM: 1px solid; HEIGHT: 20px
}
.btn_num {
BORDER-RIGHT: 1px solid; PADDING-RIGHT: 1px; BORDER-TOP: 1px solid; PADDING-LEFT: 2px; FONT-SIZE: 12px; BORDER-LEFT: 1px solid; WIDTH: 25px; CURSOR: hand; PADDING-TOP: 1px; BORDER-BOTTOM: 1px solid; HEIGHT: 20px
}
.table_title {
FILTER: progid:DXImageTransform.Microsoft.Gradient(GradientType=0,StartColorStr=#B2DEF7, EndColorStr=#7AB7DA); PADDING-TOP: 3px; HEIGHT: 26px
}
.btn_input {
BORDER-RIGHT: #2c59aa 1px solid; PADDING-RIGHT: 2px; BORDER-TOP: #2c59aa 1px solid; PADDING-LEFT: 2px; FONT-SIZE: 12px; FILTER: progid:DXImageTransform.Microsoft.Gradient(GradientType=0, StartColorStr=#ffffff, EndColorStr=#C3DAF5); BORDER-LEFT: #2c59aa 1px solid; CURSOR: hand; COLOR: black; PADDING-TOP: 2px; BORDER-BOTTOM: #2c59aa 1px solid
}
.alert {
position:absolute;
height: 100%;
width: 100%;
top: 0px;
left: 0px;
filter: Alpha(Opacity=80);
background-color:#333333;
}
-->
</style>
</head>
<script language="javascript">
<!--//
function CheckForm()
{
if(document.myform.AdminName.value=="")
{
err_alert("出错提示：","用户名不能为空");
return false;
}
if(document.myform.PassWord.value == "")
{
err_alert("出错提示：","密码不能为空");
return false;
}
if (document.myform.verifycode.value==""){
err_alert("出错提示：","验证码不能为空");
return false;
}
}
//-->
</script>
<body topmargin="0" leftmargin="0" rightmargin="0" onLoad="setpos();">
<form name=myform method="post" action="?action=login" target="_top" onSubmit="return CheckForm();">
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<table cellpadding="1" cellspacing="0" border="0" align=center style="border: outset 3px;width:0;" id="login_box">
<tr><td>
<table width="605" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td><img src="../img/admin_login_r1_c1.jpg" width="605" height="17"></td>
</tr>
</table>
<table width="605" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="24"><img src="../img/admin_login_r2_c1.jpg" width="23" height="212"></td>
<td width="494" align="center" valign="top" bgcolor="#F7FAFF"><table width="100%" height="100" border="0" cellpadding="0" cellspacing="0">
<tr>
<td background="../img/admin_login_r2_c2.jpg"><img src="../img/admin_login_r2_c2.jpg" width="494" height="101" border="0"></td>
</tr>
</table>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="5">
<tr>
<td width="22%" align="center" rowspan="4"><a href="http://ss.net.cn" target="_blank"><img src="../img/logo.gif" alt="及时网络" width="127" height="37" border="0"></a></td>
<td width="78%">用户名：<input name="AdminName" type="text" size="28" onMouseOver="this.style.background='#FFFFFF';" onMouseOut="this.style.background='#F8F8F8'" onFocus="this.select();"></td>
</tr>
<tr>
<td>密 码：<input name="PassWord" id="PassWord" type="password" size="22" onMouseOver="this.style.background='#FFFFFF';" onMouseOut="this.style.background='#F8F8F8'" onFocus="this.select();">
</td>
</tr>
<tr>
<td>附加码：<input name="verifycode" type="text" size="10" maxlength="5" value="<%If GetCode=9999 Then Response.Write "9999"%>" onMouseOver="this.style.background='#FFFFFF';" onMouseOut="this.style.background='#F8F8F8'" onFocus="this.select(); ">
请在附加码框输入 <img src="../inc/getcode.asp" alt="验证码,看不清楚?请点击刷新验证码" height="10" style="cursor : pointer;" onClick="this.src='inc/getcode.asp'" /> </td>
</tr>
<tr>
<td><input type="button" name="Submit4" onClick=window.location.reload() value="刷新本页" class="button">
<input type="button" name="Submit1" onClick="javascript:location.href='../'" value="返回首页" class="button">
<input type="submit" name="Submit" value="管理登陆" class="button"></td>
</tr>
</table> </td>
<td width="88"><img src="../img/admin_login_r2_c3.jpg" width="88" height="212" /></td>
</tr>
</table>
<table width="605" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td><img src="../img/admin_login_r4_c1.jpg" width="605" height="21" /></td>
</tr>
</table>
</td></tr></table></form>
<%
Else
Response.Redirect "index.asp"
End If
End Sub
Sub logout()
'清除COOKIES中管理员身份的验证信息.
Session.Abandon
Session("sysadminuid") = ""
Session("sysadminflag") = ""
Session("sysuname") = ""
Response.Redirect ("admin_login.asp")
End Sub
Sub chklogin()
Dim adminname, password,RandomCode
adminname = CheckBadstr(trim(Request("adminname")))
password = Trim(Replace(Request("password"), "'", ""))
If CheckPost = False Then
Call Message ( "您提交的数据不合法，请不要从外部提交登陆。","back")
Call EndExit()
End If
If IsValidStr(Request("adminname")) = False Then
Call Message ( "用户名中含有非法字符。","admin_login.asp")
Call EndExit()
End If
If IsValidPassword(Request("password")) = False Then
Call Message ( "密码中含有非法字符。","admin_login.asp")
Call EndExit()
End If
If Request("verifycode") = "" Then
Call Message ( "请返回输入确认码。","admin_login.asp")
Call EndExit()
ElseIf Session("getcode") = "9999" Then
Call Message ( "请不要重复提交，如需重新登陆请返回登陆页面。","admin_login.asp")
Call EndExit()
ElseIf CStr(Session("getcode"))<>CStr(Trim(Request("verifycode"))) Then
Call Message ( "您输入的认码和系统产生的不一致，请重新输入。","admin_login.asp")
Call EndExit()
End If
Session("getcode") = ""
If adminname = "" Or password = "" Then
Call Message ( "请输入您的用户名或密码。","admin_login.asp")
Call EndExit()
End If
If Not IsObject(Conn) Then OpenConn()
Set Rs = Server.CreateObject("ADODB.Recordset")
SQL = "SELECT * FROM oa_systemadmin WHERE adminuid='" & adminname & "'"
Rs.Open SQL, Conn, 1, 3
If Rs.BOF And Rs.EOF Then
Call Message ( "您输入的用户名和密码不正确或者您不是系统管理员","admin_login.asp")
Call EndExit()
Else
If trim(Rs("adminpwd")) <> Ss_Md5_Check(password,trim(Rs("adminpwd"))) then
Call Message ( "用户名或密码错误","admin_login.asp")
Call EndExit()
End If
End If
'RandomCode = Ss_RandString(10)
If FoundErr = False Then
Session("sysadminuid") = trim(Rs("adminuid"))
Session("sysadminflag") = trim(Rs("adminflag"))
Session("sysuname") = trim(Rs("uname"))
session("adminlevel")=trim(Rs("adminlevel"))
End If
Rs.Close
Set Rs = Nothing
'logtime=now()
'logsql="insert into oa_log(uid,ip,logtime,companyid) values('"&adminname&"','"&getIP()&"','"&logtime&"',"&session("companyid")&")"
'conn.execute(logsql)
'Response.Redirect("main.asp")
Response.Redirect("index.asp")
End Sub
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -