ASP脚本限制某IP段对网页的访问

　2012-09-14 15:12:08　来源：WEB开发网　　　

核心提示： 方法一：<html> <head> <title>www.7wy.net_限制IP段访问</title> </head><body> <% function IP2Num(sip) dim str1,str2,str3,

方法一：
<html>
<head>
<title>www.7wy.net_限制IP段访问</title>
</head><body>
<%
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)
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.150.0") and userIPnum < IP2Num("192.168.150.138") then
response.write ("<center>您的IP被禁止</center>")
response.end
else response.write ("<center>您的IP被未被限制！</center>")
end if
%>
</body></html>

方法二：

<html>
<head>
<title>www.7wy.net_限制IP段访问——2</title>
</head><body>
<%
'限制192.168.150.130（3232274049）到192.168.150.140（3232274059）

ip=request.servervariables("remote_addr")
sip=split(ip,".")
num=cint(sip(0))*256*256*256+cint(sip(1))*256*256+cint(sip(2))*256+cint(sip(3))-1
response.write(ip)
response.write("<br>")
if (num >= 3232274049 and num <= 3232274059) then
response.write("您的ip被限制！")
response.End()
else
response.write("您的ip未被禁止")
end if
%>
</body></html>