📄 manunlockok.asp

📁 此程序为网上下载
💻 ASP
字号:
<%@ codepage ="936" %>
<%Response.Buffer = True
Response.Expires = 0
Response.CacheControl = "Private"
nickname=Session("hxf_u_nickname")
grade=Int(Session("hxf_u_grade"))
inthechat=Session("hxf_u_inthechat")
userip=Request.ServerVariables("REMOTE_ADDR")
if nickname="" then Response.Redirect "manerr.asp?id=100"
If grade <> 12 Then
     qx = Split(Application("wsaxhxf_c_grade" & grade), "{]")
     If qx(8) <> "1" Then Response.Redirect "manerr.asp?id=210"
end if
if inthechat<>"1" and nickname<>"聊天室管理员" 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")))
logok=Trim(Request.Form("logok"))
if grade<>"12" or Session("ipbt")<>1 then logok="1"
if logok<>"0" then logok="1"
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("wsaxhg_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
if logok="1" then
sql = "INSERT INTO logs (type, logtime, name, ip, opertion) VALUES ('0', '" & sj & "', '" & nickname & "', '" & userip & "', '解锁IP：<font color=red>" & unlockip & "</font>！<br><font color=009900>【原因：" & unlockwhy & "】</font>')"
conn.Execute sql
end if
conn.close
set conn=nothing
Session("hxf_u_lasttime")=sj
Application.Lock
sd=Application("wsaxhxf_c_sd")
line=int(Application("wsaxhxf_c_line"))
Application("wsaxhxf_c_line")=line+1
Dim newsd(180)
j=1
for i=10 to 180 step 9
 newsd(j)=sd(i)
 newsd(j+1)=sd(i+1)
 newsd(j+2)=sd(i+2)
 newsd(j+3)=sd(i+3)
 newsd(j+4)=sd(i+4)
 newsd(j+5)=sd(i+5)
 newsd(j+6)=sd(i+6)
 newsd(j+7)=sd(i+7)
 newsd(j+8)=sd(i+8)
 j=j+9
next
newsd(172)=line+1
newsd(173)=1
newsd(174)=0
newsd(175)=nickname
newsd(176)="大家"
newsd(177)="660099"
newsd(178)="660099"
newsd(179)="对"
newsd(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("wsaxhxf_c_sd")=newsd
Application.UnLock%><html>
<head>
<title>解锁ＩＰ</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="#FFFFFF" class=p150>
<div align="center">
<h1><font color="0099FF">【解锁ＩＰ】</font></h1>
</div>
<hr noshade size="1" color=009900>
<b>［操作完成］</b> <br>
　　该 IP 已经被解锁，可以正常登录。你刚才的操作<%if logok="0" then Response.Write "<font color=red>没有</font>"%>被记录在公开栏中。 
<hr noshade size="1" color=009900>
<br>
<table border="1" cellspacing="0" cellpadding="10" bgcolor="E0E0E0" bordercolorlight="#000000" bordercolordark="#FFFFFF" align="center">
<form>
<tr>
<td>
<p><%=sj%></p>
<p><%=nickname&"("&userip&")"%></p>
<p><%=unlocklog%></p>
<div align="center">
<input type="button" value="返回" onclick="javascript:history.go(-2)">
</div>
</td>
</tr>
</form>
</table>
<br>
<hr noshade size="1" color=009900>
<div align=center class=cp><%Response.Write "序列号：<font color=blue>" & Application("wsaxhxf_c_sn") & "</font>，授权给：<font color=blue>" & Application("wsaxhxf_c_user") & "</font><br><font color=999999>" & Application("wsaxhxf_c_copyright") & "</font>"%></div>
</body>
</html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -