防止一般的采集以及小偷讀取，加在頂部。同理，可以改造成JS腳本。
<%?
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?
%>