当前位置: 首页 > 图文教程 > 网络编程 > ASP > ASP实现防止网站被采集代码

ASP
获取字符中中文首字字符
系统分配随机密码
MusicGet 类
数据库记录的删除,delete好还是update好?
asp提高首页性能的一个技巧
研究动网得到的一些动网参数
在ASP中连接MySQL数据库,最好的通过ODBC方法
FSO文件对象介绍及常用函数
分享一段代码show.asp?id=26变成show/?26的形式
ASP+XML留言板介绍
忠网广告 系统 用到的几个函数
asp读取xml文件
把无限级分类生成数组
用ASP+FSO生成JS文件
ASP动态生成的javascript表单验证代码
在asp中通过getrows实现数据库记录分页的一段代码
asp错误的几种处理方式
asp数组使用(2)
asp中 select top 问题!~
批量复制数据

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


出处:互联网   整理: 软晨网(RuanChen.com)   发布: 2010-01-10   浏览: 82 ::
收藏到网摘: n/a

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