%@LANGUAGE="VBSCRIPT"%>
<% ' Compteur ASP de hits
' Création de l'objet permettant de manipuler les fichiers
Set FSO=CreateObject("Scripting.FileSystemObject")
' Le dossier "data" doit être déprotégé en écriture !
' (voir sinon avec l'admin de l'hébergeur)
fichier=Server.MapPath("/data") & "\compteur.txt"
' Lecture du fichier s'il existe et incrémente
cpt = 1
if FSO.FileExists(fichier) then
set inF = FSO.OpenTextFile(fichier,1,false)
cpt = CLNG(inF.readLine) + 1 ' jusqu'à 2 milliards
inF.close
end if
' Sauvegarde du compteur
set inF = FSO.createTextFile(fichier)
inF.writeLine(cpt)
inF.close
%>