Fungsi getIpvalue(clientIP) '得到客户端 的IP转换成长整型,返回值getIpvalue
Pada Kesalahan Lanjutkan Berikutnya
Redupkan strIp, array_Ip
strIp=0
array_Ip = Pisahkan(IP klien,.")
Jika UBound(array_Ip)<>3 Lalu
dapatkan nilai Ip=0
Fungsi Keluar
Akhiri Jika
Untuk i=0 sampai 3
strIp=strIp+(CInt(array_Ip(i))*(256^(3-i)))
Berikutnya
dapatkanIpvalue=strIp
Jika Err Maka dapatkanIpvalue=0
Fungsi Akhir
clientIP=permintaan.ServerVariables("REMOTE_HOST")
IpValue=getIpvalue(clientIP)
strSql="pilih 1 Kota teratas dari [Alamat Ip] di mana "&IpValue&" antara Ip1 dan Ip2"
Setel RsIp=sambungan.eksekusi(strSql)
Jika RsIp.bof dan RsIp.eof maka
UrlCity="未知"
Kalau tidak
UrlCity=RsIp.Fields.Item("Kota").Nilai
Akhir Jika
jika instr(UrlCity,"广州")<>0 lalu respon.Redirect(" http://code.knowsky.com ")
jika instr(UrlCity,"深圳")<>0 maka respon.Redirect(" http://moban.knowsky.com ")
jika instr(UrlCity,"上海")<>0 maka respon.Redirect(" http://font.knowsky.com ")
由于IP库超过1M,所以上传不了，IP库网上很多，code.knowsky.com 就有下载。上面只是其中一种方法.