ASP实现防止网站被采集代码
2018-09-06 13:09
阅读：362
复制代码 代码如下:
<%
Dim AppealNum,AppealCount
AppealNum=10 同一IP60秒内请求限制10次
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
%>
评论
亲，登录后才可以留言！