[Resolvido] log simples

[xanburzum 169]

Aqui está um exemplo como fazer um arquivo de log para uma página ASP para manter controle dos usuários em seu site. Com este arquivo Log você será capaz de verificar que visitaram seu site, a que horas, que era o reffering URL e qual navegador que o usuário estava usando.

 

<%Dim blnValidEntry       'variavel Log 
' Primeiro conjunto que este registro é válido
blnValidEntry = True
' If Session Variable "LogIn" is not empty 
' significa que essa pessoa já foi registrada 
' entao set blnValidEntry para False
If not IsEmpty(Session("LogIn")) then blnValidEntry = False
'Aqui você pode adicionar diversas restrição 
'Se o referente url é o mesmo site 
', Então não há necessidade de escrever
If Left(Request.ServerVariables("HTTP_REFERER"), 21)="http://www.seu_site.com"  Then 
blnValidEntry = False
End If
' Agora, se  blnValidEntry é True, entra para arquivo de log
If blnValidEntry  Then  
Const ForAppending = 8
 Const Create = true 
 Dim FSO 
 Dim TS 
 Dim MyFileName 
 Dim strLog
 MyFileName = Server.MapPath("MyLogFile.txt")
 Set FSO = Server.CreateObject("Scripting.FileSystemObject") 
 Set TS = FSO.OpenTextFile(MyFileName, ForAppending, Create)
 ' Armazenar todas as informações necessárias em uma seqüência Chamado strLog
 strLog = "<br><P><B>" & NOW() & "</B> "
 strLog = strLog & Request.ServerVariables("REMOTE_ADDR") & " "
 strLog = strLog & Request.ServerVariables("HTTP_REFERER") & " "
 strLog = strLog & Request.ServerVariables("HTTP_USER_AGENT") & "<BR>"
 ' Escreve a informação atual no arquivo Log de texto.
 TS.write strLog
  TS.Writeline ""
 ' Agora Crie uma sessão varialbe para verificar a próxima vez para ValidEntry 
 Session("LogIn") = "yes"
 Set TS = Nothing 
 Set FSO = Nothing
 End If%>