เพื่อนๆ ที่ต้องการสามารถอ้างอิงโค้ดสำหรับห้าม IP ที่ระบุ และอนุญาตให้เฉพาะ IP ที่ระบุเท่านั้นที่จะเข้าถึงเว็บไซต์ผ่าน ASP 1. ห้ามเว็บไซต์ป้องกัน IP ที่กำหนดและดำเนินการที่เกี่ยวข้อง:
คัดลอกรหัสรหัสดังต่อไปนี้:
-
Dim IP, IPString, VisitIP
'ตั้งค่าที่อยู่ IP คั่นด้วย |
IPString=|192.168.0.42|192.168.0.43|
'รับที่อยู่ IP
IP = Request.ServerVariables (HTTP_X_FORWARDED_FOR)
ถ้า IP = จากนั้น
IP = Request.ServerVariables (REMOTE_ADDR)
สิ้นสุดถ้า
เยี่ยมชมIP=|&IP&|
ถ้า instr(1,IPString,VisitIP)>0 จากนั้น
'ดำเนินการที่สอดคล้องกันสำหรับ IP ที่ถูกแบน
Response.write IP ของคุณถูกห้ามไม่ให้เข้าถึง
การตอบสนองสิ้นสุด
สิ้นสุดถ้า
-
2. แก้ไขโค้ดเพื่ออนุญาตเฉพาะเว็บไซต์ป้องกัน IP ที่กำหนด และดำเนินการที่เกี่ยวข้อง:
คัดลอกรหัสรหัสดังต่อไปนี้:
-
Dim IP, IPString, VisitIP
'ตั้งค่าที่อยู่ IP คั่นด้วย |
IPString=|192.168.0.42|192.168.0.42|
'รับที่อยู่ IP
IP = Request.ServerVariables (HTTP_X_FORWARDED_FOR)
ถ้า IP = จากนั้น
IP = Request.ServerVariables (REMOTE_ADDR)
สิ้นสุดถ้า
เยี่ยมชมIP=|&IP&|
ถ้า instr(1,IPString,VisitIP)>0 จากนั้น
'IP ที่สอดคล้องกันดำเนินการที่สอดคล้องกัน
Response.write IP ของคุณสามารถเข้าถึงได้
อื่น
'ดำเนินการที่สอดคล้องกันสำหรับ IP ที่ไม่เป็นไปตามข้อกำหนด
Response.write IP ของคุณถูกห้ามไม่ให้เข้าถึง
การตอบสนองสิ้นสุด
สิ้นสุดถ้า
-
3. การใช้งานในทางปฏิบัติ:
จากนั้นให้บันทึกโค้ดด้านบนเป็นไฟล์ IP.asp จากนั้นใช้วิธีการต่อไปนี้เพื่อเพิ่มโค้ดต่อไปนี้ลงในเพจโปรแกรม asp
<!-- #include file=IP.asp -->