<% 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 %>
查看详细内容 >>