Text Counter

Inlagd den 4 mars 2009 i ASP av admin

Nu skapas en mapp som heter diskar eller så kan du kalla det något annat om du vill bara komma ihåg och ändra koden ovan. Nu skapa en textfil med namnet counter1.txt och skriv vad du vill börja räkna på.

<% @ Language = VBScript%>
<%
Dim FSO
Set FSO = Server.CreateObject ( "Scripting.FileSystemObject")
/ / detta är vägen till din counter1.txt fil
counter = Server.MapPath ( "/ diskar") & "\ counter1.txt"
/ / öppna textfil
Ställ InStream = fso.OpenTextFile (Counter, 1, False)
oldCount = Trim (InStream.ReadLine)
/ / increment den oldcount av 1 och lagra i newcount
newCount = oldCount + 1
Ställ OutStream = fso.CreateTextFile (counter, True)
/ / kopiera newcount till textfil
OutStream.WriteLine (newCount)
%>

Nu skulle du placera folllowing där du vill att motverka att visas på din webbplats

<% = NewCount%>

Relaterade tjänster:

  1. Mer exakta texten motverka detta är en mer korrekt motverka än våra tidigare exempel ...
  2. Visa en CSV-fil Display en CSV-fil CSV-filer är vanliga format till ...
  3. Spara en CSV-fil till en databas Skapa en databas i tillgång kallade stock.mdb. Nu skapar ...
  4. rndimage1 Detta är ett slumpmässigt bild script som är perfekt ...
  5. Skriv texten till en fil här exemplet används strömmar att skriva text till en fil ...

Relaterade tjänster lett till dig av Ändå En annan tjänster Plugin.

Skicka en kommentar