Si vous n’avez la possibilité de mettre des outils statistiques performants sur votre site, nous vous proposons ce programme qui vous permettra de générer un fichier texte quotidien qui contient, sous forme de listing, les sites d’où viennent vos visiteurs ainsi leur adresse IP. Pour le 13 février 2009, vous aurez un fichier nommé « 13022009.log».
Voici le listing :
<%
‘ Création des différents éléments du nom du fichier .log
LogFiledate = Date
LogFileName = “ “
If Month(logFileDate) < 10 Then
LogFileName = “0”
End If
LogFileName = LogFileName & Month(logFileDate)
If Day(LogFileDate) < 10 Then
LogFileName = LogFileName & “0”
End If
‘ Création du nom du fichier .log
LogFileName= “ “  & LogFileName & day(LogFileDate) & Year(LogFileDate)  & “.log“
Set fs = CreateObjet(“Scripting.FileSystemObject“)
‘On crée une connexion avec le fichier  .log
Set a = fs.OpenTextFile(server.mappath(LogFileName), 8, True, False)
‘ Dans le cas où le visiteur vient de nulle part
If Request.ServerVariables(“HTTP_REFERER“) <= “ “  then
= 0
Else
‘ Si le visiteur vient d’un autre site
a.Write(“Referer:  “ &  Request.ServerVariables(“HTTP_REFERER“) )
a.Write(“ IP Adress:  “ &  Request.ServerVariables(“REMOTE_ADDR“) ) & VBcrlf
end if
%>
Pour exploiter ce script, il vous suffit simplement de l’insérer  au début de la première page de votre site.
Vous pouvez configurer la variable LogFileName en indiquant entre guillemets le nom du répertoire où vous souhaitez que vos fichiers .log s’enregistrent. Ne pas oublier à autoriser l’écriture de ce nouveau répertoire dans la configuration du serveur.