Tekst Counter

Skrevet av 4 mars 2009 i ASP av admin

Nå opprette en mappe kalt tellere eller du kan kalle det noe annet hvis du vil bare huske og endre koden ovenfor. Nå oppretter en tekstfil kalt counter1.txt og angi hva du ønsker å starte regne på.

<% @ Language = VBScript%>
<%
Dim FSO
Set FSO = Server.CreateObject ( "Scripting.FileSystemObject")
/ / dette er banen til det counter1.txt fil
counter = Server.MapPath ( "/ tellere") & "\ counter1.txt"
/ / åpner tekstfilen
Set InStream = fso.OpenTextFile (Counter, 1, False)
oldCount = Trim (InStream.ReadLine)
/ / øke oldcount etter 1 og lagre i newcount
newCount = oldCount + 1
Set OutStream = fso.CreateTextFile (telleren, True)
/ / kopi newcount til tekstfil
OutStream.WriteLine (newCount)
%>

Nå kan du plassere folllowing der du vil at telleren skal vises på webområdet ditt

<% = NewCount%>

Related posts:

  1. Mer nøyaktige teksten counter Dette er en mer nøyaktig teller enn vårt forrige eksempel ...
  2. Vis en CSV-fil annonserte en CSV-fil CSV-filer er vanlige formater til ...
  3. Lagre en CSV-fil til en database Opprette en database i Access kalt stock.mdb. Nå opprette ...
  4. rndimage1 Dette er et enkelt tilfeldig bilde script som er ideelt ...
  5. Skrive tekst til en fil Dette eksemplet bruker bekker å skrive tekst til en fil ...

Relaterte innlegg brakt til deg av enda et Related Posts Plugin.

Legg inn en kommentar