Soyez le premier à donner votre avis sur cette source.
Snippet vu 18 497 fois - Téléchargée 38 fois
<% 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>
25 janv. 2008 à 19:38
il faut modifier les propriétes de sécurité de ton fichier texte (tu mets control total)
le code fonctionne trés bien, merci pour le créateur
22 juil. 2007 à 18:31
Set objCountFile = objFSO.CreateTextFile(strCountFileName, True)
je veux une solution le plus vite possible . merci
28 mai 2007 à 14:53
26 févr. 2004 à 17:33
Je vous l'avais dis je suis nul, naze mais quand on s'adresse à des pros... Merci d'avance si vous pouvez me consacrer 5 mn de votre temps.
18 sept. 2003 à 15:30
Error Type:
Microsoft VBScript runtime (0x800A0046)
Permission denied
/index20000.asp, line 331
c koi la solution ?
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.