📄 manunlock.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")
if nickname="" then Response.Redirect "manerr.asp?id=100"
If grade <> 12 Then
qx = Split(Application("wsaxhxf_c_grade" & grade), "{]")
If qx(8) = "0" And qx(9) = "0" Then Response.Redirect "manerr.asp?id=210"
end if
if inthechat<>"1" and nickname<>"聊天室管理员" then Response.Redirect "manerr.asp?id=211"
lockname=Trim(Request.QueryString("id"))
lockip=Trim(Request.QuerySTring("ip"))
if lockname<>"" and lockip="" then Response.Redirect "manerr.asp?id=212"
if CStr(lockname)=CStr(nickname) then Response.Redirect "manerr.asp?id=213"
Set conn=Server.CreateObject("ADODB.CONNECTION")
Set rs=Server.CreateObject("ADODB.RecordSet")
connstr=Application("wsaxhg_connstr")
conn.open connstr
sql="SELECT ip,lockdate,locker FROM iplocktemp"
rs.open sql,conn,1,1
totalrec=rs.RecordCount
if totalrec>0 then
Dim show()
i=1
Do while Not rs.Eof
Redim Preserve show(i),show(i+1),show(i+2)
show(i)=rs("ip")
show(i+1)=rs("lockdate")
show(i+2)=rs("locker")
i=i+3
rs.MoveNext
Loop
end if
rs.close
conn.close
set rs=nothing
set conn=nothing
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%>
<html>
<head>
<title>ＩＰ管理</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="readonly/style.css">
<Script Language=JavaScript>function ulk(ip){document.forms[0].unlockip.value=ip;document.forms[0].unlockwhy.focus();}</Script>
</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 的操作会被记录在“聊务公开”栏中，供广大聊友监督！<br>
被封锁的 IP 在 <font color=red><%=Application("wsaxhxf_c_iplocktime")%></font> 分钟内不能登录。之后系统会自动解锁该 IP。
<hr noshade size="1" color=009900>
<table border="1" cellpadding="5" cellspacing="0" bgcolor="#D8D0C8" bordercolorlight="#000000" bordercolordark="#FFFFFF" align="center">
<form method="post" action="manunlockok.asp">
<tr>
<td>
<table border="0">
<tr>
<td>解锁ＩＰ：</td>
<td>
<input type="text" name="unlockip" size="15" maxlength="15" readonly>
</td>
</tr>
<tr>
<td>解锁原因：</td>
<td>(<=60字符)</td>
</tr>
<tr>
<td>
<select name="select" onChange="javascript:document.forms[0].unlockwhy.value=this.value;document.forms[0].unlockwhy.focus();">
<option value="" selected>自填</option>
<option value="封锁时不小心搞错了。">误操作</option>
<option value="对方已经改过，请求解锁IP。">悔过</option>
<option value="这个IP是网吧的，封锁后都上不来了。">网吧</option>
<option value="这个IP是代理地址，封锁后都上不来了。">代理</option>
</select>
</td>
<td>
<input type="text" name="unlockwhy" maxlength="60" size="50">
</td>
</tr><%if Session("hxf_u_grade")="10" and Session("ipbt")="1" then%>
<tr>
<td>选 项：</td>
<td>
<input type="radio" name="logok" value="1" checked>记入聊务公开栏
<input type="radio" name="logok" value="0">不记入聊务公开栏</td>
</tr><%end if%>
</table>
<div align="center">
<input type="submit" name="Submit" value="解锁">
<input type="reset" name="reset" value="重写">
<input type="button" value="放弃" onclick="javascript:history.go(-1)">
</div>
</td>
</tr>
</form>
</table>
<hr noshade size="1" color=009900>
<div align=center>共 <font color=red><%=totalrec%></font> 个 <a href=javascript:history.go(0)>刷新</a></div>
<table border="0" cellpadding="4" cellspacing="1" bordercolorlight="#999999" bordercolordark="#FFFFFF" bgcolor="#009AFF" align="center" bordercolor="#009AFF">
<tr bgcolor="#0099FF">
<td><font color="#FFFFFF">序号</font></td>
<td><font color="#FFFFFF">封 锁 者</font></td>
<td><font color="#FFFFFF">封 锁 时 间</font></td>
<td><font color="#FFFFFF">被封锁的IP地址</font></td>
<td><font color="#FFFFFF">已封锁时长</font></td>
<td><font color="#FFFFFF">立即解锁</font></td>
</tr><%if totalrec>0 then
for i=1 to UBound(show) step 3%>
<tr onmouseout="this.bgColor='#F0F0F0';"onmouseover="this.bgColor='#DFEFFF';" bgcolor="#F0F0F0">
<td><%=(i+2)/3%></td>
<td><%=show(i+2)%></td>
<td><%=show(i+1)%></td>
<td><%=show(i)%></td>
<td><%=DateDiff("n",show(i+1),sj)&" "%>分钟</td>
<td><a href="javascript:ulk('<%=show(i)%>')">Ｕ</a></td>
</tr><%next
end if%></table>
<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 + -