作为一个网站的站长，有时会碰到一些黑客用IP频繁扫描自己的网站页面，导致网站耗资源而被服务器/虚拟主机提供商给关停，也有时不想被同行或某些人浏览，这时就想屏蔽对方的IP访问。因我们对虚拟主机分为PHP、ASP和HTML的三个类型主机，实现对网站屏蔽IP地址的3种方法。

PHP主机
通过 .htaccess文件屏蔽IP，代码如下

RewriteEngine on
RewriteBase /
Order Deny,Allow
Deny from 127.168.8.3   ##输入要屏蔽的IP地址
Deny from 192.168.3.9  ## 屏蔽IP段

ASP主机

<%
requestIP = request.ServerVariables(“REMOTE_ADDR”)
IP = “127.168.8.3|192.168.3.9”
trueURL  = “http://tzpr.cn”
falseURL = “”
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
%>

HTML主机

<%
'受屏蔽IP地址(段)集合，星号为通配符，通常保存于配置文件中。 
Const BadIPGroup = "127.168.8.3|192.168.3.9" 
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屏蔽技术，台州正规beat365体育官网分享