Tekst Counter

Geplaatst op 4 maart, 2009 in ASP door admin

Maak nu een map genaamd tellers of u kunt bellen naar het iets anders als je wilt gewoon onthouden en wijzigen van de code hierboven. Maak nu een tekst bestand genaamd counter1.txt en geef wat je wilt beginnen met het tellen op.

<% @ Language = VBScript%>
<%
Dim fso
Set fso = Server.CreateObject ( "Scripting.FileSystemObject")
/ / dit is het pad naar uw bestand counter1.txt
counter = Server.MapPath ( "/ tellers") & "\ counter1.txt"
/ / Open het tekstbestand
Stel Instream = fso.OpenTextFile (teller, 1, False)
oldCount = Trim (InStream.ReadLine)
/ / verhoog de oldcount door 1 en bewaar in newcount
newCount = oldCount + 1
Stel OutStream = fso.CreateTextFile (teller, True)
/ / kopie newcount naar het tekstbestand
OutStream.WriteLine (newCount)
%>

Nu zou je de folllowing waar u wilt dat de teller te verschijnen op uw site

<% = NewCount%>

Verwante posten:

  1. Nauwkeuriger tekst counter Dit is een nauwkeuriger zijn dan onze vorige voorbeeld ...
  2. Elkaar een CSV-bestand Display een CSV-bestand CSV-bestanden zijn gemeenschappelijke formats naar ...
  3. Het opslaan van een CSV-bestand met een database Maak een database in Access genaamd stock.mdb. Nu maken ...
  4. rndimage1 Dit is een eenvoudig script willekeurige afbeelding die is ideaal ...
  5. Schrijf tekst naar een bestand Dit voorbeeld maakt gebruik van streams om tekst te schrijven naar een bestand ...

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

Plaats een reactie