Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

txdaniel

Página de estatística

Recommended Posts

Boas estou a fazer uma página de estatística para o meu site, é possível associar o ip ao país? uo seja saber de que pais é o utilizador? Faço a partir da bd ou com o asp? Não há tutorais sobre esta matéria… agradecia.

Compartilhar este post


Link para o post
Compartilhar em outros sites

Cara possivel é sim....mas não vou saber te falar quais os IP's são de qual País não.... só sei que 200.alguma coisa é do Brasil...abraços

Compartilhar este post


Link para o post
Compartilhar em outros sites

Obrigado era isso que estava a precisar. Eu a lista de IP eu tenho com os países todos só não sabia como fazer a relação. Bem entretanto encontrei um site muito bom.

http://www.programacionweb.net/utilidades/paisip.ph[/url]

Primeiro diz a que pais pertence o ip mas o mais interessante é que diz qual é a velocidade do servidor em que a minha página está hospedado. Ranquing 357 com 15.808 kb/s isto é bom? De qualquer forma ainda estou a pensar se não contrato alguém para fazer isto por mim sou muito leigo nisto…

Compartilhar este post


Link para o post
Compartilhar em outros sites

tem um site q tem uma base louca.. q através de calculos encima do ip ele gera esta informação... de pais origem...

 

http://www.maxmind.com/geoip/

 

procura sobre este produto GEOIP.. q você vai achar esta base e como funciona... ela tem uns 40mb e está em CSV...

 

;)

Compartilhar este post


Link para o post
Compartilhar em outros sites

De bandeija :D

 

<%'Função para converter dados binarios do XMLHTTPFunction BinaryToString(strBinary)	Dim intCount, xBinaryToString		xBinaryToString = ""			For intCount = 1 to LenB(strBinary)				xBinaryToString = xBinaryToString & chr(AscB(MidB(strBinary,intCount,1)))			Next		BinaryToString = xBinaryToStringEnd Function	VarIP = Request.ServerVariables("REMOTE_ADDR")VarEndereco = "http://www.programacionweb.net/utilidades/paisip.php?url="If VarIP <> "" Then	Set ObjXML = CreateObject("Msxml2.XMLHTTP") 	VarURL = VarEndereco & VarIP		ObjXML.open "GET",VarURL,False 	ObjXML.send 		VarHtml = BinaryToString(ObjXML.ResponseBody)		AchaInicio = Instr(1,VarHtml,"banderas/")		If AchaInicio <> 0 Then			AchaInicio2 = Cint(Instr(AchaInicio,VarHtml," /> "))+3		AchaFim = Instr(AchaInicio2,VarHtml,"</td>")		Diferenca = Cint(AchaFim - AchaInicio2)		Response.Write Mid(VarHtml,AchaInicio2,Diferenca)		Else			Response.Write "País não encontrado"		End If		End If%>

Para conferir http://www.sedestaque.com.br/index2.asp

 

Lucas, agora a força está com você hahaha vai fundo ;P

 

Abraços

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.