[Resolvido] Ip

[Lain_Experiments 0]

E aê pessoal, belezinha?

 

Eu preciso identificar a cidade dos usuários que entram em meu site pelo ip deles, que ficam armazenados em um relatório da Locaweb.Assim poderei ter uma idéia das cidades em que há maiores ocorrências de visitas ao site.

Alguém tem uma dica? Um aplicativo grátis onde eu posso fazer isso, ou algum código em ASP?

 

Tenho aqui um código,que achei aqui no imasters, mas o site que eles estava pegando como referência, mudou de layout ou algo assim, por que sempre dá erro quando tento executar. Aí coloquei outro site que também passa as variáveis por url, mas não consegui ainda implementar o código para pegar as informações desse site.Se alguém também tiver uma idéia de como fazer isso, vou ficar muito, muito agradecida.

 

Obrigada =)

 

Abaixo o código:

<%
Function BinaryToString(strBinary)
Dim intCount, xBinaryToString
xBinaryToString = ""
For intCount = 1 to LenB(strBinary)
xBinaryToString = xBinaryToString & chr(AscB(MidB(strBinary,intCount,1)))
Next
BinaryToString = xBinaryToString
End Function

Set Obj = CreateObject("Msxml2.XMLHTTP")
ip = Request.ServerVariables("REMOTE_ADDR") 
strURL = "http://www.ipgeo.com.br/Rel01.asp?ip="& ip 'troquei essa url por http://en.utrace.de/?query=

On Error resume Next
Obj.open "GET",strURL,False
Obj.send

strURL = BinaryToString(Obj.responseBody)
AchaInicio = Instr(1,strURL,".")
AchaInicio2 = Cint(Instr(AchaInicio,strURL,"<td>"))+0
AchaFim = Instr(AchaInicio2,strURL,"</td>")
Diferenca = Cint(AchaFim - AchaInicio2)
cidade = Mid(strURL,AchaInicio2,Diferenca)
estado = Mid(strURL,AchaInicio2+50,Diferenca+2)
pais="BR"

If Err <> 0 Then
'se ip não for no Brasil procura internacional
On Error resume Next
strURL = "http://www.programacionweb.net/utilidades/paisip.php?url=" & ip
obj.open "GET",strURL,False
obj.send
strURL = BinaryToString(Obj.ResponseBody)
AchaInicio = Instr(1,strURL,"banderas/")
AchaInicio2 = Cint(Instr(AchaInicio,strURL," /> "))+3
AchaFim = Instr(AchaInicio2,strURL,"</td>")
Diferenca = Cint(AchaFim - AchaInicio2)
Response.Write Mid(strURL,AchaInicio2,Diferenca)
If Err <> 0 Then
'se ocorrer erro no ip internacional exibe erro
Response.Write("erro")
end if
Else
'se ip for no Brasil mostra os dados
Response.Write(cidade&"<br>")
Response.Write(estado&"<br>")
Response.Write(pais)
End If
%>

[Ted k' 126]

Eu aconselho a usar as ferramentas do google... mais...

 

tem como colocar seu script rodando em algum link para analisar os erros?

[Lain_Experiments 0]

Então Ted, tem o Google Analytics, só que ele só te informa os dados dos ips, apartir do momento em que você inscreve seu site. Eu precisava saber sobre os Ip's que já visitaram...

 

Ah, sobre o erro do site, ele cai direto no Response.Write("erro"), só printa um " Erro" na tela.

[Ted k' 126]

Retire o "On Error resume Next"

[Lain_Experiments 0]

Oi Ted, eu retirei essa parte, e ocorreu o seguinte erro de string:

 

"Erro de tempo de execução do Microsoft VBScript (0x800A0005)

Chamada de procedimento ou argumento inválido: 'Instr'

/pqs/teste_ip.asp, line 22"

 

Eu sempre tenho problemas com esse tipo de erro...

(Ps: Sou iniciante em Asp )

[Ted k' 126]

Esse script é muito antigo, o site que ele esta buscando ja mudou totalmente a estrutura, agora ele é em .NET, teria que criar um novo codigo de consulta!

[Lain_Experiments 0]

Entendi...

É difícil mesmo achar alguma coisa em ASp que funcione hoje em dia... Mas, onde trabalho, só se usa ASP, fazer o que neh?

Bom, vou continuar procurando alguma coisa aqui...

Obrigada pela atenção Ted !

 

valew

[xanburzum 169]

dá uma olhada em http://www.ip2location.com.

[-_KIKO_- 0]

Tem também o meu site que oferece isso

 

www.mapadoip.com

 

A base de geoip está um pouco desatualizada, assim que eu tiver um tempo eu vou atualiza-la.

Tem um source de exemplo para baixar la

[xanburzum 169]

legal, esse mapa de IP, depois você pode utilizar o banco de dados em suas paginas

[Lain_Experiments 0]

Nossa, legal mesmo esse mapa...parabéns Kiko

 

Valew pela ajuda meninos =)