É uma boa solução determinar automaticamente o código a ser redirecionado para a filial com base no endereço IP, o que pode aliviar alguns problemas como a pressão excessiva do servidor. A função getIpvalue(clientIP)' obtém o IP do cliente e o converte em um número inteiro longo, e retorna o valor getIpvalue
Em caso de erro, retomar o próximo
Dim strIp, array_Ip
strIp = 0
array_Ip = Dividir(clientIP,.)
Se UBound(array_Ip)<>3 Então
getIpvalue=0
Função de saída
Terminar se
Para i = 0 a 3
strIp=strIp+(CInt(array_Ip(i))*(256^(3-i)))
Próximo
getIpvalue=strIp
Se errar então getIpvalue=0
Função final
clientIP=request.ServerVariables(REMOTE_HOST)
IpValue=getIpvalue(clientIP)
strSql = selecione a primeira cidade de [Ipaddress] onde &IpValue&
entre Ip1 e Ip2
Definir RsIp=conn.execute(strSql)
Se RsIp.bof e RsIp.eof então
UrlCity=Desconhecido
Outro
UrlCity=RsIp.Fields.Item(Cidade).Valor
Terminar se
se instr(UrlCidade,Guangzhou)<>0 então
resposta.Redirect (http://www.vevb.com)
terminar se
se instr(UrlCidade,Shenzhen)<>0 então
resposta.Redirect (http://js.vevb.com)
terminar se
se instr(UrlCity,Xangai)<>0 então
resposta.Redirect(http://tool.vevb.com)
terminar se
O banco de dados IP usado pode ser baixado online.