| n° visite
<%
' dichiarazione variabili
dim miofile, oggetto, aprifile, visite
' imposto il percorso verso il file di testo in una cartella SCRIVIBILE
miofile = Server.MapPath("mdb-database/contatore.txt")
' creo l'oggetto asp di manipolazione files
Set oggetto=CreateObject("Scripting.FileSystemObject")
Set aprifile=oggetto.OpenTextFile(miofile, 1)
' leggo il contenuto del file, convertendolo in numero intero, e assegnando il suo valore a una variabile
visite = CInt(aprifile.ReadLine) + 1
' chiudo il collegamento al file di testo
aprifile.close
' faccio scrivere all'interno della pagina il risultato
response.write ("" & visite & ".")
'aggiorno il contenuto del file di testo con una visita in più data dalla lettura del visitatore
Set aprifile=oggetto.OpenTextFile(miofile, 2)
aprifile.WriteLine (visite)
'eseguo la pulitura degli oggetti creati e la chiusura del file aperto
aprifile.close
set aprifile = Nothing
Set oggetto = Nothing
%>
|