Função getIpvalue(clientIP) '得到客户端 的IP转换成长整型，返回值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 1ª cidade principal de [Ipaddress] onde "&IpValue&" entre Ip1 e Ip2"
Definir RsIp=conn.execute(strSql)
Se RsIp.bof e RsIp.eof então
UrlCity="未知"
Outro
UrlCity=RsIp.Fields.Item("Cidade").Valor
Fim If
if instr(UrlCity,"广州")<>0 then response.Redirect(" http://code.knowsky.com ")
se instr(UrlCity,"深圳")<>0 então resposta.Redirect(" http://moban.knowsky.com ")
if instr(UrlCity,"上海")<>0 then response.Redirect(" http://font.knowsky.com ")
由于IP库超过1M，所以上传不了，IP库网上很多，code.knowsky.com 就有下载。上面只是其中一种方法.