注册
登录
| 关键词： ThenResponse AppealNum Response 一会儿 endEnd Write Int |
<%Dim AppealNum,AppealCountAppealNum=10 '同一IP60秒内请求限制10次AppealCount=Request.Cookies("AppealCount") If AppealCount="" ThenResponse.Cookies("AppealCount")=1AppealCount=1Response.Cookies("AppealCount").Expires=DateAdd("s",60,Now())ElseResponse.Cookies("AppealCount")=AppealCount+1Response.Cookies("AppealCount").Expires=DateAdd("s",60,Now())End IfIf Int(AppealCount)>Int(AppealNum) ThenResponse.Write "抓取很累，歇一会儿吧！"Response.endEnd If%> |
|
声明：文章版权归原作者所有 部分文章转自互联网 如有侵权请联系
[邮箱地址] 删除
|
