ASP实现防止网站被采集代码,是个不错的思路,但现在都是生成静态的了。

代码如下: % 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 Resp

作者: 来源: 时间: 17-11-23 15:56: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 "抓取很累,歇一会儿吧!"
Response.end
End If
%>
11
22
33
隐藏区块

会员注册

本功能为预留功能,暂不支持注册 ^_^

Login

社交帐号登陆

使用以下任意帐号可登陆本站

Close section
Close

联系我们

关于5UCMS 您有任何需求 均可以留言给我们