C'est une bonne solution pour déterminer automatiquement le code à rediriger vers la succursale en fonction de l'adresse IP, ce qui peut atténuer certains problèmes tels qu'une pression excessive sur le serveur. La fonction getIpvalue(clientIP)' récupère l'adresse IP du client et la convertit en un entier long, et renvoie la valeur getIpvalue
En cas d'erreur, reprendre ensuite
Dim strIp, array_Ip
strIp=0
array_Ip = Split (clientIP,.)
Si UBound(array_Ip)<>3 Alors
getIpvalue=0
Fonction de sortie
Fin si
Pour i=0 à 3
strIp=strIp+(CInt(array_Ip(i))*(256^(3-i)))
Suivant
getIpvalue=strIp
Si Err Alors getIpvalue=0
Fonction de fin
clientIP=request.ServerVariables(REMOTE_HOST)
IpValue=getIpvalue(clientIP)
strSql=sélectionner la première ville de [Ipaddress] où &IpValue&
entre Ip1 et Ip2
Définir RsIp=conn.execute(strSql)
Si RsIp.bof et RsIp.eof alors
UrlVille=Inconnu
Autre
UrlCity=RsIp.Fields.Item(Ville).Value
Fin si
si instr(UrlCity,Guangzhou)<>0 alors
réponse.Redirect (http://www.vevb.com)
finir si
si instr(UrlCity,Shenzhen)<>0 alors
réponse.Redirect(http://js.vevb.com)
finir si
si instr(UrlCity,Shanghai)<>0 alors
réponse.Redirect (http://tool.vevb.com)
finir si
La base de données IP utilisée peut être téléchargée en ligne.