ฟังก์ชั่น 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("เมือง").Value
สิ้นสุด ถ้า
if 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库超过1M，所以上传不了，IP库网上很多，code.knowsky.com 就有下载。上的只是其中一种方法.