Přesnější znění protizáruky

Publikováno dne 4. března 2009 v ASP admin

To je přesnější, než proti předchozímu příkladu, v tomto příkladu se počítají pouze dostane inkrementací jednou za relaci. To znamená, že vaše počítání bude přesnější, pokud chcete, aby se, že je.

Vytvořte si txt soubor a dejte startovní číslo v ní. Poté zkopírujte kódu níže, kde chcete, aby se proti zobrazení na vaší stránce.

V níže uvedeném příkladu je counter.txt je umístěn ve stejném adresáři jako stránku, když jste dal txt souboru jinde vzpomenete a měnit Server.MapPath část kódu.

Počet návštěvníků

<%
'Vytvořit FileSystemObject
Nastavit objFSO = CreateObject ( "Scripting.FileSystemObject")
'Toto je cesta k našemu souboru protizáruky
CounterFile = Server.MapPath ( "counter.txt")
Nastavit objCount = objFSO.OpenTextFile (CounterFile)
visitorcount = CLng (objCount.ReadLine)
pokud Session ( "visitorcount") = "" Then
Session ( "visitorcount") = visitorcount
visitorcount = visitorcount + 1
objCount.close
Nastavit objCount = objFSO.CreateTextFile ( "counter.txt", True)
objCount.WriteLine (visitorcount)
end if
objCount.Close
'Displej počítat
Response.Write visitorcount
%>

Související příspěvky:

  1. Text Counter Nyní vytvořte složku s názvem čítačů nebo můžete volat ...
  2. Zobrazení souboru ve formátu CSV Zobraz CSV souboru CSV soubory jsou běžné formáty na ...
  3. Aktivní uživatelé v ASP Tato část kódu ukazuje, jak ukázat, jak mnoho aktivních ...
  4. aspactiveusers Tato část kódu ukazuje, jak ukázat, jak mnoho aktivních ...
  5. Ukládání CSV souboru do databáze Vytvoření databáze přístup nazývá stock.mdb. Nyní vytvořte ...

Související příspěvky ti přináší ještě další Související změny Plugin.

Přidat komentář