asp 防采集代碼

　　Dim AppealNumAppealCount
AppealNum= 同一IP秒內請求限制次
AppealCount=RequestCookies("AppealCount")
If AppealCount="" Then
responseCookies("AppealCount")=
AppealCount=
responsecookies("AppealCount")expires=dateadd("s"now())
Else
responseCookies("AppealCount")=AppealCount+
responsecookies("AppealCount")expires=dateadd("s"now())
End If
if int(AppealCount)>int(AppealNum) then
responsewrite "醒您抓取很累歇一會兒吧！"
responseend
End If

From:http://tw.wingwit.com/Article/program/net/201311/14154.html