Es una buena solución determinar automáticamente el código para redirigir a la sucursal en función de la dirección IP, lo que puede aliviar algunos problemas como la presión excesiva del servidor. La función getIpvalue(clientIP)' obtiene la IP del cliente y la convierte en un número entero largo. y devuelve el valor getIpvalue
En caso de error Continuar siguiente
Tira tenue, array_Ip
tira=0
array_Ip = Dividir(clienteIP,.)
Si UBound(array_Ip)<>3 Entonces
obtenerIpvalor=0
Función de salida
Terminar si
Para i=0 a 3
strIp=strIp+(CInt(array_Ip(i))*(256^(3-i)))
Próximo
getIpvalue=tiraIp
Si Err entonces getIpvalue=0
Función final
clientIP=solicitud.ServerVariables(REMOTE_HOST)
ValorIP=obtenervalorIP(IPCliente)
strSql=seleccione la 1 ciudad principal de [Dirección IP] donde &ValorIp&
entre Ip1 e Ip2
Establecer RsIp=conn.execute(strSql)
Si RsIp.bof y RsIp.eof entonces
UrlCiudad=Desconocido
Demás
UrlCity=RsIp.Fields.Item(Ciudad).Valor
Terminar si
si instr(UrlCity,Guangzhou)<>0 entonces
respuesta.Redirect(http://www.vevb.com)
terminar si
si instr(UrlCity,Shenzhen)<>0 entonces
respuesta.Redirect(http://js.vevb.com)
terminar si
si instr(UrlCity,Shanghai)<>0 entonces
respuesta.Redirect(http://tool.vevb.com)
terminar si
La base de datos de IP utilizada se puede descargar en línea.