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.