Un compteur de visiteur...

Soyez le premier à donner votre avis sur cette source.

Snippet vu 14 208 fois - Téléchargée 88 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

comment ecrire ailleurs que sous la racine de l'hebergeur ?
sous la racine de mon site par exemple ...
Focalizer
Messages postés
76
Date d'inscription
dimanche 19 mai 2002
Statut
Membre
Dernière intervention
8 mai 2006
-
c'est assé simple, sur la ligne :

strCountFileName = Server.MapPath("/compteur.txt")

tu remplace par :

strCountFileName = Server.MapPath("/soudossier1/soudossier2/compteur.txt")

où, soudissier1 est le nom de ton compte et sousdossier2 un dossier de ton site, mais attention il te faut les autorisa
Focalizer
Messages postés
76
Date d'inscription
dimanche 19 mai 2002
Statut
Membre
Dernière intervention
8 mai 2006
-
c'est assé simple, sur la ligne :

strCountFileName = Server.MapPath("/compteur.txt")

tu remplace par :

strCountFileName = Server.MapPath("/soudossier1/soudossier2/compteur.txt")

où, soudissier1 est le nom de ton compte et sousdossier2 un dossier de ton site, mais attention il te faut les autorisation en écriture sur le dossier dans lequel tu va metre ton fichier texte.

@+ Focalizer

ps : mieux vaut tard que jamais ;)

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.