ASP禁止指定IP和允許指定IP訪問網站

這是通過ASP禁止指定IP訪問網站和只允許指定IP訪問網站的代碼

一、禁止指定IP防問網站,並執行相應操作: 
代碼如下:
<% 
Dim IP,IPString,VisitIP 
'設置IP地址，用“|”隔開 
IPString="|192.168.0.42|192.168.0.43|" 
'獲取IP地址 
IP = Request.ServerVariables("HTTP_X_FORWARDED_FOR") 
If IP = "" Then 
IP = Request.ServerVariables("REMOTE_ADDR") 
End If 
VisitIP="|"&IP&"|" 
If instr(1,IPString,VisitIP)>0 Then 
'符合禁止的IP執行相應的操作 
Response.write "您所在的IP禁止訪問" 
response.end 
End If 
%>

二、只允許指定IP防問網站,並執行相應操作: 
代碼如下:
<% 
Dim IP,IPString,VisitIP 
'設置IP地址，用“|”隔開 
IPString="|192.168.0.42|192.168.0.42|" 
'獲取IP地址 
IP = Request.ServerVariables("HTTP_X_FORWARDED_FOR") 
If IP = "" Then 
IP = Request.ServerVariables("REMOTE_ADDR") 
End If 
VisitIP="|"&IP&"|" 
If instr(1,IPString,VisitIP)>0 Then 
'符合的IP執行相應的操作 
Response.write 您所在的IP可以訪問" 
else 
'不符合的IP執行相應的操作 
Response.write "您所在的IP禁止訪問" 
response.end 
End If 
%>

三、實際應用中的使用方法： 
然後把上面其中的代碼另存為IP.asp文件，然後用下面方法在ASP程序頁面加入下面代碼即可 
<!-- #include file="IP.ASP" -->