Stats perso (1/3) |
Une gestion automatique des stats |
|
 |
Normalement, votre hébergeur, surtout s'il est payant, doit vous permettre d'accéder aux fichiers ".log" qui enregistrent tout ce qui se passe sur votre site... Des prestataires gratuits d'analyse de fréquentation du site existent aussi (je vous recommande Xiti). Mais comment faire lorsque l'on a des besoins particuliers... |
Stocker les hits -
Lire les hits -
Envoyer les stats
1. Stocker les hits
... (synthèse automatique périodique à envoyer au client, suivi de fréquentation des visiteurs enregistrés, analyses diverses des hits, des référents, des langues, etc...). Le plus simple peut être d'enregistrer soi-même les infos pertinentes et de les analyser ensuite avec quelques scripts... afin d'obtenir quelque chose comme ça !
| _stats.asp |  |  | |
| <% ' STOCKAGE DES INFOS DU HIT
Set FSO=Server.CreateObject("Scripting.FileSystemObject")
' nom du fichier = n° de semaine
Fnm = datediff("ww","01/01/70",now) & ".txt"
' infos concernant le hit
chaine = now & "|" _
& request.ServerVariables("REMOTE_ADDR") & "|" _
& request.ServerVariables("HTTP_ACCEPT_LANGUAGE") _
& "|" & request.ServerVariables("SCRIPT_NAME")
' s'il y a une query on la stocke aussi
query = request.ServerVariables("QUERY_STRING")
if query<>"" then chaine = chaine & "?" & query : end if
' si le référent n'est pas du site on le stocke
' sinon on sauve seulement "site"
refert = request.ServerVariables("HTTP_REFERER")
serveur = request.ServerVariables("SERVER_NAME")
if inStr(refert,"://" & serveur & "/") then
refert = "site"
end if
chaine = chaine & "|" & refert & "|"
' simplification du navigateur
navigt = request.ServerVariables("HTTP_USER_AGENT")
if inStr(navigt,"MSIE 4") then
navigt = "MSIE 4"
elseif inStr(navigt,"MSIE 5") then
navigt = "MSIE 5"
elseif inStr(navigt,"MSIE 5.5") then
navigt = "MSIE 5.5"
elseif inStr(navigt,"Netscape6") then
navigt = "Netscape 6"
elseif instr(navigt,"Mozilla") then
navigt = left(navigt,11)
else navigt = left(navigt,50) : end if
chaine = chaine & navigt & "|"
' marqueurt perso eventuel
chaine = chaine & marqueurt
' ecriture dans le fichier
set inF = FSO.openTextFile(dirstat & "\" & site & Fnm,8,true)
inF.writeLine(chaine)
inF.close
%> |
| 
| _stats.php | | | |
| <? // STOCKAGE DES INFOS DU HIT
// nom du fichier = n° de semaine
$Fnm = strval(floor(time()/(3600*24*7))).".txt";
// infos concernant le hit
$chaine = date("d/m/Y H:i:s")."|"; // date
$chaine .= getenv("REMOTE_ADDR")."|"; // IP visiteur
$chaine .= getenv("HTTP_ACCEPT_LANGUAGE")."|";
$chaine .= $PHP_SELF; // Page visitée
// s'il y a une query on la stocke aussi
if(getenv("QUERY_STRING"))
$chaine .= "?".getenv("QUERY_STRING");
// si le référent n'est pas du site on le stocke
// sinon on sauve seulement "site"
$refert = getenv("HTTP_REFERER"); // Référent
if(strpos($refert,"://".getenv("SERVER_NAME")."/"))
$refert = "site";
$chaine .= "|".$refert."|";
// simplification du navigateur
$navigt = getenv("HTTP_USER_AGENT");
if(strpos($navigt,"MSIE 4"))
$navigt = "MSIE 4";
elseif(strpos($navigt,"MSIE 5"))
$navigt = "MSIE 5";
elseif(strpos($navigt,"MSIE 5.5"))
$navigt = "MSIE 5.5";
elseif(strpos($navigt,"Netscape6"))
$navigt = "Netscape 6";
elseif(strpos($navigt,"Mozilla"))
$navigt = substr($navigt,0,11);
else $navigt = substr($navigt,0,50);
$chaine .= $navigt."|";
// marqueur perso eventuel
$chaine .= $marqueurt;
// ecriture dans le fichier
$inF = fopen($dirstat."/".$site.$Fnm,"a");
fputs($inF,$chaine."\n");
fclose($inF);
?>
|
|
Remarques
- Inclure la page "_stats" via SSI sur toutes les pages concernées :
|
<% ' Répertoire déprotégé dans lequel écrire les fichiers
dirstat = server.MapPath("/rep_deprotege")
' Nom du site pour distinguer plusieurs fichiers stats
site = "mon_site" %>
' Marqueur éventuel
marqueurt = request.cookies("email") %>
<!-- #include file="_stats.asp" -->
|
|
<? // Répertoire dans lequel écrire les fichiers
$dirstat = "mon_rep";
// Nom du site pour distinguer plusieurs fichiers stats
$site = "mon_site";
// Marqueur éventuel (cookie ?)
$marqueurt = $email;
include("_stats.php"); ?>
|
|
- Vous pouvez éventuellement vérifier le bon fonctionnement de l'ensemble sur une page privée, en attendant, de la manière suivante :
|
<pre>
<%
Set FSO=Server.CreateObject("Scripting.FileSystemObject")
dirstat = server.MapPath("/rep_deprotege")
site = "mon_site"
Fnm = datediff("ww","01/01/70",now) & ".txt"
set inF = FSO.openTextFile(dirstat & "\" & site & Fnm,1,false)
Response.write inF.readAll
inF.close %>
</pre>
|
|
<pre>
<?
$dirstat="mon_rep";
$site = "mon_site";
$Fnm = strval(floor(time()/(3600*24*7))).".txt";
include($dirstat."/".$site.$Fnm); ?>
</pre>
|
|
- Un fichier nouveau est créé chaque semaine (paramètre "ww" en ASP ou 7 en PHP) afin de pouvoir le rapatrier régulièrement du serveur et récupérer ainsi de l'espace (pour info, le fichier stat hebdo de ce site a une taille de plusieurs Mo !)... afin aussi de permettre des analyses on-line plus rapides (semaine en cours) ainsi que des analyses off-line complètes comme nous le verrons par la suite...
Si votre site a beaucoup de passages, vous pouvez modifier ce paramètre en mettant par exemple "d" en ASP ou 1 en PHP, créant ainsi un fichier nouveau chaque jour...
- Comme d'habitude, avec le Système de Fichiers, pour pouvoir écrire, il faut en ASP qu'un dossier ait été déprotégé en écriture (voir l'admin de l'hébergeur), et en PHP que des droits d'écriture soient donnés (CHMOD ou via le logiciel FTP)
- On peut aussi améliorer cette analyse en excluant, comme c'est le cas sur ce site, le(s) WebMaster(s) en leur posant un cookie dont la valeur sera testée avant d'enregistrer, ou non, le hit...
|
Didier le
03/10/2002 (114 665 hits) |
|
|
Forum |
Actu |
Glossaire |
Codes |
Tips |
Liens |
Livres |
Annuaire
