Vous souhaitez parfois savoir qui visite votre site, quand, son adresse IP, etc. Laissez-moi vous expliquer ce problème ci-dessous. Cet exemple utilise un fichier texte pour écrire les informations utilisateur afin de créer un fichier log.asp et de le placer en haut de chaque page asp <!--#Include File=LogFile.asp-->Lorsque quelqu'un visite votre site, logfile.asp écrit automatiquement ses informations dans LogFile.txt Si les URL associées sont les mêmes, le fichier ne sera pas écrit.
Fichier : LogFile.asp
Copiez le code comme suit :
<%
Dim ValidEntry ' Variable de journal
' Définissez d'abord que ce journal est valide
ValidEntry = Vrai
' Si la connexion à la variable de session n'est pas vide
' cela signifie que cette personne a déjà été connectée
'puis définissez ValidLog sur False
Si ce n'est pas IsEmpty(Session(LogIn)), alors ValidEntry = False
' Ici, vous pouvez ajouter différentes restrictions
' Si l'URL de référence provient du même site
'ne pas écrire dans le fichier journal
Si gauche (Request.ServerVariables (HTTP_REFERER), 17)
=http://vevb.com Alors
ValidEntry = Faux
Terminer si
Si gauche (Request.ServerVariables (HTTP_REFERER), 21)
=http://www.vevb.com Alors
ValidEntry = Faux
Fin si
'Maintenant, si ValidEntry est True, entrez dans le fichier journal
Si ValidEntry Alors
ConstForAppending = 8
Const Créer = vrai
Faible FSO
DIM TS
DIM MonNomFichier
Dim strLog
MonNomFichier = Serveur.MapPath(MonFichierLog.txt)
Définir FSO = Server.CreateObject (Scripting.FileSystemObject)
Définir TS = FSO.OpenTextFile (MyFileName, ForAppending, Create)
' Stocker toutes les valeurs requises dans strLog
strLog = <br><P><B> & maintenant & </B>
strLog = strLog & Request.ServerVariables (REMOTE_ADDR) &
strLog = strLog & Request.ServerVariables (HTTP_REFERER) &
strLog = strLog & Request.ServerVariables(HTTP_USER_AGENT) & <BR>
' Écrivez les informations actuelles dans le fichier texte du journal.
TS.write strLog
TS.Writeline
' Créez une variable de session pour vérifier la prochaine fois ValidEntry
Session (Connexion) = oui
Définir TS = Rien
Définir FSO = Rien
Fin si
%>