informações do cliente

[Adriano Luz 0]

Ola amigos,

 

Em uma pagina ASP, ou em outra linguagem, quais as informações que eu consigo requisitar de quem esta acessando meu site?

 

Ex:

 

- IP;

- Nome da maquina;

- OS User ??

- SO;

- Navegador?

 

Desde ja agradeço

Adriano

[Mário Monteiro 179]

estas informações basicamente

 

http://www.w3schools.com/asp/coll_servervariables.asp

[xanburzum 169]

procure no forum k existem exemplos, de como criar um log de user com varias informacoes...

 

um exemplo simples

 

Quantas pessoas tem visitado o site?

Quais páginas são as mais vistas?

Como chegam ao ao site?

 

Você não conseguiria responder à essas questões com um simples contador. Pensando nisso foi desenvolvido um script em ASP que gera o registro do acesso (log) para o site da Dueto.

 

Quando um visitante acessa a página inicial do site (index.asp) é gerado de forma randômica um código que o indentificará no restante da visita - Session("Usuario"). Esse código, juntamente com o dia e horário do acesso, é enviado como um cookie para a máquina do visitante:

 

Response.Cookies("D")("CodUser") = Session("Usuario")

Response.Cookies("D")("Visitas") = 1

Response.Cookies("D")("Data") = Date()

Response.Cookies("D")("Hora") = Time()

 

Essas informações são aproveitadas caso haja um retorno do mesmo visitante em uma outra oportunidade.

 

Feito o envio do cookie as seguintes informações são registradas em um arquivo texto:

 

O código do visitante -

Session("usuario") ou Request.Cookies("D")("CodUser");

 

De que página ou site ele veio -

Request.ServerVariables("HTTP_REFERER");

 

O IP no momento -

Request.ServerVariables("REMOTE_HOST");

 

Data do último acesso (Cookie) -

Request.Cookies("D")("Data");

 

A página que acessou no site -

Request.ServerVariables("PATH_INFO");

 

Cada vez que o visitante acessa uma página dentro do site gera uma linha no log de acesso (acesso.txt). É plenamente possível e aconselhavél, se você tiver oportunidade, usar um banco de dados em lugar do arquivo texto.

 

Public Function DoLog(arquivo,mensagem)
	
	Dim ObjFSO, ObjFile, ObjStream, Dia, Mes, Ano, Hora, IpNum
	
	Const forReading = 1, forWriting = 2, forAppending = 8
	Const TriDef = -2, TriTrue = -1, TriFalse = 0
	
	Set ObjFSO = CreateObject("Scripting.FileSystemObject")
 	
   	If ObjFSO.FileExists(arquivo) = False then
   	
	   objFSO.CreateTextFile(arquivo)
	
	End If

	   Set ObjFile = objFSO.GetFile(arquivo)
	   Set objStream = ObjFile.OpenAsTextStream(forAppending,TriDef)

	   Dia = Day(Date())
	   Mes = Month(Date())
	   Ano = Year(Date())
	   Hora = Time()
	   IpNum = Request.ServerVariables("REMOTE_ADDR")
	
	   ObjStream.WriteLine Dia & "-" & Mes & "-" & Ano & " | " & Hora & " | " & IpNum & " --> " & Mensagem
	   ObjStream.close
        
    End Function
    
    DoLog "D:\Inetpub\wwwroot\treta\log.txt","Texto de teste"

%>