Es ist eine gute Lösung, anhand der IP-Adresse automatisch den Code zu bestimmen, der zur Filiale umgeleitet werden soll, was einige Probleme wie übermäßigen Serverdruck lindern kann. Die Funktion getIpvalue(clientIP) ruft die IP des Clients ab und wandelt sie in eine lange Ganzzahl um. und gibt den Wert getIpvalue zurück
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
Setze RsIp=conn.execute(strSql)
Wenn RsIp.bof und RsIp.eof, dann
URLCity=Unbekannt
Anders
UrlCity=RsIp.Fields.Item(City).Value
Ende wenn
wenn instr(UrlCity,Guangzhou)<>0 dann
Antwort.Redirect(http://www.vevb.com)
Ende wenn
wenn instr(UrlCity,Shenzhen)<>0 dann
Antwort.Redirect(http://js.vevb.com)
Ende wenn
wenn instr(UrlCity,Shanghai)<>0 dann
Antwort.Redirect(http://tool.vevb.com)
Ende wenn
Die verwendete IP-Datenbank kann online heruntergeladen werden.