asp 防采集代码

2015-08-12 16:02:28来源:作者:人点击

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 "http://www.3lian.com/醒您:抓取很累,歇一会儿吧!"
response.end
End If

最新文章

123

最新摄影

微信扫一扫

第七城市微信公众平台