Točniji tekst counter

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

Ovo je točniji od naših counter prethodni primjer, u ovom primjeru se brojati samo jednom dobija incremented sjednice. To znači da Vaša računati će se točniji ako želite da bude što jest.

Napravite txt datoteku i staviti u njoj startnim brojem. Zatim kopirajte kod ispod na kojoj želite da se na šalteru prikazati na vašoj stranici.

U primjeru ispod counter.txt se nalazi u istom direktoriju kao ovu stranicu, i ako stavim drugdje txt datoteku i zapamtite promijeniti Server.MapPath dio koda.

Posjetitelj broj

<%
'Stvoriti FileSystemObject
Postavi objFSO = CreateObject ( "Scripting.FileSystemObject")
'Ovo je put na naš counter datoteku
CounterFile = Server.MapPath ( "counter.txt")
Postavi objCount = objFSO.OpenTextFile (CounterFile)
visitorcount = CLng (objCount.ReadLine)
ako Session ( "visitorcount") = "" a zatim
Session ( "visitorcount") = visitorcount
visitorcount = visitorcount + 1
objCount.close
Postavi objCount = objFSO.CreateTextFile ( "counter.txt", True)
objCount.WriteLine (visitorcount)
kraju, ako
objCount.Close
'Zaslon računati
Response.Write visitorcount
%>

Related posts:

  1. Tekst Counter odmah stvorili mapu zvanom pultovi ili možete nazvati ...
  2. CSV datoteku Display Display CSV datoteku CSV datoteke su zajednička formata na ...
  3. Aktivni korisnici u ASP koda Ovo pokazuje koliko je pokazati koliko je aktivno ...
  4. aspactiveusers Ovaj isječak koda pokazuje kako pokazuju koliko aktivno ...
  5. Spremanje CSV datoteke u bazu podataka Napravi bazu podataka u programu Access stock.mdb zove. Sada stvoriti ...

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

Napiši komentar