<% Head() dim admin_flag admin_flag=",28," if not Dvbbs.master or instr(","&session("flag")&",",admin_flag)=0 then Errmsg=ErrMsg + "
  • 本页面为管理员专用，请登录后进入。
  • 您没有管理本页面的权限。" 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 %> <% 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(Dvbbs.cachedata(25,0))<>"" Then sip=Trim(Dvbbs.cachedata(25,0)) & "|" & Replace(sip,"|","") End If End If if sip<>"" then dvbbs.execute("update dv_setup set Forum_LockIP='"&replace(sip,"'","''")&"'") reloadsetup end if Footer() %> <% else %> <% 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 dvbbs.execute("update dv_setup set forum_lockip='"&replace(getip1,"'","''")&"'") reloadsetup response.write "更新限制IP成功！" else %>
    IP限制管理－－添加
    添加成功！
    说明：您可以添加多个限制IP，每个IP用|号分隔，限制IP的书写方式如202.152.12.1就限制了202.152.12.1这个IP的访问，如202.152.12.*就限制了以202.152.12开头的IP访问，同理*.*.*.*则限制了所有IP的访问。在添加多个IP的时候，请注意最后一个IP的后面不要加|这个符号
    限制I P  如202.152.12.*
    <% Footer() %>
    IP限制管理－－管理
    说明：您可以添加多个限制IP，每个IP用回车分隔，限制IP的书写方式如202.152.12.1就限制了202.152.12.1这个IP的访问，如202.152.12.*就限制了以202.152.12开头的IP访问，同理*.*.*.*则限制了所有IP的访问。在添加多个IP的时候，请注意最后一个IP的后面不要加回车.
    <% end if end Sub %>