www.gusucode.com > ASP+ACCESS学生论坛设计与实现(源代码+论文+开题报告) > ASP+ACCESS学生论坛设计与实现(源代码+论文+开题报告)\13学生论坛ASPAC\BBS\admin_lockIP.asp
<!--#include file="conn.asp"--> <!-- #include file="inc/const.asp" --> <!-- #include file="inc/DvADChar.asp" --> <% Head() dim admin_flag admin_flag=",28," if not Mybbs.master or instr(","&session("flag")&",",admin_flag)=0 then Errmsg=ErrMsg + "<BR><li>本页面为管理员专用,请<a href=admin_index.asp target=_top>登录</a>后进入。<br><li>您没有管理本页面的权限。" dvbbs_error() else call main() end if sub main() dim userip,ips,GetIp1,GetIp2 if request("userip")<>"" then userip=request("userip") ips=Split(userIP,".") If Ubound(ips)=3 Then GetIp1=ips(0)&"."&ips(1)&"."&ips(2)&".*" end if if request("action")="add" or request("userip")<>"" then %> <table width="95%" border="0" cellspacing="1" cellpadding="3" align=center class="tableBorder"> <tr> <th width="100%" colspan=2>IP限制管理--添加</th> </tr> <% dim sip,str1,str2,str3,str4,num_1,num_2 if request.querystring("reaction")="save" then sip=cstr(request.form("ip1")) If sip<>"" Then If Trim(Mybbs.cachedata(25,0))<>"" Then sip=Trim(Mybbs.cachedata(25,0)) & "|" & Replace(sip,"|","") End If End If if sip<>"" then Mybbs.execute("update dv_setup set Forum_LockIP='"&replace(sip,"'","''")&"'") Mybbs.Name="setup" Mybbs.reloadsetup end if Footer() %> <tr> <td width="100%" colspan=2 class=forumrow>添加成功!</td> </tr> <% else %> <form action="admin_LockIP.asp?action=add&reaction=save" method="post"> <tr> <td width="100%" class=forumrow colspan=2><B>说明</B>:您可以添加多个限制IP,每个IP用|号分隔,限制IP的书写方式如202.152.12.1就限制了202.152.12.1这个IP的访问,如202.152.12.*就限制了以202.152.12开头的IP访问,同理*.*.*.*则限制了所有IP的访问。在添加多个IP的时候,请注意最后一个IP的后面不要加|这个符号</td> </tr> <tr> <td width="20%" class=forumrow>限制I P</td> <td width="80%" class=forumrow><input type="text" name="ip1" size="30" value="<%=GetIp1%>"> 如202.152.12.*</td> </tr> <tr> <td width="20%" class=forumrow></td> <td width="80%" class=forumrow> <input type="submit" name="Submit" value="添 加"> </td> </tr> </form> <% end if elseif request("action")="delip" then userip=request("ips") 'userip=split(userip,chr(10)) userip=split(userip,vbCrLf) for i = 0 to ubound(userip) if not (userip(i)="" or userip(i)=" ") then If i=0 Then getip1 = userip(i) Else getip1 = getip1 & "|" & userip(i) End If End If next Mybbs.execute("update dv_setup set forum_lockip='"&replace(getip1,"'","''")&"'") Mybbs.Name="setup" Mybbs.reloadsetup response.write "更新限制IP成功!" else %> <FORM METHOD=POST ACTION="?action=delip"> <table width="95%" border="0" cellspacing="1" cellpadding="3" align=center class="tableBorder"> <tr> <th width="100%" colspan=2>IP限制管理--管理</th> </tr> <tr> <td width="100%" class=forumrow colspan=2> <B>说明</B>:您可以添加多个限制IP,每个IP用回车分隔,限制IP的书写方式如202.152.12.1就限制了202.152.12.1这个IP的访问,如202.152.12.*就限制了以202.152.12开头的IP访问,同理*.*.*.*则限制了所有IP的访问。在添加多个IP的时候,请注意最后一个IP的后面不要加回车 </td> </tr> <tr> <td width="100%" class=forumrow colspan=2> <textarea name="ips" cols="80" rows="8"><% userip=split(Trim(Mybbs.cachedata(25,0)),"|") For i = 0 To Ubound(Userip) Response.Write Userip(i) If i < Ubound(Userip) Then Response.Write Chr(10) Next %></textarea> </td> </tr> <tr> <td width="20%" class=forumrow></td> <td width="80%" class=forumrow> <input type="submit" name="Submit" value="修 改"> </td> </tr> <% Footer() %> </FORM> </table> <% end if end Sub %>