Compteur de visite avec variable de session
3/5 (6 avis)
Snippet vu 18 081 fois - Téléchargée 31 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
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
- Asp.net dump session
- Session code - Meilleures réponses
- Variable de session c# ✓ - Forum - C# / .NET
- ASP / ASP.NET : Lister les variables de session - CodeS SourceS - Guide
- Compteur de visite et de connecté v1.3 - Codes sources - PHP (Application)
- Compteur de visite totale - Codes sources - PHP (Divers)
- Compteur de visite numerique - Codes sources - PHP (Divers)
22 juil. 2007 à 18:45
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
15 sept. 2005 à 23:21
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
15 sept. 2005 à 19:23
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
9 sept. 2005 à 17:49
-------------------------------------------------------------------
-------------------------------------------------------------------
-------------------------------------------------------------------
<%
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
9 sept. 2005 à 09:23
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
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.