您的IP：<%=User_Ip%>
<% Talesql="select boolbase from IpLockFlag" Set Talers=server.createobject("adodb.recordset") Talers.open Talesql,Conn,1,1 if not(Talers.bof and Talers.eof) then Boolbase=split(talers("boolbase"),"|") End if Talers.close Set Talers=nothing Sub Erasearraybase() Erase boolbase End Sub %> <% Call DoNoIpLock Operate=Trim(Request("operate")) If Operate="del" Then DelLock ElseIf Operate="save" Then Call SaveLock Else Call LockList End if Sub Locklist Set Talers=Conn.ExeCute("Select * from IpLock order by ipid desc") If Not Talers.Eof Then i=0 %> =封锁IP列表=
<% Do while Not Talers.eof i=i+1 Dim WhyIpLock WhyIpLock=split(TaleRS("iplock"),"|") %> <%=i%>. <%=RealLock(Talers("ipsame"),Talers("ip1"),Talers("ip2"),Talers("ip3"),Talers("ip4"))%> <%=WhyIPLOck(1)%> 删除
<% Talers.Movenext Loop Else Response.Write"目前没有IP封锁的记录" End If Talers.Close Set Talers=Nothing Call LockAdd End Sub Sub LockAdd %>
-----------
IP地址： . . .
IP段数： <% For i=1 to 4 Response.write"前 "&i&" 段相同" Next %>
原因说明：
封锁IP
<% End Sub Sub SaveLock DIm IPArr(3) For i=0 to 3 IPArr(i)=Trim(request.form("ip"&i+1&"")) If IpArr(i)="" Or IsNumeric(IpArr(i))=False Then response.write ("错误提示：第"&i+1&"段必须数字") response.write"
返回IP管理
" Exit Sub End If Next Lockss=Cint(IPArr(0))&"."&Cint(IPArr(1))&"."&Cint(IPArr(2))&"."&Cint(IPArr(3)) if Lockss=User_Ip then call error("请不要尝试封锁自己的IP！") End If Conn.Execute("insert into IpLock (ip1,ip2,ip3,ip4,ipsame,iplock) values ("&Cint(IPArr(0))&","&Cint(IPArr(1))&","&Cint(IPArr(2))&","&Cint(IPArr(3))&","&Cint(Request.Form("ipsame"))&",'"&Now&"|"&Request.form("reason")&"')") BoolBase=1 dim BoolBasef BoolBasef=BoolBase&"|" Conn.ExeCute("Update IpLockFlag set Boolbase='"&BoolBasef&"'") response.write ("操作提示：ＩＰ-"&RealLock(Cint(Request.Form("ipsame")),iparr(0),iparr(1),iparr(2),iparr(3))&" 已被锁定！") response.write"
返回IP管理
" End Sub Function RealLock(IPsame,Ip1,ip2,ip3,ip4) IF IPsame=1 Then RealLock=""&IP1&".*.*.*" ElseIF IPsame=2 Then RealLock=""&IP1&"."&IP2&".*.*" ElseIF IPsame=3 Then RealLock=""&IP1&"."&IP2&"."&IP3&".*" ElseIF IPsame=4 Then RealLock=""&IP1&"."&IP2&"."&IP3&"."&IP4&"" End IF End Function Sub DelLock Conn.Execute("Delete from IpLock where ipid="&Cint(Request("ipid"))&"") response.write ("操作提示：IP已被删除！") response.write"
返回IP管理
" End Sub Sub DoNoIpLock() Set Talers=Conn.Execute("select top 1 ipid from IpLock") If Talers.Eof Then BoolBase=0 dim BoolBasef BoolBasef=BoolBase&"|" Conn.ExeCute("Update IpLockFlag set Boolbase='"&BoolBasef&"'") End If Talers.Close Set Talers=Nothing End Sub response.write"------------
"&chr(13) response.write"[操作说明]
" response.write"[站长工具]
" response.write"[后台管理]" %>