Función getIpvalue(clientIP) '得到客户端 的IP转换成长整型，返回值getIpvalue
En caso de error Continuar siguiente
Tira tenue, array_Ip
tira=0
array_Ip = Dividir(clienteIP,".")
Si UBound(array_Ip)<>3 Entonces
obtenervalorIp=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")
IpValue=getIpvalue(clientIP)
strSql="seleccione la 1 ciudad principal de [dirección IP] donde "&IpValue&" entre Ip1 e Ip2"
Establecer RsIp=conn.execute(strSql)
Si RsIp.bof y RsIp.eof entonces
UrlCity="未知"
Demás
UrlCity=RsIp.Fields.Item("Ciudad").Valor
Fin Si
instr(UrlCity,"广州")<>0 entonces respuesta.Redirect(" http://code.knowsky.com ")
si instr(UrlCity,"深圳")<>0 entonces respuesta.Redirect(" http://moban.knowsky.com ")
si instr(UrlCity,"上海")<>0 entonces respuesta.Redirect(" http://font.knowsky.com ")
由于IP库超过1M，所以上传不了，IP库网上很多，code.knowsky.com 就有下载。上面只是其中一种方法.