ฉันเขียนโค้ดสำหรับ asp เพื่อรับ IP จริง และใช้สภาพแวดล้อมเพื่อทดสอบสถานการณ์ที่ไม่มีเอเจนต์ เอเจนต์ระดับเดียวหรือหลายระดับ และ สามารถรับโค้ดที่คัดลอกได้ตามปกติ รหัสจะเป็นดังนี้:
function checkip(checkstring)' ใช้นิพจน์ทั่วไปเพื่อตรวจสอบว่า IP นั้นถูกกฎหมายหรือไม่
สลัว re1
ตั้งค่า re1=RegExp ใหม่
re1.pattern=^[0-9]{1,3}.[0-9]{1,3}.[0-9]{1,3}.[0-9]{1,3}$
re1.global=false
re1.ละเว้นกรณี=เท็จ
checkip=re1.test(สายตรวจสอบ)
ตั้ง re1=ไม่มีอะไร
ฟังก์ชั่นสิ้นสุด
คัดลอกรหัสรหัสดังต่อไปนี้:
ฟังก์ชั่น get_cli_ip()'รับฟังก์ชั่น IP จริง HTTP_CLIENT_IP แรกจากนั้น HTTP_X_FORWARDED_FOR จากนั้น REMOTE_ADDR
สลัว client_ip
ถ้า checkip(Request.ServerVariables(HTTP_CLIENT_IP))=true แล้ว
get_cli_ip = checkip (คำขอ ServerVariables (HTTP_CLIENT_IP))
อื่น
MyArray = แยก (Request.ServerVariables (HTTP_X_FORWARDED_FOR),,)
ถ้า ubound(MyArray)>=0 แล้ว
client_ip = ตัด (MyArray (0))
ถ้า checkip(client_ip)=true แล้ว
get_cli_ip = ลูกค้า_ip
ฟังก์ชั่นทางออก
สิ้นสุดถ้า
สิ้นสุดถ้า
get_cli_ip = คำขอ ServerVariables (REMOTE_ADDR)
สิ้นสุดถ้า
ฟังก์ชั่นสิ้นสุด