ip屏蔽代码（ip被屏蔽）

本篇文章给大家谈谈ip屏蔽代码，以及ip被屏蔽对应的知识点，希望对各位有所帮助，不要忘了收藏本站喔。

本文目录一览：

• 1、html中如何屏蔽ip地址 禁止某IP段访问网站
• 2、屏蔽IP地址的ASP代码
• 3、用网页代码实现屏蔽ip的代码
• 4、怎么屏蔽ip地址让人查不到

html中如何屏蔽ip地址 禁止某IP段访问网站

参考方法如下：

把以下代码加入到ASP页面就可以测试到效果了：

%

'受屏蔽IP地址(段)集合，星号为通配符，通常保存于配置文件中。

Const BadIPGroup = "192.168.1.*|202.68.*.*|*.12.55.34|185.*.96.24|127.*.0.1|192.168.0.1"

If IsForbidIP(BadIPGroup) = True Then

Response.Write(GetIP "IP地址禁止访问")

Response.End()

End If

'参数vBadIP：要屏蔽的IP段,IP地址集合，用|符号分隔多个IP地址(段) ；

'返回Bool：True用户IP在被屏蔽范围，False 反之 ；

Function IsForbidIP(vBadIP)

Dim counter, arrIPPart, arrBadIP, arrBadIPPart, i, j

arrBadIP = Split(vBadIP, "|")

arrIPPart = Split(GetIP(), ".")

For i = 0 To UBound(arrBadIP)

counter = 0

arrBadIPPart = Split(arrBadIP(i), ".")

For j = 0 To UBound(arrIPPart)

If(arrBadIPPart(j)) = "*" or Cstr(arrIPPart(j)) = Cstr(arrBadIPPart(j)) Then

counter = counter + 1

End If

Next

If counter = 4 Then

IsForbidIP = True

Exit Function

End If

Next

IsForbidIP = False

End Function

''返回客户IP地址

Function GetIP()

Dim IP

IP = Request.ServerVariables("HTTP_X_FORWARDED_FOR")

If IP = "" Then IP = Request.ServerVariables("REMOTE_ADDR")

GetIP = IP

End Function

%

这样就可以限制网站访问的IP段了，可以根据地区的IP段来设置。

用这个方法，防止外地用户使用流氓软件恶意发布信息。

屏蔽IP地址的ASP代码

把以下代码加入到你的ASP页面就可以测试到效果了：

%

'受屏蔽IP地址(段)集合，星号为通配符，通常保存于配置文件中。

Const BadIPGroup = "192.168.1.*|202.68.*.*|*.12.55.34|185.*.96.24|127.*.0.1|192.168.0.1"

If IsForbidIP(BadIPGroup) = True Then

Response.Write(GetIP "IP地址禁止访问")

Response.End()

End If

'****************************************************************

'参数vBadIP：要屏蔽的IP段,IP地址集合，用|符号分隔多个IP地址(段)

'返回Bool：True用户IP在被屏蔽范围，False 反之

'****************************************************************

Function IsForbidIP(vBadIP)

Dim counter, arrIPPart, arrBadIP, arrBadIPPart, i, j

arrBadIP = Split(vBadIP, "|")

arrIPPart = Split(GetIP(), ".")

For i = 0 To UBound(arrBadIP)

counter = 0

arrBadIPPart = Split(arrBadIP(i), ".")

For j = 0 To UBound(arrIPPart)

If(arrBadIPPart(j)) = "*" or Cstr(arrIPPart(j)) = Cstr(arrBadIPPart(j)) Then

counter = counter + 1

End If

Next

If counter = 4 Then

IsForbidIP = True

Exit Function

End If

Next

IsForbidIP = False

End Function

'***************

'返回客户IP地址

'***************

Function GetIP()

Dim IP

IP = Request.ServerVariables("HTTP_X_FORWARDED_FOR")

If IP = "" Then IP = Request.ServerVariables("REMOTE_ADDR")

GetIP = IP

End Function

%

用网页代码实现屏蔽ip的代码

明白你的意思，看这个，我现写的：

%

requestIP = request.ServerVariables("REMOTE_ADDR") '这是访问这个页面的IP

IP = "127.0.0.1|baidu.com|192.168.1.1" '这是可以访问的IP，用“|”隔开

trueURL = "" '可以访问的IP跳转到

falseURL = "" '不可以访问的IP跳转到

ipArr = split(IP,"|")

flag = false

for i=0 to ubound(ipArr)

if requestIP=ipArr(i) then

flag=true

exit for

end if

next

if flag then

response.Redirect(falseURL)

else

response.Redirect(trueURL)

end if

%

改完了，是你没说明白。做个包含文件，放在头部就行了。

怎么屏蔽ip地址让人查不到

屏蔽ip地址的方法如下：

电脑：联想电脑天逸510S。

系统：Windows10。

软件：本地设置。

1、打开浏览器，选择右上角的【工具】，在下拉菜单之中点击【Internet】选项”

2、弹出“internet属性”对话框。

3、选择“链接”选项卡，并单击底部的“局域网设置”按钮。

4、在“局域网设置”对话框之中，在“为LAN使用代理服务器（这些设置不会应用于拨号）”之前打上√。然后在地址和端口这里填写你准备好的信息即可。

5、经过以上的设置之后，基本上可以隐藏自己的ip了，但是我们登陆一些比较高级的网站时或者别人使用比较厉害的软件测试的时候，可能还是能够查出我们的ip。所以，为了彻底隐藏我们的ip，还可以同时如此设置：在“局域网设置”对话框之中，点击“高级”按钮，

6、弹出“代理服务器设置”对话框。

7、在“代理服务器设置”对话框中，取消“对所有协议均使用相同的代理服务器”前面的√。然后，在HTTP方框和套接字对话框之中填上不同的ip地址和端口，如此只要你一链接互联网，就不会显示你真实的ip了。

ip屏蔽代码的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于ip被屏蔽、ip屏蔽代码的信息别忘了在本站进行查找喔。