asp网站通过限制请求防止被采集的函数

2009-05-12 15:09:29来源:未知 阅读 ()

新老客户大回馈,云服务器低至5折

今天在网上看到防采集代码,我把它放到这里与大家共享。此代码的缺点是:也防了蜘蛛。


<% 
Dim AppealNum,AppealCount 
AppealNum=10 '同一IP60秒内请求限制10次 
AppealCount=Request.Cookies("AppealCount") 
If AppealCount="" Then 
response.Cookies("AppealCount")=1 
AppealCount=1 
response.cookies("AppealCount").expires=dateadd("s",60,now()) 
Else 
response.Cookies("AppealCount")=AppealCount+1 
response.cookies("AppealCount").expires=dateadd("s",60,now()) 
End If 
if int(AppealCount)>int(AppealNum) then 
response.write "歇一会儿吧!整天采集你烦不烦啊!" 
response.end 
End If 
%> 

标签:

版权申明:本站文章部分自网络,如有侵权,请联系:west999com@outlook.com
特别注意:本站所有转载文章言论不代表本站观点,本站所提供的摄影照片,插画,设计作品,如需使用,请与原作者联系,版权归原作者所有

上一篇:如何使用asp去字符串中的超链接

下一篇:asp利用正则去掉字符串中所有html内容

热门词条
热门标签