Un contatore di accessi su file di testo

ASP E-Commerce con ASP Menu Javascript Area Aziende Cocktail Registrazione domini

Home + Articoli + Contatori e Statistiche + Articolo # 89

Nella sezione dedicata alla gestione di File e Directory abbiamo visto diversi articoli prettamente teorici relativi all'oggetto File System. Vediamo adesso come creare un contatore di accessi che salva il numero su un file di testo.

Il sistema è molto semplice: creiamo un file di testo e chiamiamolo contatore.txt ed inseriamo al suo interno il valore zero (0 a numero naturalmente). Utilizziamo poi il seguente script per accedere al file di testo, leggere gli accessi ed incrementarli di una unità

<%@LANGUAGE = VBScript%>
<%
    Dim fso, percorso, apri, conta, scrivi
    Set fso = Server.CreateObject("Scripting.FileSystemObject")
    percorso = Server.MapPath("contatore.txt")
    Set apri = fso.OpenTextFile(percorso)
    conta = apri.ReadLine
    conta = conta + 1
    apri.Close
    Set scrivi = fso.CreateTextFile(percorso)
    scrivi.WriteLine(conta)
    scrivi.Close
    Set fso = Nothing
%> 
<html>
<body>

<p>Accessi: <!--#include file="contatore.txt"--></p>

</body>
</html>

Utilizziamo le SSI per stampare a video il numero di accessi. Per rendere unici gli accessi è possibile utilizzare i cookie.