Un compteur de visiteur...

Soyez le premier à donner votre avis sur cette source.

Snippet vu 18 191 fois - Téléchargée 36 fois

Commenter

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

Signaler
flattazor
Messages postés
8
Date d'inscription
dimanche 23 septembre 2007
Statut
Membre
Dernière intervention
12 janvier 2010
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
Signaler
assehlyoussef
Messages postés
7
Date d'inscription
samedi 12 novembre 2005
Statut
Membre
Dernière intervention
22 juillet 2007
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
Signaler
neuf9
Messages postés
1
Date d'inscription
vendredi 25 mai 2007
Statut
Membre
Dernière intervention
28 mai 2007
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
Signaler
cs_excalib
Messages postés
1
Date d'inscription
jeudi 26 février 2004
Statut
Membre
Dernière intervention
26 février 2004
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.
Signaler
Frank339
Messages postés
164
Date d'inscription
mardi 18 décembre 2001
Statut
Membre
Dernière intervention
19 décembre 2008
ca me met erreur
Error Type:
Microsoft VBScript runtime (0x800A0046)
Permission denied
/index20000.asp, line 331
c koi la solution ?
Afficher les 8 commentaires
S'inscrire maintenant

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.

Du même auteur (cs_Pit)