首页 > 网站 > 建站经验 > 正文

AS P防止网站内容被采集代码

2019-11-02 15:05:22
字体:
来源:转载
供稿:网友

 <% 

Dim AppealNum,AppealCount 
AppealNum=10 '同一IP60秒内请求限制10次 
AppealCount=Request.Cookies("AppealCount") 
If AppealCount="" Then 
response.Cookies("AppealCount")=1 
AppealCount=1 
response.cookies("AppealCount").expires=dat

世界历史机密[www.9-39.com/html/world/]
eadd("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 
%>

发表评论 共有条评论
用户名: 密码:
验证码: 匿名发表