www.gusucode.com > 星云DJ舞曲 4.5a源码程序 > admin/admin_iplock.asp
<!--#include file="const.asp"--> <!--#include file="checkadmin.inc"--> <%call CheckAdmin1%> <html> <head> <title>封锁IP管理</title> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> <link href="Admin_Style.css" rel="stylesheet" type="text/css"> </head> <body leftmargin="2" topmargin="0" marginwidth="0" marginheight="0"> <table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="border" id="AutoNumber2"> <tr class="topbg"> <td height="22" colspan="2" align="center"><strong>IP 封 锁 管 理</strong></td> </tr> </table> <table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="border" id="AutoNumber3"> <tr class="tdbg"> <td width="8%" align="center"><% Dim GetBack2 GetBack2="<a href='admin_IpLock.Asp'><div align=center><font size=2><b>返回锁定IP管理页面</b></font></div></a>" 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 %> <table width="90%" border=0 align=center cellpadding=1 cellspacing=1 class="maintable"> <tr> <td height=10 colspan=10></td> </tr> <% Call DoNoIpLock Operate=Trim(Request("operate")) If Operate="del" Then DelLock ElseIf Operate="save" Then Call SaveLock Else Call LockList End if Response.Write "</table>" Sub Locklist Set Talers=Conn.ExeCute("Select * from IpLock order by ipid desc") If Not Talers.Eof Then i=0 %> <tr class=topbg> <td align=center width=50><font color='#ffffff'><b>ID<b></font></td> <td align=center width=150><font color='#ffffff'><b>被锁IP<b></font></td> <td align=center width=470><font color='#ffffff'><b>说明原因<b></font></td> <td align=center width=80><font color='#ffffff'><b>删除IP <b></font></td> </tr> <% Do while Not Talers.eof i=i+1 Dim WhyIpLock WhyIpLock=split(TaleRS("iplock"),"|") %> <tr bgColor="#e8e8e8" onmouseover="this.bgColor='#f3f3f3';" onmouseout="this.bgColor='#e8e8e8';"> <td align=center><%=i%></td> <td align=center><%=RealLock(Talers("ipsame"),Talers("ip1"),Talers("ip2"),Talers("ip3"),Talers("ip4"))%></td> <td align=center><%if len(WhyIPLOck(1))>38 then Response.Write(left(WhyIPLOck(1),38)&"...") else Response.Write(WhyIPLOck(1))%></td> <td align=center><a href='admin_IpLock.Asp?operate=del&ipid=<%=Talers("ipid")%>'>删除</a></td> </tr> <% Talers.Movenext Loop Else Response.Write"<tr><td bgcolor=#F7F7F7 align=center height=40 colspan=10><font size=5 color=#Cc0000>目前没有IP封锁的记录</font></td></tr>" End If Talers.Close Set Talers=Nothing Call LockAdd End Sub Sub LockAdd %> <form method=post action='admin_IpLock.Asp?operate=save'> <tr> <td align=right colspan=2>IP地址:</td> <td Colspan=6> <input class=input name=ip1 style="width:50"> . <input class=input name=ip2 style="width:50"> . <input class=input name=ip3 style="width:50"> . <input class=input name=ip4 style="width:50"></td> <tr> <td align=right colspan=2>IP段数:</td> <td Colspan=6> <select name=ipsame class=input> <% For i=1 to 4 Response.write"<option value="&i&" " If i=4 Then Response.write" Selected " Response.write">前 "&i&" 段相同</option>" Next %> </select> </td> </tr> <tr> <td align=right colspan=2>原因说明:</td> <td Colspan=6> <input class=input name="reason" style="width:300"> </td> </tr> <tr> <td Colspan=10 align=center><input class=input1 type=submit value="对上面的IP地址封锁"> <INPUT class=input1 type=reset value=" 擦除重填 "></td> </tr> </form> <% 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 ("<div align=center><BR><BR><font size=5 color=#Cc0000><b>错误提示:第"&i+1&"段必须数字</b></font></div>") response.write ("<BR><BR>"&GetBack2) Exit Sub End If Next 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(0)=1 Conn.ExeCute("Update IpLockFlag set Boolbase='"&Join(BoolBase,"|")&"'") response.write ("<div align=center><BR><BR><font size=5 color=#Cc0000><b>操作提示:IP-"&RealLock(Cint(Request.Form("ipsame")),iparr(0),iparr(1),iparr(2),iparr(3))&" 已被锁定!</b></font></div>") response.write ("<BR><BR>"&GetBack2) End Sub Function RealLock(IPsame,Ip1,ip2,ip3,ip4) IF IPsame=1 Then RealLock="<font color='#cc0000'><b>"&IP1&".*.*.*</b></font>" ElseIF IPsame=2 Then RealLock="<font color='#cc0000'><b>"&IP1&"."&IP2&".*.*</b></font>" ElseIF IPsame=3 Then RealLock="<font color='#cc0000'><b>"&IP1&"."&IP2&"."&IP3&".*</b></font>" ElseIF IPsame=4 Then RealLock="<font color='#cc0000'><b>"&IP1&"."&IP2&"."&IP3&"."&IP4&"</b></font>" End IF End Function Sub DelLock Conn.Execute("Delete * from IpLock where ipid="&Cint(Request("ipid"))&"") response.write ("<div align=center><BR><BR><font size=5 color=#Cc0000><b>操作提示:IP已被删除!</b></font></div>") response.write ("<BR><BR>"&GetBack2) End Sub Sub DoNoIpLock() Set Talers=Conn.Execute("select top 1 ipid from IpLock") If Talers.Eof Then BoolBase(0)=0 Conn.ExeCute("Update IpLockFlag set Boolbase='"&Join(BoolBase,"|")&"'") End If Talers.Close Set Talers=Nothing End Sub %> </table></td> </table> </body> </html>