ASP เป็นความคิดที่ดีที่จะป้องกันไม่ให้เว็บไซต์ถูกเข้ารหัส แต่ตอนนี้ทุกอย่างเป็นแบบคงที่ คัดลอกรหัสรหัสดังต่อไปนี้:
-
Dim AppealNum, AppealCount
AppealNum=10 'จำกัด 10 คำขอสำหรับ IP เดียวกันภายใน 60 วินาที
AppealCount=คำขอคุกกี้(AppealCount)
ถ้า AppealCount= จากนั้น
Response.Cookies(AppealCount)=1
จำนวนอุทธรณ์=1
Response.Cookies(AppealCount).Expires=DateAdd(s,60,Now())
อื่น
Response.Cookies(AppealCount)=AppealCount+1
Response.Cookies(AppealCount).Expires=DateAdd(s,60,Now())
สิ้นสุดถ้า
ถ้า Int(AppealCount)>Int(AppealNum) แล้ว
Response.Write Fetching เหนื่อยมาก พักผ่อนก่อน!
การตอบกลับสิ้นสุด
สิ้นสุดถ้า
-