Texte Counter

Posté le 4 Mars 2009 en ASP par admin

Maintenant, créez un dossier du nom de compteurs ou vous pouvez l'appeler autre chose si vous voulez juste vous rappeler et modifier le code ci-dessus. Maintenant, créez un fichier texte appelé counter1.txt et entrer ce que vous voulez commencer à compter à l'.

<% @ Language = VBScript%>
<%
Dim fso
Set fso = Server.CreateObject ( "Scripting.FileSystemObject")
/ / ceci est le chemin de votre fichier counter1.txt
counter = Server.MapPath ( "/ counters") & "\ counter1.txt"
/ / ouvrir le fichier texte
Set Instream = fso.OpenTextFile (counter, 1, False)
oldCount = Trim (InStream.ReadLine)
/ / augmentation de la oldcount de 1 et de stocker dans newcount
newCount = oldCount + 1
Set OutStream = fso.CreateTextFile (compteur, True)
/ / copie newcount vers le fichier texte
OutStream.WriteLine (newCount)
%>

Maintenant vous folllowing la place où vous voulez que le compteur apparaisse sur votre site

<% = NewCount%>

Related posts:

  1. Plus précis texte counter Il s'agit d'un compteur plus précis que notre exemple précédent ...
  2. Affichage d'un fichier CSV à l'affichage d'un fichier CSV CSV sont des fichiers de formats ...
  3. Enregistrement d'un fichier CSV dans une base de données Créer une base de données en matière d'accès appelé stock.mdb. Maintenant, créez ...
  4. rndimage1 Il s'agit d'une image aléatoire simple script qui est idéal ...
  5. Ecrire dans un fichier texte Cet exemple utilise le flux d'écrire du texte dans un fichier ...

Related posts brought to you by Yet Another Related Posts Plugin.

Poster un commentaire