لقد كتبت الكود الخاص بـ asp للحصول على عنوان IP الحقيقي، واستخدمت البيئة لاختبار حالة عدم وجود وكيل أو وكلاء من مستوى واحد أو متعدد المستويات، ويمكن الحصول على الكود المنسوخ بشكل طبيعي، ويكون الكود كما يلي:
function checkip(checkstring)' استخدم التعبيرات العادية لتحديد ما إذا كان عنوان IP قانونيًا
خافت re1
set re1=new RegExp
re1.pattern=^[0-9]{1,3}.[0-9]{1,3}.[0-9]{1,3}.[0-9]{1,3}$
re1.global=false
re1.Ignorecase=false
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))=صحيح إذن
get_cli_ip = checkip(Request.ServerVariables(HTTP_CLIENT_IP))
آخر
MyArray = تقسيم (Request.ServerVariables (HTTP_X_FORWARDED_FOR)،،)
إذا ubound(MyArray)>=0 إذن
Client_ip = تقليم (MyArray (0))
إذا checkip(client_ip)=صحيح إذن
get_cli_ip =client_ip
وظيفة الخروج
نهاية إذا
نهاية إذا
get_cli_ip = Request.ServerVariables(REMOTE_ADDR)
نهاية إذا
وظيفة النهاية