限制某IP段对网页的访问(ASP)

来源：互联网发布：淘宝美工基础教程视频编辑：程序博客网时间：2024/06/05 05:16

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

昨天为了做个测试，要对某段IP做限制访问我的网页，于是上网搜了些代码，我做了下调整，分享给大家。我找到了两种方法，上代码：

方法一：

<html> <head> <title>限制IP段访问</title> </head><body> <%function IP2Num(sip)dim str1,str2,str3,str4dim numIP2Num=0if isnumeric(left(sip,2)) thenstr1=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 = numend ifend functionfunction 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 &"."& iip4Num2IP = iip0end functionuserIPnum = IP2Num(Request.ServerVariables("REMOTE_ADDR"))if userIPnum > IP2Num("192.168.150.0") and userIPnum < IP2Num("192.168.150.138") thenresponse.write ("<center>您的IP被禁止</center>")response.endelse 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))-1response.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脚本，其他脚本的限制方法跟其类似。