[Resolvido] Log

[xanburzum 169]

Aqui está um exemplo de como fazer um arquivo de log para uma página ASP para manter o controle de usuários em seu site, incluindo a OMS, e desde que referentes URL. O exemplo usa um arquivo de texto para escrever as informações do usuário, criar um arquivo com o seguinte código e adicione no cabeçalho de cada página usando Server Side # Include.

 

<!--# Include File = "LogFile.asp" ->

 

Quando alguém vai vir para o seu site em qualquer página que tenha LogFile.asp incluídas as informações do usuário serão gravados LogFile.txt. Se o URL de referência é do mesmo site, LogFile.asp não irá escrever essa informação.

 

<%
Dim blnValidEntry       ' Log variavel

'Primeiro conjunto que este registro é válido blnValidEntry = True
' Se Session Variable "LogIn" não é vazia "quer dizer que essa pessoa já foi registrada", então set blnValidEntry to False

If not IsEmpty(Session("LogIn")) then blnValidEntry = False

' Aqui você pode adicionar restrições diferentes 
'Se o URL de referência é do mesmo sítio
'então não há necessidade de gravar arquivo de log

If Left(Request.ServerVariables("HTTP_REFERER"), 17)="http://seu_dominio.com"  Then 
 blnValidEntry = False
End If

If Left(Request.ServerVariables("HTTP_REFERER"), 21)="http://www.devasp.com"  Then
 blnValidEntry = False
End If

' BlnValidEntry Agora, se for verdade, então entrar 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 string chamada 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>"


 Session("LogIn") = "yes" 
Set TS = Nothing 
Set FSO = Nothing
End If%>