Ini adalah solusi yang baik untuk secara otomatis menentukan kode untuk mengalihkan ke cabang berdasarkan alamat IP, yang dapat mengatasi beberapa masalah seperti tekanan server yang berlebihan. Fungsi getIpvalue(clientIP)' mendapatkan IP klien dan mengubahnya menjadi bilangan bulat panjang, dan mengembalikan nilai 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.Variabel Server(REMOTE_HOST)
IpValue=dapatkanIpvalue(IP klien)
strSql=pilih 1 Kota teratas dari [Alamat Ip] di mana &NilaiIp&
antara Ip1 dan Ip2
Setel RsIp=sambungan.eksekusi(strSql)
Jika RsIp.bof dan RsIp.eof maka
UrlCity=Tidak Diketahui
Kalau tidak
UrlCity=RsIp.Fields.Item(Kota).Nilai
Akhiri Jika
jika instr(UrlCity,Guangzhou)<>0 lalu
respon.Redirect(http://www.vevb.com)
berakhir jika
jika instr(UrlCity,Shenzhen)<>0 lalu
respon.Redirect(http://js.vevb.com)
berakhir jika
jika instr(UrlCity,Shanghai)<>0 lalu
respon.Redirect(http://tool.vevb.com)
berakhir jika
Basis data IP yang digunakan dapat diunduh secara online.