Text Counter

Publikováno dne 4. března 2009 v ASP admin

Nyní vytvořte složku s názvem čítačů nebo můžete říkat něco jiného, pokud chcete jen vzpomenete a změny výše uvedený kód. Nyní vytvořte textový soubor s názvem counter1.txt a zadejte to, co jste chtěli začít počítat na.

<% @ Language = VBScript%>
<%
Dim FSO
Nastavit FSO = Server.CreateObject ( "Scripting.FileSystemObject")
/ / toto je cesta k souboru counter1.txt
counter = Server.MapPath ( "/ čítačů") & "\ counter1.txt"
/ / otevření textového souboru
Nastavit InStream = fso.OpenTextFile (protizáruky, 1, False)
oldCount = Trim (InStream.ReadLine)
/ / inkrementace s oldcount o 1 a skladovat v newcount
newCount = oldCount + 1
Nastavit OutStream = fso.CreateTextFile (protizáruky, True)
/ / kopie newcount do textového souboru
OutStream.WriteLine (newCount)
%>

Teď už by se folllowing pokud chcete protizáruka zobrazovat na vašich stránkách

<% = NewCount%>

Související příspěvky:

  1. Přesnější znění protizáruky To je přesnější, než proti předchozímu příkladu ...
  2. Zobrazení souboru ve formátu CSV Zobraz CSV souboru CSV soubory jsou běžné formáty na ...
  3. Ukládání CSV souboru do databáze Vytvoření databáze přístup nazývá stock.mdb. Nyní vytvořte ...
  4. rndimage1 Toto je jednoduchý skript náhodný obrázek, který je ideální ...
  5. Napište text do souboru Tento příklad používá proudů napsat text do souboru ...

Související příspěvky ti přináší ještě další Související změny Plugin.

Přidat komentář