Às vezes você quer saber quem visita seu site, quando, endereço IP, etc. Deixe-me explicar esse problema para você abaixo. Este exemplo usa um arquivo de texto para gravar informações do usuário para criar um logfile.asp e colocá-lo no topo de cada página asp <!--#Include File=LogFile.asp-->Quando alguém visita seu site logfile.asp automaticamente Escreva suas informações para LogFile.txt Se as URLs relacionadas forem iguais, o arquivo não será gravado.
Arquivo: LogFile.asp
Copie o código do código da seguinte forma:
<%
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://vevb.com Então
ValidEntry = Falso
Terminar se
Se Esquerdo(Request.ServerVariables(HTTP_REFERER), 21)
= http://www.vevb.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
%>