ฉันเขียนรหัสของ ASP เพื่อใช้ IP จริงและไม่มีเอเจนต์ตัวแทนแรกหรือหลายระดับที่มีการทดสอบด้านสิ่งแวดล้อม
ใช้ฟังก์ชันตรวจสอบ (ตรวจสอบ) 'ใช้เป็นประจำเพื่อตรวจสอบว่า IP ถูกกฎหมายหรือไม่
Dim re1
ตั้งค่า re1 = ใหม่ regexp
re1.pattern =^[0-9] {1,3}
re1.global = false
RE1.IGNORECASE = FALSE
CHECT = RE1.TEST (CHECKSTRING)
ตั้งค่า re1 = ไม่มีอะไร
ฟังก์ชันสิ้นสุด
ฟังก์ชั่น get_cli_ip () 'เพื่อใช้ฟังก์ชัน IP จริง, http_client_ip ก่อนแล้ว http_x_forwardeded_for จากนั้น remote_addr
dim client_ip
ถ้า cemnicip (request.serverVariables (http_client_ip)) = true แล้ว
get_cli_ip = checkip (request.serverVariables (http_client_ip))
อื่น
myarray = split (request.serverVariables (http_x_forwarded_for) ,,)
ถ้า ubound (myArray)> = 0 แล้ว
client_ip = trim (myarray (0))
ถ้าตรวจสอบ (client_ip) = จริงแล้ว
get_cli_ip = client_ip
ฟังก์ชั่นออก
สิ้นสุดถ้า
สิ้นสุดถ้า
get_cli_ip = request.serverVariables (remote_addr)
สิ้นสุดถ้า
ฟังก์ชันสิ้นสุด