一个简单的封少量IP的ASP代码：
- <%
- Dim IP,IPString,VisitIP
- '要禁止的IP地址
- IPString="|219.142.118.71|127.0.0.1|"
- '获取IP地址
- IP = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
- If IP = "" Then
- IP = Request.ServerVariables("REMOTE_ADDR")
- End If
- VisitIP="|"&IP&"|"
- If instr(1,IPString,VisitIP)>0 Then
- response.write "你的IP被禁止"
- response.end
- End If
- response.Write("你的IP:"&IP&"可以访问本站")
- %>
禁止某个IP段访问：
- <%
- function IP2Num(sip)
- dim str1,str2,str3,str4
- dim num
- IP2Num=0
- if isnumeric(left(sip,2)) then
- str1=left(sip,instr(sip,".")-1)
- sip=mid(sip,instr(sip,".")+1)
- str2=left(sip,instr(sip,".")-1)
- sip=mid(sip,instr(sip,".")+1)
- str3=left(sip,instr(sip,".")-1)
- str4=mid(sip,instr(sip,".")+1)
- num=cint(str1)*256*256*256+cint(str2)*256*256+cint(str3)*256+cint(str4)-1
- IP2Num = num
- end if
- end function
- function Num2IP(nip)
- iip1 = int(nip/256/256/256)
- iip2 = int((nip-iip1*256*256*256)/256/256)
- iip3 = int((nip-iip1*256*256*256-iip2*256*256)/256)
- iip4 = int((nip-iip1*256*256*256-iip2*256*256-iip3*256) mod 256)
- iip0 = iip1 &"."& iip2 & "." &iip3 &"."& iip4
- Num2IP = iip0
- end function
- userIPnum = IP2Num(Request.ServerVariables("REMOTE_ADDR"))
- if userIPnum > IP2Num("192.168.3.0") and userIPnum < IP2Num("192.168.3.255") then
- response.write ("<center>此IP被禁止</center>")
- response.end
- '页面ASP解释结束
- end if
- %>
- 显示内容
上例是禁止192.168.3.0——192.168.3.255之内的所有IP看到下面的显示内容。如果是要禁止访问整个页面，那只需要把这段代码放到开头就可以限制访问页面了。
