log

[marciolvs 1]

Pessoal, existe algum scrpit que crio que o mesmo grava tudo que é feito em um sistema restrito, após o login, identificando um IP?

 

Caso alguem poder ajudar ou dar dica de como começo agradeço..

[xanburzum 169]

olha este exemplo:

 

LogFile.asp

<%
Dim blnValidEntry       ' Log variable



blnValidEntry = True




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




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


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





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)




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>"



TS.write strLog
TS.Writeline ""





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