📄 admin_login.asp
字号:
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%Session.CodePage=936%>
<!--#include file="setting.asp" -->
<!--#include file="../include/Conn.asp"-->
<!--#include file="../Include/check.asp"-->
<!--#include file="../other/zf11_Md5.asp" -->
<%
response.expires = -1
if request("Action")="zf11Sys_LoginCheck" then
username=Checkin(trim(Request.form("username")))
password=Checkin(replace(trim(Request.Form("password")),"'","''"))
Md5_Pass=md5(password)
'response.write(Md5_Pass)
'response.end
zf11Sys_CheckCode=replace(trim(Request("zf11Sys_CheckCode")),"'","")
if username="" or password="" then
Response.write"<script>alert(""用户名和密码不能为空！ "&Copyright&" "");location.href=""Admin_Login.asp"";</script>"
Response.end
end if
if zf11Sys_CheckCode<>CStr(session("CheckCode")) then
Response.write"<script>alert(""验证码不正确，请刷新后重新登陆 "&Copyright&" "");location.href=""Admin_Login.asp"";</script>"
Response.end
end if
set rs=server.createobject("adodb.recordset")
sql="select * from admin where username='"&username&"'and password='"&Md5_Pass&"'"
rs.open sql,conn,1,3
if not rs.EOF then
rs("LoginTimes")=rs("LoginTimes")+1
rs("LoginTime")=now()
rs("LoginIP")=Request.ServerVariables("REMOTE_ADDR")
rs.Update
Session(zf11ManageAdminID)=Rs("id")
Session(zf11ManageUser)=Rs("username")
Session(zf11ManageSession)=true
Session(zf11ManageKey)=Rs("Oskey")
'Session("Admin") = "Login"
Response.Redirect ("Admin.asp")
else
errmsg="请输入正确的管理员名字和密码！"
call error()
Response.End
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
end if
if request("Action")="LoginOut" then
IsAdmin=session(zf11ManageSession)
If IsAdmin=true Then
set rs=server.createobject("adodb.recordset")
AdminID=session(zf11ManageAdminID)
sql="select * from admin where id="&AdminID
rs.open sql,conn,1,3
if not rs.EOF then
rs("LogoutTime")=now()
rs.Update
Session(zf11ManageAdminID)=""
Session(zf11ManageUser)=""
Session(zf11ManageSession)=""
Session(zf11ManageKey)=""
'Session("Admin")=""
rs.Close
set rs=nothing
else
response.write"数据出错！"
Response.end
end if
end if
conn.close
set conn=nothing
Response.Write "<script>location.href=""javascript:window.close()"";</script>"
'response.redirect ("Index.asp")
'Response.Write "<script>alert(""退出成功!"");location.href=""javascript:window.close()"";</script>"
end if
%>
<HTML>
<HEAD>
<TITLE>后台管理_中国站长俱乐部Club.Cn0797.Cn</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../other/zf11_style.css" rel="stylesheet" type="text/css">
<STYLE type=text/css>.style2 {
FONT-WEIGHT: bold; COLOR: #ffffff
}
.style3 {
FONT-SIZE: 12px
}
.style4 {
FONT-WEIGHT: bold; FONT-SIZE: 12px; COLOR: #ffffff
}
BODY {
MARGIN: 0px
}
</STYLE>
</HEAD>
<BODY bgColor=#FFFFFF topMargin=0 leftmargin="0" >
<p> </p>
<form name="login" method="post" action="Admin_login.asp?Action=zf11Sys_LoginCheck" target="_top">
<table width="100%" height="80%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td>
<TABLE cellSpacing=0 cellPadding=0 width=372 align=center border=0>
<TBODY>
<TR>
<TD colSpan=3><IMG height=49 src="../images/admin_03.gif" width=385></TD>
</TR>
<TR>
<TD vAlign=top align=left width=16 rowSpan=2><IMG height=204
src="../images/admin_06.gif" width=16></TD>
<TD height=175> <TABLE cellSpacing=0 cellPadding=0 width=348 border=0>
<TBODY>
<TR>
<TD height=165> <DIV align=center>
<CENTER>
<table id=AutoNumber1 style="BORDER-COLLAPSE: collapse"
bordercolor=#e0e1db height=107 cellspacing=0 cellpadding=0 width=255
border=1>
<tbody>
<tr>
<td bgcolor=#EFEFEF>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="38%" height="30" align="right">管理帐号：</td>
<td width="62%" height="30"> <input name="username" type="text" id="UserName5" style="BORDER-RIGHT: 1px solid; BORDER-TOP: 1px solid; BORDER-LEFT: 1px solid; WIDTH: 110px; BORDER-BOTTOM: 1px solid"
maxlength="20" class="login"></td>
</tr>
<tr>
<td height="30" align="right">管理密码：</td>
<td height="30"> <input name="password" type="password" id="Password3" maxlength="20" class="login" style="BORDER-RIGHT: 1px solid; BORDER-TOP: 1px solid; BORDER-LEFT: 1px solid; WIDTH: 110px; BORDER-BOTTOM: 1px solid"></td>
</tr>
<tr>
<td height="30" align="right"><font color="#000000">验证码</font>：</td>
<td height="30"> <input name="zf11Sys_CheckCode" type="text" class="login" id="zf11Sys_CheckCode" size=12 maxlength="20" style="BORDER-RIGHT: 1px solid; BORDER-TOP: 1px solid; BORDER-LEFT: 1px solid; WIDTH: 70px; BORDER-BOTTOM: 1px solid"> <img src="../other/zf11_GetCode.asp">
</td>
</tr>
</table>
</td>
</tr>
</tbody>
</table>
</CENTER>
</DIV></TD>
</TR>
<TR>
<TD vAlign="top" align="center" height=31> <input type="submit" name="Submit3" value=" 登陆 ">
<A href="GetPassWd.jsp">
<input type="reset" name="Submit2" value=" 重置 ">
</A> </TD>
</TR>
</TBODY>
</TABLE></TD>
<TD vAlign=top width=12 rowSpan=2><IMG height=204
src="../images/admin_077.gif" width=12></TD>
</TR>
<TR>
<TD width=357 height=9><IMG height=9 src="../images/admin_14.gif"
width=357></TD>
</TR>
</TABLE></td>
</tr>
</table>
</form>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -