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
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
- Carte de visite de sett
- Carte de visite de sett lol - Meilleures réponses
- Compteur de visite php - Guide
- PHP : Compteur de visite - CodeS SourceS - Guide
- Variable de session c# ✓ - Forum - C# / .NET
- Script compteur de visite php mysql - Guide
- Variable de session php - Conseils pratiques - PHP
Commentaires
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
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
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
-------------------------------------------------------------------
-------------------------------------------------------------------
-------------------------------------------------------------------
<%
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
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.