复制代码 代码如下:<% 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+FSO生成的网页文件默认编码格式以及转换成UTF-8编码方法

具体特征如下： 1、通过模板实现俄文正常。 2、通过后台数据库生成的静态俄文信息，后台显示正常， 前台乱码。 3、英文正常。 和该主题相关的类似或不同表达 FSO写UTF-8编码文件 FSO怎么才能生成utf-8编码的文件 F>>>详细阅读

本文标题：ASP实现防止网站被采集代码

地址：http://www.17bianji.com/kaifa2/ASP/31985.html

 1/2    1