IP アドレスに基づいてブランチにリダイレクトするコードを自動的に決定するのは良い解決策であり、関数 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(クライアントIP)
strSql=[IPアドレス] から上位 1 位の都市を選択します。 ここで &IpValue&
Ip1とIp2の間
RsIp=conn.execute(strSql) を設定します
RsIp.bof と RsIp.eof の場合
URLCity=不明
それ以外
URLCity=RsIp.Fields.Item(City).Value
終了の場合
if instr(UrlCity,Guangzhou)<>0 then
応答.リダイレクト(http://www.vevb.com)
終了する場合
if instr(UrlCity,Shenzhen)<>0 then
応答.リダイレクト(http://js.vevb.com)
終了する場合
if instr(UrlCity,Shanghai)<>0 then
応答.リダイレクト(http://tool.vevb.com)
終了する場合
使用される IP データベースはオンラインでダウンロードできます。