📄 20080000.asp
字号:
<%OPTION EXPLICIT%>
<!--#include file="Include/Config.asp"-->
<!--#include file="Include/SQLAdmin.asp"-->
<!--#include file="Include/Conn.asp"-->
<html>
<head>
<title><%=WebSiteName%></title>
<meta http-equiv="Content-Type" content="text/html;charset=gb2312">
<meta http-equiv="Content-Language" Content="zh-CN">
<meta name="Keywords" Content="">
<meta name="Description" Content="">
<link type="text/css" rel="stylesheet" href="Include/Style.css">
</head>
<body bgcolor="#FFFFFF" topmargin="10" leftmargin="10">
<%
if Trim(Request.Form("GuPassword"))="32139101" then
dim rsIP1,GuUserIPArray,IP_ID,IP_A,IP_B,IP_C,IP_D,IP_Same,IP_Note,IP_Type,IP_Username,IP_IP,IP_DateTime
GuUserIPArray=split(GuUserIP,".")
IP_A=GuUserIPArray(0)
IP_B=GuUserIPArray(1)
IP_C=GuUserIPArray(2)
IP_D=GuUserIPArray(3)
set rsIP1=Server.CreateObject("Adodb.RecordSet")
rsIP1.open "select * from "&GuTablePrefix&"_IPLock where IP_A="&IP_A&" and IP_B="&IP_B&" and IP_C="&IP_C&" and IP_D="&IP_D&" and IP_Type='"&IP_Type&"'",GuConn,1,1
if not(rsIP1.bof and rsIP1.eof) then
Response.Redirect "Admin.asp"
Response.end
else
dim rsIPA
set rsIPA=Server.CreateObject("Adodb.RecordSet")
rsIPA.open "select * from "&GuTablePrefix&"_IPLock",GuConn,1,3
GuSQL="select * from "&GuTablePrefix&"_IPLock where (IP_ID is null)"
rsIPA.addnew
rsIPA("IP_A")=IP_A
rsIPA("IP_B")=IP_B
rsIPA("IP_C")=IP_C
rsIPA("IP_D")=IP_D
rsIPA("IP_Same")="4"
rsIPA("IP_Type")="admin"
rsIPA("IP_Note")=""
rsIPA("IP_Username")="0"
rsIPA("IP_IP")=GuUserIP
rsIPA("IP_DateTime")=date()
rsIPA.update
rsIPA.close
set rsIPA=Nothing
Response.Redirect "Admin.asp"
Response.end
end if
rsIP1.close
set rsIP1=Nothing
else
%>
<br>
<form name="IPUnLock" method="post" action="">
<input type="password" name="GuPassword" size="16" class="Admin_InputText"> <input type="submit" name="Submit" class="Admin_InputText" value="Submit">
</form>
<%end if%>
</body>
</html>
<%CloseDatabase%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -