The code copy is as follows:
Prevent general collection and thief reading, and add it to the top. Similarly, it can be modified into JS scripts.
<%
DimAppealNum,AppealCount
AppealNum=10'The same IP limit is 10 times within 60 seconds
AppealCount=Request.Cookies("AppealCount")
IfAppealCount=""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())
EndIf
ifint(AppealCount)>int(AppealNum)then
response.write "Crawling is very tiring, take a rest!"
response.end
EndIf
%>
