Exemple de code pour ASP pour créer des fichiers journaux
Cet exemple de création d'un fichier journal avec Asp utilise un fichier texte pour écrire les informations utilisateur. Créez un fichier log.asp et placez-le en haut de chaque page asp <!--#Include File=LogFile.asp-->Quand quelqu'un arrive. pour visiter 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
Le code est le suivant :
<%
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://jzxue.com Alors
ValidEntry = Faux
Terminer si
Si gauche (Request.ServerVariables (HTTP_REFERER), 21)
=http://www.jzxue.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
%>