إنه حل جيد لتحديد التعليمات البرمجية لإعادة التوجيه إلى الفرع تلقائيًا بناءً على عنوان IP، مما يمكن أن يخفف بعض المشكلات مثل ضغط الخادم المفرط. تحصل الوظيفة getIpvalue(clientIP)' على عنوان IP الخاص بالعميل وتحوله إلى عدد صحيح طويل. وتقوم بإرجاع القيمة getIpvalue
على خطأ استئناف التالي
خافت strIp، array_Ip
ستريب=0
array_Ip = سبليت (clientIP،.)
إذا كان UBound(array_Ip)<>3 إذن
getIpvalue=0
وظيفة الخروج
نهاية إذا
لأني = 0 إلى 3
strIp=strIp+(CInt(array_Ip(i))*(256^(3-i)))
التالي
getIpvalue=strIp
إذا أخطأت، فستحصل على قيمة Ipvalue = 0
وظيفة النهاية
ClientIP=request.ServerVariables(REMOTE_HOST)
IpValue=getIpvalue(clientIP)
strSql=حدد أعلى مدينة من [Ipaddress] حيث &IpValue&
بين IP1 وIp2
تعيين RsIp=conn.execute(strSql)
إذا كان RsIp.bof وRsIp.eof ذلك الحين
UrlCity=غير معروف
آخر
UrlCity=RsIp.Fields.Item(City).Value
نهاية إذا
إذا instr(UrlCity,Guangzhou)<>0 ثم
استجابة.إعادة توجيه(http://www.vevb.com)
نهاية إذا
إذا instr(UrlCity,Shenzhen)<>0 ثم
استجابة.إعادة توجيه(http://js.vevb.com)
نهاية إذا
إذا instr(UrlCity,Shanghai)<>0 ثم
استجابة.إعادة توجيه(http://tool.vevb.com)
نهاية إذا
يمكن تنزيل قاعدة بيانات IP المستخدمة عبر الإنترنت.