限制某IP段对网页的访问(ASP)
ASP脚本限制某IP段对网页的访问
昨天为了做个测试，要对某段IP做限制访问我的网页，于是上网搜了些代码，我做了下调整，分享给大家。我找到了两种方法，上代码：
方法一：
<html>
<head>
<title>限制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>限制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>
总结：
以上两种方法都是针对ASP脚本，其他脚本的限制方法跟其类似。