📄 ip.asp
字号:
<%@ LANGUAGE=VBScript%>
<%Response.Expires=0
if Session("a_c_user_name")="" then
Response.write "<b>[操作失败]</b><p>您尚未登录（或已经超时退出），不能进行此操作！"
Response.end
end if
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
sj = s & ":" & f & ":" & m
sj2= n & "-" & y & "-" & r & " " & sj
Application.Lock
wjs=1
for i=1 to Application("a_c_ip_locknum") step 2
if DateDiff("n",Application("a_c_ip_lock"&(i+1)),sj2)>=30 then
Application("a_c_ip_locknum")=Application("a_c_ip_locknum")-2
else
Application("a_c_ip_lock"&wjs)=Application("a_c_ip_lock"&i)
Application("a_c_ip_lock"&(wjs+1))=Application("a_c_ip_lock"&(i+1))
wjs=wjs+2
end if
next
Application.UnLock
lip=Trim(Request.QueryString("lockip"))%><html>
<head>
<title>ＩＰ管理</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type='text/css'>
<!--
.p9 {line-height: 150%; font-size: 9pt;}
.p12 {line-height: 150%; font-size: 12pt;}
td {line-height: 150%; font-size: 9pt;}
body {line-height: 150%;font-size : 12pt;}
A {text-decoration: none;}
A:Hover {text-decoration : none;}
a:visited { color: #0000FF}
-->
</style>
<script language="javaScript">
function load()
{var name=navigator.appName
var vers=navigator.appVersion
if(name=="Netscape")
{window.location.reload()
}else
{history.go(0)
}}
function lock(ip){
document.lock.lockip.value=ip;
}
function unlock(ip){
document.unlock.unlockip.value=ip;
}
</script>
</head>
<body bgcolor="FFFFFF">
<h1 align="center"><font color="0099FF"><a name="1"></a>【ＩＰ管理】</font></h1>
<hr noshade size="1" color=009900>
<form method="post" action="">
<div align="center">
<input type="button" value="刷新" onClick=load() style="font-size:12pt" name="button">
</div>
</form>
<p><b>［功能说明］</b> <%=sj2%> 被锁定的IP有 <font color="FF0000"><b><%=Application("a_c_ip_locknum")/2%></b></font>
个</p>
<blockquote>
<p>本功能用于封锁、解锁ＩＰ地址，被封锁的ＩＰ，在３０分钟内无法登录。<br>
封锁、解锁操作将被记录在“聊务公开”栏中。</p>
<p><font color="FF0000">注：只有拥有８级以上的权限才能执行此项操作。（您目前为 <%=Session("a_c_user_level")%>
级）</font></p>
</blockquote>
<%if Session("a_c_user_level")>=8 then%>
<form method="post" action="iplock.asp" name="lock">
<font color="0000FF"> 封锁IP地址：</font>
<input type="text" name="lockip" size="15" maxlength="15" style="font-size:12pt" value="<%=lip%>">
<font color="#0000FF">原因：</font>
<input type="text" name="lockwhy" size="20" maxlength="100" style="font-size:12pt">
<input type="submit" value="封锁" style="font-size:12pt">
</form>
<form method="post" action="ipunlock.asp" name="unlock">
<font color="0000FF"> 解锁IP地址：</font>
<input type="text" name="unlockip" size="15" maxlength="15" style="font-size:12pt">
<font color="#0000FF">原因：</font>
<input type="text" name="unlockwhy" size="20" maxlength="100" style="font-size:12pt">
<input type="submit" value="解锁" style="font-size:12pt" name="submit">
</form>
<hr noshade size="1" color=009900>
<table width="80%" border="0" align="center">
<tr><td><font color="FF0000">序号</font></td><td><font color="FF0000">被封的 IP 地址</font></td><td><font color="FF0000">封锁时刻</font></td><td><font color="FF0000">解锁时间</font></td><td><font color="FF0000">封锁</font></td><td><font color="FF0000">解锁</font></td></tr>
<%xh=0
for i=1 to Application("a_c_ip_locknum") step 2
xh=xh+1%><tr><td><%=xh%></td><td><%=Application("a_c_ip_lock"&i)%></td><td><%=Application("a_c_ip_lock"&(i+1))%></td><td><%=30-DateDiff("n",Application("a_c_ip_lock"&(i+1)),sj2)%> 分钟</td><td><a href=javascript:lock("<%=Application("a_c_ip_lock"&i)%>")>封锁</a></td><td><a href=javascript:unlock("<%=Application("a_c_ip_lock"&i)%>")>解锁</a></td></tr>
<%next%></table>
<hr noshade size="1" color=009900>
<p><b><%if Session("a_c_user_level")>=10 then%>［永久封锁］</b></p>
<blockquote>
<p>请在下表中输入欲永久封锁的IP地址，格式为：“<font color="#FF0000">10.154.15.55;202.210.2.5;</font>”（即每个IP地址后面使用分号隔开）。同时也可以输入“<font color="#FF0000">10.154.15.*</font>”、“<font color="#FF0000">10.154.*.*;</font>”、“<font color="#FF0000">10.*.*.*;</font>”这样的格式来封锁整个地址段。但是不能出现这样的格式“<font color="#0000FF">10.<font color="#FF0000">*</font>.12.1;</font>”（即星号不能出现在中间）。然后点击“<b>提交</b>”即可永久封锁这些IP。要解除封锁，请从下表中删除对应的IP再提交即可。使用“<b>重载</b>”来恢复iplocked.txt中的值。
</p>
</blockquote>
<form method="post" action="iplocked.asp">
<table border="0" align="center" bgcolor="#E0E0E0" cellpadding="5">
<tr align="center">
<td><span class="p12"><font color="#FF0000"><b>下表中的IP或IP段将被禁止登录：</b></font></span><br>
<textarea name="yjlock" cols="60" rows="10" style="font-size:12pt"><%=Application("a_c_ip_locked")%></textarea>
</td>
</tr>
<tr align="center">
<td>
<input type="submit" name="iplocked" value="提交" style="font-size:12pt">
<input type="submit" name="iplocked" value="重载" style="font-size:12pt">
</td>
</tr>
</table>
</form>
<%end if%>
<div align="center">
<hr noshade size="1" color=009900>
<a href="#1">返回页首</a></div>
<%end if%>
<hr noshade size="1" color=009900>
<div align="center" class="p9"><script src="use.asp"></script> <script src="sn.asp"></script><br><script src="copyright.asp"></script></div>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -