📄 manunlockok.asp
字号:
<%Response.Expires=0
nickname=Session("hxf_u_nickname")
grade=Int(Session("hxf_u_grade"))
inthechat=Session("hxf_u_inthechat")
userip=Request.ServerVariables("REMOTE_ADDR")
if nickname="" or session("mypai")<>"六扇门" then Response.Redirect "manerr.asp?id=100"
if grade<10 then Response.Redirect "manerr.asp?id=200"
if inthechat<>"1" then Response.Redirect "manerr.asp?id=211"
unlockip=Server.HTMLEncode(Trim(Request.Form("unlockip")))
if unlockip="" then Response.Redirect "manerr.asp?id=218"
unlockwhy=Server.HTMLEncode(Trim(Request.Form("unlockwhy")))
if unlockwhy="" then Response.Redirect "manerr.asp?id=216"
if len(unlockwhy)>60 then unlockwhy=Left(unlockwhy,60)
n=Year(date())
y=Month(date())
r=Day(date())
s=Hour(time())
f=Minute(time())
m=Second(time())
if len(y)=1 then y="0" & y
if len(r)=1 then r="0" & r
if len(s)=1 then s="0" & s
if len(f)=1 then f="0" & f
if len(m)=1 then m="0" & m
t=s & ":" & f & ":" & m
sj=n & "-" & y & "-" & r & " " & t
Set conn=Server.CreateObject("ADODB.CONNECTION")
Set rs=Server.CreateObject("ADODB.RecordSet")
connstr=Application("hg_connstr")
conn.open connstr
sql="SELECT ip FROM iplocktemp WHERE ip='" & unlockip & "'"
rs.open sql,conn,1,1
if rs.Eof and rs.Bof then
rs.close
conn.close
set rs=nothing
set conn=nothing
Response.Redirect "manerr.asp?id=217"
end if
rs.close
set rs=nothing
sql="DELETE FROM iplocktemp WHERE ip='" & unlockip & "'"
conn.Execute sql
Function SqlStr(data)
SqlStr="'" & Replace(data,"'","''") & "'"
End Function
unlocklog="解锁IP：<font color=red>" & unlockip & "</font><font color=009900>[原因：" & unlockwhy & "]</font>"
'记录在案
sql="INSERT INTO logdata (logtime,name,ip,opertion) VALUES ("
sql=sql & SqlStr(sj) & ","
sql=sql & SqlStr(nickname) & ","
sql=sql & SqlStr(userip) & ","
sql=sql & SqlStr(unlocklog) & ")"
conn.Execute sql
conn.close
set conn=nothing
Session("hxf_u_lasttime")=sj
Application.Lock
sd=Application("hxf_c_sd")
line=int(Application("hxf_c_line"))
Application("hxf_c_line")=line+1
for i=1 to 171
sd(i)=sd(i+9)
next
sd(172)=line
sd(173)=1
sd(174)=0
sd(175)="消息"
sd(176)="大家"
sd(177)="660099"
sd(178)="660099"
sd(179)="对"
sd(180)="<font color=black>【解锁】</font><font color=8800FF><font color=red>" & nickname & "</font>解锁IP：<font color=red>" & unlockip & "</font>！〖原因：" & unlockwhy & "〗</font><font class=t>(" & t & ")</font>"
Application("hxf_c_sd")=sd
Application.UnLock%><html>
<head>
<title>解锁IP</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="readonly/style.css">
</head>
<BODY oncontextmenu=self.event.returnValue=false bgcolor="#000000" class=p150 text="#FFFFFF">
<p><br></p>
<table border="1" cellspacing="0" cellpadding="10" bordercolorlight="#808000" bordercolordark="#000000" align="center">
<form>
<tr>
<td align="center">
<p><%=sj%></p>
<p><%=nickname&"("&userip&")"%></p>
<p><%=unlocklog%></p>
<div align="center">
<input type="button" value="返回" onclick="javascript:history.go(-1)">
</div>
</td>
</tr>
</form>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -