関数 getIpvalue(clientIP) 'ゲスト端末の IP 转换成长整型を取得し、getIpvalue を返します
エラー時は次へ再開
Dim strIp、array_Ip
strIp=0
array_Ip = Split(clientIP,".")
UBound(array_Ip)<>3 の場合
getIpvalue=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="[Ipaddress] から、Ip1 と Ip2 の間の「&IpValue&」から上位 1 つの都市を選択します"
RsIp=conn.execute(strSql) を設定します
RsIp.bof と RsIp.eof の場合
URLCity="不明"
それ以外
URLCity=RsIp.Fields.Item("都市").Value
End If
if instr(UrlCity,"广州")<>0 then response.Redirect(" http://code.knowsky.com ")
if instr(UrlCity,"深圳")<>0 then response.Redirect(" http://moban.knowsky.com ")
if instr(UrlCity,"上海")<>0 then response.Redirect(" http://font.knowsky.com ")
由IP库超过1M，所以上传不了，IP库网上很多，code.knowsky.com 就上記はその中の 1 つの方法です。