เพื่อป้องกันไม่ให้คนทั่วไปและโจรอ่าน ให้เพิ่มไว้ด้านบน
ในทำนองเดียวกัน มันสามารถแปลงเป็นสคริปต์ JS ได้
-
Dim AppealNum, AppealCount
AppealNum=10 'จำกัด 10 คำขอสำหรับ IP เดียวกันภายใน 60 วินาที
AppealCount=Request.Cookies("AppealCount")
ถ้า AppealCount="" แล้ว
response.Cookies("AppealCount")=1
จำนวนอุทธรณ์=1
response.cookies("AppealCount").expires=dateadd("s",60,ตอนนี้())
อื่น
response.Cookies("AppealCount")=อุทธรณ์นับ+1
response.cookies("AppealCount").expires=dateadd("s",60,ตอนนี้())
สิ้นสุดถ้า
ถ้า int(AppealCount)>int(AppealNum) แล้ว
ตอบกลับเขียนว่า "ฉันเหนื่อยกับการคลานมาก พักผ่อนก่อนเถอะ!"
การตอบสนองสิ้นสุด
สิ้นสุดถ้า
-