Tekst Counter

Poslano na 4. ožujak 2009 u ASP by admin

Sada napravite folder zvan šalterima ili možete nazvati nešto drugo, ako želite samo sjetiti i promijeniti kôd gore. Sada kreirati tekstualnu datoteku i unesite counter1.txt pozvao sve što želite početi računati na.

<% @ Language = VBSCRIPT%>
<%
Dim fso
Postavi fso = Server.CreateObject ( "Scripting.FileSystemObject")
/ / ovo je put do vašeg counter1.txt datoteku
counter = Server.MapPath ( "/ šaltera") & "\ counter1.txt"
/ / otvori tekstualnu datoteku
Postavi InStream = fso.OpenTextFile (brojilo, 1, false)
oldCount = Trim (InStream.ReadLine)
/ / prirast u oldcount po 1 i pohraniti u newcount
newCount = oldCount + 1
Postavi OutStream = fso.CreateTextFile (brojilo, True)
/ / kopiranje newcount u tekstualnu datoteku
OutStream.WriteLine (newCount)
%>

Sada bi vam se folllowing mjesto na kojem želite da se pojavi counter na Vašoj web lokaciji

<% = NewCount%>

Related posts:

  1. Točniji tekst counter Ovo je točniji od naših counter prethodni primjer ...
  2. CSV datoteku Display Display CSV datoteku CSV datoteke su zajednička formata na ...
  3. Spremanje CSV datoteke u bazu podataka Napravi bazu podataka u programu Access stock.mdb zove. Sada stvoriti ...
  4. rndimage1 Ovo je jednostavna nasumične slike skripta koja je idealan ...
  5. Pisanje teksta u datoteku Ovaj primjer koristi struje za pisanje teksta u datoteku ...

Povezani postovi doveo do vas još jednom Povezani postovi dodatka.

Napiši komentar