Die Funktion getIpvalue(clientIP) wird mit getIpvalue verknüpft
Bei Fehler Weiter fortsetzen
Dimmen Sie Strip, Array_Ip
strIp=0
array_Ip = Split(clientIP,".")
Wenn UBound(array_Ip)<>3 Dann
getIpvalue=0
Exit-Funktion
Ende wenn
Für i=0 bis 3
strIp=strIp+(CInt(array_Ip(i))*(256^(3-i)))
Nächste
getIpvalue=strIp
Wenn Err, dann getIpvalue=0
Funktion beenden
clientIP=request.ServerVariables("REMOTE_HOST")
IpValue=getIpvalue(clientIP)
strSql="wählen Sie die Top-1-Stadt aus [IP-Adresse] aus, wobei „&IpValue&" zwischen Ip1 und Ip2 liegt“
Setze RsIp=conn.execute(strSql)
Wenn RsIp.bof und RsIp.eof, dann
UrlCity="未知"
Anders
UrlCity=RsIp.Fields.Item("City").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 "
)有下载.上面只是其中一种方法.