Soyez le premier à donner votre avis sur cette source.
Snippet vu 17 613 fois - Téléchargée 29 fois
'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>
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.