纽约灾星资源:ASP网页屏蔽某IP段访问的代码

<%
ip_start="第一段允许ip开头"
ip_end ="第一段允许ip结尾"
ip2_start="第二段允许ip开头"
ip2_end ="第二段允许ip结尾"
ip_start_arr =split(ip_start,".")
ip_end_arr =split(ip_end,".")
ip2_start_arr =split(ip2_start,".")
ip2_end_arr =split(ip2_end,".")
ip_start_str=""
ip_end_str=""
ip2_start_str=""
ip2_end_str=""
ip_user_str=""
for i=0 to 3
ip_start_str=ip_start_str&right(Cstr(formatnumber(Cint(ip_start_arr(i))/1000,3)),3)
ip2_start_str=ip2_start_str&right(Cstr(formatnumber(Cint(ip2_start_arr(i))/1000,3)),3)
ip_end_str=ip_end_str&right(Cstr(formatnumber(Cint(ip_end_arr(i))/1000,3)),3)
ip2_end_str=ip2_end_str&right(Cstr(formatnumber(Cint(ip2_end_arr(i))/1000,3)),3)
next
'测试客户端是否用代理
userip = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
If userip = "" Then userip = Request.ServerVariables("REMOTE_ADDR")
ip_user_arr =split(userip,".")
for i=0 to 3
ip_user_str=ip_user_str&right(Cstr(formatnumber(Cint(ip_user_arr(i))/1000,3)),3)
next
if (CDbl(ip_user_str)>CDbl(ip_end_str) or CDbl(ip_user_str)<CDbl(ip_start_str)) and (CDbl(ip_user_str)>CDbl(ip2_end_str) or CDbl(ip_user_str)<CDbl(ip2_start_str)) then
response.write "超出访问范围"
else
%>
<%正常允许ip范围内可以看见的功能%>
<%end if
%>

当然你可以限制2段也可以限制1段也可以限制n段，希望可以帮到你