局限內(nèi)外網(wǎng)訪問(wèn)的ASP代碼

    準(zhǔn)備只區(qū)別內(nèi)外網(wǎng)的，我們學(xué)校的內(nèi)網(wǎng)都是192.168.*.*的，這個(gè)很容易區(qū)別，但是校內(nèi)用戶一用學(xué)校對(duì)外的代理，IP又變成服務(wù)器在外的代理，于是乎又加進(jìn)去，現(xiàn)在變成了可以允許某些外網(wǎng)訪問(wèn)了。因?yàn)轭I(lǐng)導(dǎo)要求就這些，只做到這點(diǎn)，以后還可以還可 以豐富，甚至做成組件。

    有些人可能需要這個(gè)東西，放上來(lái)共享！

    編程高手來(lái)提出寶貴意見(jiàn)～～～

    <%
    ip=Request.ServerVariables("REMOTE_ADDR")  '獲取訪問(wèn)者的地址

    allowip1="192.168.0.0"    '第一允許IP段特點(diǎn)
    allowip2="192.168.255.255" '暫時(shí)無(wú)用
    allowip3="61.153.213.14"   '具體允許IP地址    
    allowip4="61.129.69.177"

    dim check(5)
    ipstr=split(ip,".")
    allow1=split(allowip1,".")
    allow2=split(allowip2,".")
    allow3=split(allowip3,".")
    allow4=split(allowip4,".")

    for aa=0 to 1
      for bb=0 to 3
      if cint(allow1(aa))&lt;&gt; cint(ipstr(aa)) then
         if cint(allow3(bb))&lt;&gt; cint(ipstr(bb)) then
        if cint(allow4(bb))&lt;&gt; cint(ipstr(bb)) then
        response.redirect "http://www.nhxx.net/err.php"
        end if
      end if
      end if
      next
    next
    %>

    這個(gè)也可以，優(yōu)點(diǎn)是速度快，但輸入IP麻煩

    <%
    '獲取訪問(wèn)者的地址
    ip=Request.ServerVariables("REMOTE_ADDR")

    allowip1="192.168.0.0"
    allowip2="192.168.255.255"
 
    function checkip(ip,allowip1,allowip2)
    dim check(4)
    ipstr=split(ip,".")
    allow1=split(allowip1,".")
    allow2=split(allowip2,".")
      if cint(allow1(0))&lt;&gt; cint(ipstr(0))   then'判斷IP地址段是否內(nèi)網(wǎng)用戶
        if cint(ipstr(0))=61 and cint(ipstr(1))=153 and cint(ipstr(2))=213 and cint(ipstr(3))=14 then '判斷具體地址
        else
     if cint(ipstr(0))=61 and cint(ipstr(1))=129 and cint(ipstr(2))=69 and cint(ipstr(3))=166 then
     else
     response.redirect "http://www.nhxx.net/err.php"
     end if
       end if
      end if
    end function
    %>