เป็นวิธีแก้ปัญหาที่ดีในการกำหนดโค้ดโดยอัตโนมัติเพื่อเปลี่ยนเส้นทางไปยังสาขาตามที่อยู่ IP ซึ่งสามารถบรรเทาปัญหาบางอย่าง เช่น ความกดดันของเซิร์ฟเวอร์ที่มากเกินไป ฟังก์ชัน getIpvalue(clientIP)' รับ IP ของไคลเอ็นต์และแปลงเป็นจำนวนเต็มแบบยาว และส่งคืนค่า getIpvalue
เมื่อเกิดข้อผิดพลาด ดำเนินการต่อต่อไป
หรี่แสง strIp, array_Ip
สตริพ=0
array_Ip = แยก (clientIP,.)
ถ้า UBound(array_Ip)<>3 แล้ว
รับค่าIp=0
ออกจากฟังก์ชัน
สิ้นสุดถ้า
สำหรับ i=0 ถึง 3
strIp=strIp+(CInt(array_Ip(i))*(256^(3-i)))
ต่อไป
getIpvalue=strIp
ถ้าเกิดข้อผิดพลาด ดังนั้น getIpvalue=0
ฟังก์ชันสิ้นสุด
clientIP=request.ServerVariables(REMOTE_HOST)
IpValue=getIpvalue(clientIP)
strSql=เลือกเมือง 1 อันดับแรกจาก [Ipaddress] โดยที่ &IpValue&
ระหว่าง Ip1 และ Ip2
ตั้งค่า RsIp=conn.execute(strSql)
ถ้า RsIp.bof และ RsIp.eof แล้ว
UrlCity=ไม่ทราบ
อื่น
UrlCity=RsIp.Fields.Item(เมือง).ค่า
สิ้นสุดถ้า
ถ้า 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 ที่ใช้สามารถดาวน์โหลดได้ทางออนไลน์