ASP实现防止网站被采集代码
更新时间:2009年11月12日 20:49:45 作者:
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
%>
相关文章
asp中记录集对象的getrows和getstring用法分析
asp中记录集对象的getrows和getstring用法分析,需要的朋友可以参考下2012-03-03
错误类型:Provider (0x80004005)未指定的错误 的一个处理方法
一般情况下asp可以正常运行,但只要连接数据库就提示,Microsoft JET Database Engine 错误'80004005'2007-04-04


最新评论