Código de exemplo para ASP criar arquivos de log
Este exemplo de criação de um arquivo de log com Asp usa um arquivo de texto para gravar informações do usuário. Crie um logfile.asp e coloque-o no topo de cada página asp <!--#Include File=LogFile.asp-->Quando alguém chega. para visitar seu site logfile.asp grava automaticamente suas informações em LogFile.txt Se os URLs relacionados forem iguais, o arquivo não será gravado.
Arquivo: LogFile.asp
O código é o seguinte:
<%
Dim ValidEntry ' Variável de log
'Primeiro defina que este log é válido
ValidEntry = Verdadeiro
'Se a variável de sessão LogIn não estiver vazia
'isso significa que esta pessoa já foi logada
' então defina ValidLog como False
Se não for IsEmpty(Session(LogIn)) então ValidEntry = False
'Aqui você pode adicionar diferentes restrições
'Se o URL de referência for do mesmo site
'não grava no arquivo de log
Se for deixado (Request.ServerVariables (HTTP_REFERER), 17)
= http://jzxue.com Então
ValidEntry = Falso
Terminar se
Se Esquerdo(Request.ServerVariables(HTTP_REFERER), 21)
= http://www.jzxue.com Então
ValidEntry = Falso
Terminar se
'Agora se ValidEntry for True então entre no arquivo de log
Se ValidEntry então
ConstForAppending = 8
Const Criar = verdadeiro
Escurecer FSO
DIM TS
DIM MeuNomeArquivo
DimstrLog
MeuNomeArquivo = Server.MapPath(MeuLogFile.txt)
Definir FSO = Server.CreateObject(Scripting.FileSystemObject)
Definir TS = FSO.OpenTextFile(MyFileName, ForAppending, Create)
' Armazena todos os valores necessários em strLog
strLog = <br><P><B> & agora & </B>
strLog = strLog & Request.ServerVariables(REMOTE_ADDR) &
strLog = strLog & Request.ServerVariables(HTTP_REFERER) &
strLog = strLog & Request.ServerVariables(HTTP_USER_AGENT) & <BR>
' Grava informações atuais no arquivo de texto de log.
TS.write strLog
TS.Writeline
'Cria uma variável de sessão para verificar na próxima vez ValidEntry
Sessão(LogIn) = sim
Definir TS = Nada
Definir FSO = Nada
Terminar se
%>