当前位置:K88软件开发文章中心编程语言AspAsp01 → 文章内容

asp网站防采集代码

减小字体 增大字体 作者:佚名     来源:asp编程网  发布时间:2018-12-30 8:30:40

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


Dim 
AppealNum,AppealCount 

AppealNum=10 
&
#39
同一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 

%>
 


asp网站防采集代码