<% ' include compteur ASP
' ouverture du fichier stockant les visites
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
dim dir : dir = Server.MapPath("\data")
numb = 1
if FSO.FileExists(dir & "\compteur.txt") then
set inF = FSO.openTextFile(dir & "\compteur.txt",1,false)
' on lit le compteur et on ajoute 1
numb=cLng(inF.readLine) + 1
inF.close
end if
' on ecrit la nouvelle valeur dans le fichier
set inF = FSO.CreateTextFile(dir & "\compteur.txt")
inF.writeLine(numb)
' on n'oublie pas de le fermer pour libérer la mémoire utilisée
inF.close
' Afin de pouvoir le manipuler, on transforme le nombre en chaine de type string
data=cStr(numb)
' Préparation du formatage de la présentation du compteur dans un tableau HTML et
' démarrage par une petite image qui marquera le début du compteur graphique
%>
 |
<%
' On lit chaque caractère de la chaîne
for i = 1 to len(data)
' on affiche l'image correspondant au chiffre
%> %>.gif) |
<% next
' enfin, on termine le tableau HTML par une petite image "ème visite"
' Cette image est évidemment optionnelle, supprimez son appel au besoin,
' mais laissez bien les balises
et
de fermeture de tableau HTML
%> |