كتبت رمز ASP لأخذ عنوان IP الحقيقي ، ولا يوجد وكيل أو أول أو عامل متعدد المستويات مع اختبار بيئي.
دالة chovip (checkstring) "استخدم بانتظام لتحديد ما إذا كان IP قانونيًا
DIM RE1
تعيين re1 = جديد regexp
re1.pattern =^[0-9] {1،3}
re1.global = false
re1.ignorecase = false
cadcip = re1.test (checkstring)
تعيين re1 = لا شيء
وظيفة نهاية
وظيفة get_cli_ip () 'لأخذ وظيفة IP الحقيقية ، أولاً http_client_ip ثم http_x_forwarded_for ثم remote_addr
Dim Client_ip
إذا كان cadcip (request.servervariables (http_client_ip)) = صحيح ثم
get_cli_ip = quadip (request.servervariables (http_client_ip))
آخر
myarray = split (request.servervariables (http_x_forwarded_for) ،،)
إذا كان Ubound (myarray)> = 0 ثم
client_ip = trim (myarray (0))
إذا كان cadcip (client_ip) = true ثم
get_cli_ip = client_ip
وظيفة الخروج
إنهاء إذا
إنهاء إذا
get_cli_ip = request.servervariables (Remote_addr)
إنهاء إذا
وظيفة نهاية