📄 admin_login.asp
字号:
<!--#include file="connshop.asp"-->
<!--#include file="include/md5.asp"-->
<HTML>
<head>
<META CONTENT=56770网络商城,购物系统, 网络商城，56770网络购物系统, NAME=Keywords>
<META CONTENT="56770网络商城,购物系统, 网络商城，56770网络购物系统" NAME=Description>
<meta name="author" content="小寒,56770@56770.com">
<meta http-equiv="Content-Type" content="text/html; charset=Utf-8">
<BASE onmouseover="window.status='您的IP已记录 <%=request.servervariables("remote_addr")%>';return true">
</head>
<style>
body{background-color: #5881F7;}
TD{font-family:宋体; font-size: 12px;}
.form{background:url(images/input_bg1.gif);color: #727C97; border: 1px #348CE6 solid; FONT-FAMILY: "宋体"; FONT-SIZE: 14pt; font-weight:bold; background-color: #FFFFFF; width:142px;height:25px;}
.form2{background:url(images/input_bg1.gif);color: #727C97; border: 1px #348CE6 solid; FONT-FAMILY: "宋体"; FONT-SIZE: 14pt; font-weight:bold; background-color: #FFFFFF; width:81px;height:25px;}
.fontw{color:#BACFFF;font-weight:bold;font-size:16px;font-family:楷体;}
</style>
<body>
<%
Function ChkLoginIP(AcceptIP,ChkIp)
Dim i,LoginIP,TempIP
ChkLoginIP = False
If Instr("|"&AcceptIP&"|","|"&ChkIp&"|") Then ChkLoginIP = True : Exit Function
LoginIP = Split(ChkIp,".")
TempIP = LoginIP(0)&"."&LoginIP(1)&"."&LoginIP(2)&".*"
If Instr("|"&AcceptIP&"|","|"&TempIP&"|") Then ChkLoginIP = True : Exit Function
TempIP = LoginIP(0)&"."&LoginIP(1)&".*.*"
If Instr("|"&AcceptIP&"|","|"&TempIP&"|") Then ChkLoginIP = True : Exit Function
TempIP = LoginIP(0)&".*.*.*"
If Instr("|"&AcceptIP&"|","|"&TempIP&"|") Then ChkLoginIP = True : Exit Function
End Function
dim admin_name,admin_pass,verifycode,adminip,rs,sql
if request("action")="login" then
admin_name=replace(request.form("admin_name"), "'","’")
admin_pass=md5(replace(request.form("admin_pass"), "'","’"))
verifycode= request.form("verifycode")
adminip = request.servervariables("remote_addr")
if admin_name="" or admin_pass="" then
response.write"<SCRIPT language=JavaScript>alert('用户名或密码错误！');javascript:history.go(-1)</SCRIPT>"
response.end
end if
if verifycode <> cstr(Session("verifycode"))then
response.Write "<script LANGUAGE='javascript'>alert('验证码错误！');history.go(-1); </script>"
response.end
end if
set rs=server.createobject("adodb.recordset")
sql="select * from [56770_adminuser] where admin_name='"&admin_name&"' and admin_pass='"&admin_pass&"'"
rs.open sql, conn, 1, 3
if rs.eof then
response.write"<SCRIPT language=JavaScript>alert('用户名或密码错误！');javascript:history.go(-1)</SCRIPT>"
response.end
elseIf Rs("AcceptIP")<>"" and ChkLoginIP(Rs("AcceptIP"),adminip)=False Then
response.write"<SCRIPT language=JavaScript>alert('您的IP不允许登陆！');javascript:history.go(-1)</SCRIPT>"
response.end
else
session("admin_name")=rs("admin_name")
Session("flag")=Rs("flag")
Conn.Execute("Update [56770_adminuser] Set LastLogin="&sqlnowstring&",LastLoginIP='"&adminip&"',logins=logins+1 Where admin_Name='"&admin_Name&"'")
conn.execute("insert into [56770_admin_log](l_name,l_logintime,l_loginip)values('"&session("admin_name")&"',"&sqlnowstring&",'"&adminip&"')")
end if
rs.close
set rs=nothing
response.redirect"admin/manage.asp"
end if
%>
<br><br><br>
<table id="__01" width="304" height="325" border="0" cellpadding="0" cellspacing="0" align="center">
<form method="POST" action="?action=login">
<tr>
<td rowspan="4">
<img src="images/admin/1_01.jpg" width="18" height="325" alt=""></td>
<td><img src="images/admin/1_02.jpg" width="269" height="79" alt=""></td>
<td rowspan="4">
<img src="images/admin/1_03.jpg" width="17" height="325" alt=""></td>
</tr>
<tr>
<td background="images/admin/1_04.jpg" width="269" height="111">
<table cellspacing="0" cellpadding="0" align="center">
<tr>
<td height="22"><span class=fontw>用户名：</span><input name=admin_name size="17" class="form"></td>
</tr>
<tr><td height="22"><span class=fontw>密 码：</span><input name=admin_pass type="password" size="18" class="form"></td></tr>
<tr><td height="22"><span class=fontw>验证码：</span><input name=verifycode size=4 class=form2 style="width:70px;"> <img src="verifycode.asp" height="15"></img></td></tr>
</table>
</td>
</tr>
<tr>
<td background="images/admin/1_05.jpg" width="269" height="53" align="center"> <input type=image src="images/admin_login.jpg" name=submit value="登陆"></td>
</tr>
<tr>
<td>
<img src="images/admin/1_06.jpg" width="269" height="82" alt=""></td>
</tr>
</table>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -