Saya menulis kode untuk asp untuk mendapatkan IP asli, dan menggunakan lingkungan untuk menguji situasi tidak ada agen, agen satu level atau multi-level, dan kode yang disalin dapat diperoleh secara normal.
function checkip(checkstring)' Gunakan ekspresi reguler untuk menentukan apakah IP tersebut legal
redupkan re1
atur re1=RegExp baru
re1.pattern=^[0-9]{1,3}.[0-9]{1,3}.[0-9]{1,3}.[0-9]{1,3}$
re1.global=salah
re1.Abaikan huruf=salah
checkip=re1.test(periksa string)
atur re1=tidak ada
fungsi akhir
Copy kode kodenya sebagai berikut:
function get_cli_ip()'Dapatkan fungsi IP sebenarnya, pertama HTTP_CLIENT_IP lalu HTTP_X_FORWARDED_FOR lalu REMOTE_ADDR
redupkan client_ip
jika checkip(Request.ServerVariables(HTTP_CLIENT_IP))=true maka
get_cli_ip = checkip(Permintaan.ServerVariables(HTTP_CLIENT_IP))
kalau tidak
MyArray = split(Permintaan.ServerVariables(HTTP_X_FORWARDED_FOR),,)
jika ubound(MyArray)>=0 maka
client_ip = potong(Array Saya(0))
jika checkip(client_ip)=benar maka
get_cli_ip = klien_ip
fungsi keluar
berakhir jika
berakhir jika
get_cli_ip = Permintaan.ServerVariables(REMOTE_ADDR)
berakhir jika
fungsi akhir