Tekst Licznik

Wysłany 4 marzec 2009 w ASP przez admin

Teraz należy stworzyć folder o nazwie liczniki lub można nazwać to coś innego, jeśli chcesz zapamiętać i po prostu zmienić kod powyżej. Teraz należy stworzyć plik tekstowy o nazwie counter1.txt i wpisz cokolwiek chcesz rozpocząć przy.

<% @ Language = VBScript%>
<%
Dim FSO
Ustaw FSO = Server.CreateObject ( "Scripting.FileSystemObject")
/ / jest to ścieżka do pliku counter1.txt
licznik = Server.MapPath ( "lady") & "\ counter1.txt"
/ / otwórz plik tekstowy
Ustaw InStream = fso.OpenTextFile (licznik, 1, fałsz)
oldCount = Trim (InStream.ReadLine)
/ / podwyżki w oldcount przez 1 i przechowywać w newcount
newCount = oldCount + 1
Ustaw OutStream = fso.CreateTextFile (licznik, prawda)
/ / kopiowanie newcount do pliku tekstowego
OutStream.WriteLine (newCount)
%>

Teraz to miejsce w którym chcesz folllowing kontrgwarancja wyświetlane w witrynie

<% = NewCount%>

Podobne posty:

  1. Dokładniejsze tekst licznik ten jest bardziej dokładne niż licznik naszym poprzednim przykładzie ...
  2. Wyświetl plik CSV Wyświetl plik CSV CSV wspólnych formatów ...
  3. Zapisywanie pliku CSV do bazy danych Tworzenie bazy danych o nazwie stock.mdb dostępu. Teraz stworzymy ...
  4. rndimage1 Jest to prosty skrypt, który losowo obraz jest idealny ...
  5. Napisz tekst do pliku Ten przykład używa strumieni, aby napisać tekst do pliku ...

Podobne posty przyniósł ci przez Yet Another Related Posts Plugin.

Dodaj komentarz