📄 admin.asp
字号:
<!--#include file="include/dbopenbd.asp"-->
<!--#include file="md5.asp"-->
<HTML>
<HEAD>
<TITLE>管理员登陆</TITLE>
<script language='javascript'>
if (top != self)top.location.href = "admin.asp";
</script>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="include/css.css" type="text/css">
</head>
<body text="#000000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" background="images/admin/loginbg.gif">
<table width=100% height=100% align=center valign=middle background="images/admin/loginbg.gif" >
<tr><td align=center>
<%
if request("login")<>"check" then
%>
<table border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="323" height="202" background="IMAGES/admin/login1.gif"> </td>
<td width="323" height="202" background="IMAGES/admin/login2.gif" valign="bottom" align=center>
<table border=0 width=92% cellspacing="1" cellpadding="2" >
<form method="post" action="admin.asp" name="adminlogin">
<tr><td>
<INPUT maxLength=16 size=16 type=text name=username style="border:0px solid #ffffff; FONT-SIZE: 9pt; HEIGHT: 16px; color:#FFFFFF" title="请填写用户名">
</td></tr>
<tr><td>
<INPUT maxLength=16 size=16 type=password name=password style="border:0px solid #ffffff; FONT-SIZE: 9pt; HEIGHT: 16px; color:#FFFFFF" title="请填写密码">
</td></tr>
<tr><td>
<INPUT maxLength=50 size=16 type=text name=path style="border:0px solid #ffffff; FONT-SIZE: 9pt; HEIGHT: 16px; color:#FFFFFF" title="请填写后台目录">
</td></tr>
<tr><td height="32">
<input type="image" src="images/admin/login.gif" title="登录后台"><input type="hidden" name=login value="check"> <img border=0 src="images/admin/quit.gif" title="返回首页" style='cursor: hand' onClick="location.href='main.asp';">
</td></tr>
</form>
</table>
</td>
</tr>
<tr>
<td width="323" height="202" background="IMAGES/admin/login3.gif"></td>
<td width="323" height="202" background="IMAGES/admin/login4.gif"></td>
</tr>
</table>
<%
else
if session("buyok_admin_login")>=5 then
Set rs=Server.CreateObject("ADODB.RecordSet")
sql="select * from s_config"
rs.open sql,conn,1,3
userip=Request.serverVariables("REMOTE_ADDR")
if instr(rs("ip"),userip)<0 then rs("ip")=rs("ip")&"@"&userip
rs.update
rs.close
set rs=nothing
response.write "<script language='javascript'>"
response.write "alert('您涉嫌非法登陆网站后台，已被系统锁定。请与技术人员联系。');"
response.write "location.href='index.asp';"
response.write "</script>"
response.end
end if
path=trim(request("path"))
username=trim(request("username"))
password=trim(request("password"))
if buyoktxtcheck(request("username"))<>request("username") or buyoktxtcheck(request("password"))<>request("password") then
mGoBack "您填写的内容中含有非法字符，请检查后重新输入！"
end if
if path = "" or username="" or password="" then mGoBack"填写不完整，请检查后重新提交！"
Set fso = Server.CreateObject("Scripting.FileSystemObject")
if fso.FolderExists(server.MapPath("./"&path))=false then
session("buyok_admin_login")=session("buyok_admin_login")+1
mGoBack "您填写的目录不存在，请检查后重新提交。\n\n提示：出错"&session("buyok_admin_login")&"次"
end if
set fso=nothing
set rs=conn.execute("select * from s_manage where password='"&md5(password)&"' and username='"&username&"'")
if not(rs.bof and rs.eof) then
session("buyok_admin_login")=0
Response.cookies("buyok")("admin")=username '设置cookies
session("admin")="on"
Response.Redirect (path&"/index.asp") '登入真实后台
else
response.write "<script language='javascript'>"
session("buyok_admin_login")=session("buyok_admin_login")+1
mGoBack "您填写的用户名或者密码有误，请检查后重新输入。\n\n提示：出错"&session("buyok_admin_login")&"次"
end if
set rs=nothing
conn.close
set conn=nothing
end if
%>
</td></tr>
</table>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -