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