您的位置:首页 >> 资源中心 >> 软硬件教学 >> 浏览文章

ASP通过检测IP禁止和放行网页的代码

时间:2017-09-06 | 栏目:软硬件教学 | 来源:蝌索窝cosowo.cn | 编辑:蝌索窝pc354.com | 点击:556 【点击复制链接】

一、禁止指定IP防问网站,并执行相应操作:
 
<%  
Dim IP,IPString,VisitIP  
'设置IP地址,前后用“|”隔开  
IPString="|192.168.1.5|192.168.1.8|"  
'获取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" -->
  • 软硬件教学
  • 资源收集
  • 生活百科

新闻图片

针对农民的老骗术又来了,收割机暗藏玄机专偷粮食
女子怀孕期间“主动辞职”?当事人:我不知道啊
巴基斯坦女子不满包办婚姻,毒死夫家17人
亳州:一楼熏药杀虫毒死三楼租户 房东父子被判刑
“沉睡”银行卡将销户?多家银行表示:销户需满足多种条件
普法课堂——没买停车位,也能把车开进小区
薄利多销的经营理念,为何犹太商人深恶痛绝?
10月21日双11支付宝红包口令是什么 最全双十一支付宝口令红包
上海30件肉串全部检出致癌物,1个烤鸡翅=3包烟