ASP实现防止网站被采集代码


复制代码 代码如下:

<%
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
%>



相关阅读:
Linux运行VMware Work Station出错问题
Windows7最重要的杀手特性是智能
PHP 5.2.13版发布修复之前30多个BUG
将嵌套表添加到预测查询的输入表
php 小乘法表实现代码
Request 对象之TotalBytes属性
ASP视频教程:建立显示已经添加的新闻页面
PHP实现采集程序原理和简单示例代码
ASP+CSS 实现列表隔行换色
怎麽样设定 telnet prompt ?
ASP中Web页面间的数据传递方式
在CentOS上MySQL数据库服务器配置方法
JavaScript 中文转拼音实现代码 有些bug
CSS教程:overflow与text-indent:-9999px
快速导航

Copyright © 2016 phpStudy |