📄 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("AdminName") = "" or session("companyid")="" Then
%>
<html>
<head>
<title>红金羚自动化办公系统V9.0</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 type="text/javascript" src="js/common.js"></script>
<script type="text/javascript" src="js/swfobject.js"></script>
<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();">
<div align="center"><br>
<p> </p> <p> </p>
<form name=myform method="post" action="?action=login" target="_top" onSubmit="return CheckForm();">
<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"> </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="20" /></td>
</tr>
</table>
</td></tr></table>
<div align="center">Copyright & 2007-2008 Powered By <a href="http://www.hokilly.com" target="_blank">红金羚软件</a> Version 9.0</div>
</form>
</div>
<div align="center">
<%
Else
Response.Redirect "oaadmin/index.asp"
End If
End Sub
Sub logout()
'清除COOKIES中管理员身份的验证信息.
Session.Abandon
Session("AdminName") = ""
Session("AdminPass") = ""
Session("AdminGrade") = ""
Session("AdminFlag") = ""
Session("AdminStatus") = ""
Session("AdminID") = ""
Session("AdminRandomCode") = ""
Response.Cookies(Admin_Cookies_Name) = ""
Response.Redirect ("../")
End Sub
Sub chklogin()
Dim adminname, password,RandomCode
adminname = CheckBadstr(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_Admin WHERE username='" & adminname & "'"
Rs.Open SQL, Conn, 1, 3
If Rs.BOF And Rs.EOF Then
Call Message ( "您输入的用户名和密码不正确或者您不是系统管理员","admin_login.asp")
Call EndExit()
Else
If Rs("password") <> Ss_Md5_Check(password,Rs("password")) then
Call Message ( "用户名或密码错误","admin_login.asp")
Call EndExit()
End If
If Rs("isLock") <> 0 Or Rs("isLock") = "" Then
Call Message ( "你的用户名已被锁定,你不能登陆！如要开通此帐号，请联系管理员。","admin_login.asp")
Call EndExit()
End If
End If
RandomCode = Ss_RandString(10)
Rs("LoginTime") = Now()
Rs("Loginip") = getIP()
Rs("RandomCode") = RandomCode
Rs.Update
If FoundErr = False Then
er=isover(Rs("companyid"))
if er=False then
Call Message ( "您的空间已经到期,要继续使用本系统，请联系我们的客服(13915064582)。","admin_login.asp")
Call EndExit()
end if
Session("AdminName") = trim(Rs("username"))
Session("truename") = trim(Rs("truename"))
Session("AdminPass") = Rs("password")
Session("AdminGrade") = trim(Rs("AdminGrade"))
Session("Adminflag") = Rs("Adminflag")
Session("AdminStatus") = trim(Rs("Status"))
Session("AdminRandomCode") = RandomCode
Session("AdminID") = Rs("id")
session("companyid")=Rs("companyid")'公司id号
session("url")=Rs("url")'公司域名
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("oaadmin/index.asp")
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=""inc/getcode.asp"">"
End If
End Function
%>
</div>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -