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

最新推荐文章于 2021-06-09 21:17:00 发布

zyw_anquan

最新推荐文章于 2021-06-09 21:17:00 发布

阅读量5.7k

点赞数

分类专栏： Web前端文章标签： asp 脚本 html function 测试

本文链接：https://blog.csdn.net/zyw_anquan/article/details/7978073

版权

Web前端专栏收录该内容

10 篇文章 0 订阅

订阅专栏

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>