Un compteur de visiteur...

Soyez le premier à donner votre avis sur cette source.

Snippet vu 18 497 fois - Téléchargée 38 fois

Contenu du snippet

Ce compteur de visiteur sauvegarde les données dans \compteur.txt

Source / Exemple :


<%
Dim objFSO, objCountFile, strCountFileName, iCount, I    
strCountFileName = Server.MapPath("/compteur.txt")
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")

Set objCountFile = objFSO.OpenTextFile(strCountFileName, 1, True)
If Not objCountFile.AtEndOfStream Then
	iCount = CLng(objCountFile.ReadAll)
Else
	iCount = 0
End If

' Ferme le ficher
objCountFile.Close
Set objCountFile = Nothing

' ajoute 1
iCount = iCount + 1
Set objCountFile = objFSO.CreateTextFile(strCountFileName, True)

' Ecris le nouveau chiffre
objCountFile.Write iCount

' ferme le fichier
objCountFile.Close
Set objCountFile = Nothing
Set objFSO = Nothing

	Response.Write iCount
%><br><br>

A voir également

Ajouter un commentaire Commentaires
flattazor Messages postés 8 Date d'inscription dimanche 23 septembre 2007 Statut Membre Dernière intervention 12 janvier 2010
25 janv. 2008 à 19:38
svp j ai un probléme a ce niveau de code.

Set objCountFile = objFSO.CreateTextFile(strCountFileName, True)


je veux une solution le plus vite possible . merci


il faut modifier les propriétes de sécurité de ton fichier texte (tu mets control total)

le code fonctionne trés bien, merci pour le créateur
assehlyoussef Messages postés 7 Date d'inscription samedi 12 novembre 2005 Statut Membre Dernière intervention 22 juillet 2007
22 juil. 2007 à 18:31
svp j ai un probléme a ce niveau de code.

Set objCountFile = objFSO.CreateTextFile(strCountFileName, True)


je veux une solution le plus vite possible . merci
neuf9 Messages postés 1 Date d'inscription vendredi 25 mai 2007 Statut Membre Dernière intervention 28 mai 2007
28 mai 2007 à 14:53
maisou je vais mettre ce code pour qu'il marche, j'copier et je l'ai coler dans la source de page mais ya rien, si vous expliquer pas tout alors pas la paine
cs_excalib Messages postés 1 Date d'inscription jeudi 26 février 2004 Statut Membre Dernière intervention 26 février 2004
26 févr. 2004 à 17:33
Ignard en programmation (sauf peut etre javascript) j'ai quand meme crée mon site et souhaite ajouter un compteur de visiteurs ultra simple mais introuvable. Celui ci me parait OK . Evidemment j'ai voulu essayer mais, AU SECOURS, ca ne marche pas. J'ai crée un fichier compteur.txt (pour enregistrer les donnees) et copié le code source dans un fichier CPT avec le bloc notes de Windows. Mais dites moi: faut il compiler (si oui comment), comment lancer le programme (moi j'appelle directement CPT !!) ????????
Je vous l'avais dis je suis nul, naze mais quand on s'adresse à des pros... Merci d'avance si vous pouvez me consacrer 5 mn de votre temps.
Frank339 Messages postés 164 Date d'inscription mardi 18 décembre 2001 Statut Membre Dernière intervention 19 décembre 2008
18 sept. 2003 à 15:30
ca me met erreur
Error Type:
Microsoft VBScript runtime (0x800A0046)
Permission denied
/index20000.asp, line 331
c koi la solution ?
Afficher les 8 commentaires

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.