Para evitar que a coleção geral e os ladrões leiam, adicione-o no topo.
Da mesma forma, pode ser transformado em um script JS.
<%
Dim AppealNum,AppealCount
AppealNum=10 'Limita 10 solicitações para o mesmo IP em 60 segundos
AppealCount=Request.Cookies("AppealCount")
Se AppealCount="" Então
resposta.Cookies("Contagem de Apelações")=1
Contagem de Apelações=1
resposta.cookies("Contagem de Apelações").expires=dateadd("s",60,agora())
Outro
resposta.Cookies("Contagem de Apelações")=Contagem de Apelações+1
resposta.cookies("Contagem de Apelações").expires=dateadd("s",60,agora())
Terminar se
se int(AppealCount)>int(AppealNum) então
response.write "Estou muito cansado de engatinhar, por favor, descanse!"
resposta.fim
Terminar se
%>