الدالة 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("المدينة").Value
إنهاء إذا
كان instr(UrlCity,"广州")<>0 ثم Response.Redirect(" http://code.knowsky.com ")
إذا instr(UrlCity,"深圳")<>0 ثم Response.Redirect(" http://moban.knowsky.com ")
إذا كان instr(UrlCity,"上海")<>0 ثم Response.Redirect(" http://font.knowsky.com ")
由于IP IP 1M، 所以上传不了، IP 库网上很多،code.knowsky.com 就لا يوجد أي مشكلة.