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
