Fügen Sie es oben hinzu, um eine allgemeine Sammlung und das Mitlesen durch Diebe zu verhindern.
Auf die gleiche Weise kann es in ein JS-Skript umgewandelt werden.
<%
Dim AppealNum,AppealCount
AppealNum=10 'Begrenzt 10 Anfragen für dieselbe IP innerhalb von 60 Sekunden
AppealCount=Request.Cookies("AppealCount")
Wenn AppealCount="" Dann
Response.Cookies("AppealCount")=1
AppealCount=1
Response.cookies("AppealCount").expires=dateadd("s",60,now())
Anders
Response.Cookies("AppealCount")=AppealCount+1
Response.cookies("AppealCount").expires=dateadd("s",60,now())
Ende wenn
if int(AppealCount)>int(AppealNum) dann
Response.write „Ich habe das Krabbeln sehr satt, bitte ruhen Sie sich aus!“
Antwort.Ende
Ende wenn
%>