Text Counter

Geschrieben am 4. März 2009 in ASP von admin

Erstellen Sie nun einen Ordner namens Zähler oder können Sie es etwas anderes, wenn Sie nur daran denken, und ändern Sie den Code oben. Jetzt erstellen Sie eine Textdatei namens counter1.txt und geben Sie, was Sie sich wünschen, um die Anzahl an.

<% @ Language = VBScript%>
<%
Dim fso
Set fso = Server.CreateObject ( "Scripting.FileSystemObject")
/ / Dies ist der Pfad zu Ihrem counter1.txt Datei
counter = Server.MapPath ( "/ Zähler") & "\ counter1.txt"
/ / Öffnen Sie die Textdatei
Set = INSTREAM fso.OpenTextFile (Counter, 1, False)
oldCount = Trim (InStream.ReadLine)
/ / Erhöhung der oldcount von 1 und in newcount
newCount = oldCount + 1
Set = OUTSTREAM fso.CreateTextFile (Counter, True)
/ / Kopie newcount auf die Text-Datei
OutStream.WriteLine (newCount)
%>

Nun würden die folllowing, wo Sie wollen, dass die Zähler werden auf Ihrer Website

<% = NewCount%>

Verwandte Beiträge:

  1. Weitere genaue Text dieser ist eine genauere Zähler als unsere vorherigen Beispiel ...
  2. Zeigt eine CSV-Datei Anzeige einer CSV-Datei CSV-Dateien sind die gängigen Formaten ...
  3. Speichern einer CSV-Datei zu einer Datenbank Erstellen Sie eine Datenbank in Access stock.mdb genannt. Erstellen Sie nun ...
  4. rndimage1 Dies ist eine einfache Zufallsbild Script, das ideale ...
  5. Text in einer Datei Dieses Beispiel verwendet Streams von Text in eine Datei ...

Ähnliche Beiträge, die Ihnen vom Yet Another Related Posts Plugin.

Kommentar veröffentlichen