Le script ci-apres est un compteur "texte" qui me permet de savoir combien de
gens font des requetes sur la base de données. C'est une statistique qui est faite
au moment de la validation du formulaire de recherche.
Dim fso
Set fso = Server.CreateObject ("Scripting.FileSystemObject")
filePath = Server.MapPath ("requete.txt")
Application("requeteFilePath") = filePath
Set fich = fso.OpenTextFile(filePath, 1)
valeur = fich.ReadLine()
fich.Close
Set fich = fso.OpenTextFile(filePath, 2)
modif = fich.Write(valeur + 1)
fich.Close
Le script ci-apres sont des statistiques sur la provenance de l'intranaute. Elles sont
prélevées sur la premiere page. Enore une fois c'est du texte, mais je pourrais très bien
alimenter une base de données
Dim navigateur
Set navigateur = Request.ServerVariables ("HTTP_USER_AGENT")
Dim ip_visiteur
Set ip_visiteur = Request.ServerVariables("REMOTE_HOST")
Dim fso
Set fso = Server.CreateObject ("Scripting.FileSystemObject")
Set fic = fso.OpenTextFile("c:\Inetpub\wwwroot\Mon_site\visiteurs.txt", 8)
Dim date_heure
date_heure = Now()
fic.WriteLine(ip_visiteur) & " " & " " & FormatDateTime(date_heure, 0) & " " & " " & (navigateur)
fic.Close
Set fso = Nothing
Ma seule variable de Session est celle qui contient le résultat de la requete (Recordset).
Elle me permet de retrouver mon recordset de page en page.
J'ai aussi un "vrai compteur" qui lui est situé en premiere page.
