Saya menulis kode ASP untuk mengambil IP yang sebenarnya, dan tidak ada agen, agen pertama atau multi -level dengan pengujian lingkungan.
Fungsi checkip (checkstring) 'gunakan secara teratur untuk menentukan apakah IP legal
Redup re1
Setel RE1 = RegExp baru
Re1.pattern =^[0-9] {1,3}
Re1.global = false
Re1.ignorecase = false
Checkip = re1.test (checkString)
atur re1 = tidak ada
fungsi akhir
Fungsi get_cli_ip () 'Untuk mengambil fungsi IP asli, http_client_ip pertama dan kemudian http_x_forwardeded_for dan kemudian remote_addr
redup client_ip
jika checkip (request.serverVariable (http_client_ip)) = true kemudian
get_cli_ip = checkip (request.serverVariable (http_client_ip)))
kalau tidak
MyArray = split (request.serverVariable (http_x_forwarded_for) ,,)
jika ubound (myarray)> = 0 lalu
client_ip = trim (myarray (0))
jika checkip (client_ip) = true kemudian
get_cli_ip = client_ip
fungsi keluar
akhiri jika
akhiri jika
get_cli_ip = request.serverVariables (remote_addr)
akhiri jika
fungsi akhir