Un contatore di accessi con file di testo in Asp

Siti dinamici con ASP
Impara a creare siti dinamici professionali con ASP

Scritto da Luca Ruggiero nella sezione Asp

Realizziamo una delle utility Web più diffuse in assoluto, un contatore di accessi testuale in Asp con l'utilizzo di un file di testo in cui salvare il numero di accessi.

Creiamo per prima cosa il file counter.txt e scriviamo al suo interno il numero da cui vogliamo che inizi il conteggio, ad esempio zero 0 (in numerico) e salviamolo nella stessa directory del file Asp che dovrà mostrare il contatore.

Segue lo script da inserire nel punto della pagina dove si vuole che venga visualizzato il contatore:

<%@Language = JScript%>
<html>
 <head>
  <title>Un contatore di accessi con file di testo</title>
 </head>
<body>

<%
   var Path = Server.MapPath("counter.txt");
   var Fso = new ActiveXObject("Scripting.FileSystemObject");
   var OpenStr = Fso.OpenTextFile(Path);
   var Str = OpenStr.ReadLine();
   OpenStr.Close();
   var Counter = parseInt(Str);
   Counter++;
   var CloseStr = Fso.CreateTextFile(Path);
   CloseStr.WriteLine(Counter);
   CloseStr.Close();
   Response.Write("Numero di Accessi: " + Counter);
%>

</body>
</html>
Il suo funzionamento è semplice, si accede ad un file di testo contenente il solo valore numerico zero attraverso il FyleSystemObject, si va ad incrementare al caricamento della pagina una variabile numerica di una unità e si va a salvare il nuovo valore nel file di testo sovrascrivendolo.

I più cliccati della sezione Asp

:: Un semplice form mail in Asp (52.079)

:: Creazione di un Guestbook in Asp (50.971)

:: Creazione di un'area di accesso riservato in Asp (45.576)

:: Connessione ad un database MySql con Asp (25.227)

:: Connessione ad un database Microsoft SQL Server con Asp (24.399)

:: Asp e database (23.285)

:: Differenza tra i metodi get e post e recupero dei dati, attraverso Asp (22.643)

:: Una semplice area di accesso riservato senza DB in Asp (21.549)

:: Riscrivere le URL con Asp (19.946)

:: Creazione di un Sondaggio in Asp (19.221)

IN EVIDENZA
DOWNLOAD