Compteur de visite avec variable de session

Soyez le premier à donner votre avis sur cette source.

Snippet vu 17 466 fois - Téléchargée 29 fois

Contenu du snippet

Salut , en fait ce code est juste une modife d'un code trouvé sur ce site ,
le compteur n'est pas incrementé a chaque rafraichissement de la page , mais apres la fin de la session normale , il utilise un fichier compteur.txt que vous de vez creer.
je sai c'est simple , mais ça marche

Source / Exemple :


'petit compteur modifié par Tidave
<%
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

if session("visiteur")="" then
   ' marque la session
   session("visiteur")="bon"
   

' 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

end if

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

A voir également

Ajouter un commentaire

Commentaires

Messages postés
7
Date d'inscription
samedi 12 novembre 2005
Statut
Membre
Dernière intervention
22 juillet 2007

bnojour tt les ami(e)s ;)

bon... pour moi ca marche pas ce code , j ai un probleme dans ce niveau la :

Set objCountFile = objFSO.CreateTextFile(strCountFileName, True)

si quelqu'un px nous donnez une solution
merci
Messages postés
16
Date d'inscription
mercredi 18 décembre 2002
Statut
Membre
Dernière intervention
21 février 2007

1) Alors non c'est pas du javasript c'est du vb script

2) non tu n'as pas besoin de retaper le code recopie les infos et colle les dans un fichier textes puis tu le copie a nouveau depuis le fichier texte (je ne sais pas pourquoi, mais des fois quand on copie directement depuis le navigateur ça déconne)

3)il faut créé le fichier txt
Messages postés
4
Date d'inscription
vendredi 9 septembre 2005
Statut
Membre
Dernière intervention
16 septembre 2005

bonjour voila voila j'ai bien collé comme tu as dis mais etant sur dreamweaver 4.0 ben ca me met des erreur j'ai pas l'impression que le code est fais pour ca , les if sur dreamweaver s'ecrivent if (condition){action} enfin voila , si ca se trouve c'est moi qui me trompe depuis le debut et c'est pas du javascript?
est ce que tu penhse que si je readapte ce code pour dream ca marchera ?
sinon le fichier texte faut le crer ou? dans le meme dossier que la page ou je met ce code je supose?
merci beaucoup
Messages postés
16
Date d'inscription
mercredi 18 décembre 2002
Statut
Membre
Dernière intervention
21 février 2007

Salut voilà tu copie et colle ça avant head
-------------------------------------------------------------------
-------------------------------------------------------------------
-------------------------------------------------------------------

<%
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


if session("visiteur")="" then
' marque la session
session("visiteur")="bon"



' 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


end if

%>




et ça dans body
----------------------------------------------------------------------
----------------------------------------------------------------------
----------------------------------------------------------------------


vous êtes le <%Response.Write iCount%> visiteurs
Messages postés
4
Date d'inscription
vendredi 9 septembre 2005
Statut
Membre
Dernière intervention
16 septembre 2005

bonjour j'ai bien trouve ce document et meme le fichier zip du compteur mais etant debutant j'ai pas compris ou on dois le metre?
je dois integre le code a ma page internet ? c'est pas du java, je dois en faire quoi en bref lol!
desole d'etre aussi ignorant...
merci part avance

lebouzou
Afficher les 6 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.