Contatore di accessi con ASP
Scritto da tmwebmaster
(http://www.tmwebmaster.it)
il 30 maggio 2007
E' inoltre utilizzata la funzione di VBScript CInt per la conversione in un numero intero della stringa che viene letta dal file di testo.
Questo esempio realizza un semplice ma efficace contatore testuale di accessi per una data pagina di un sito.
Per realizzarlo sfruttiamo una classe molto importante che ASP ci mette a disposizione, il FileSystemObject che ci è fornita dall'oggetto Scripting.
Inoltre sfruttiamo il metodo MapPath dell'Oggetto Server per recuperare il file di testo e l'Oggetto Session per evitare che il contatore aumenti con un semplice Reload della pagina.
Ecco lo script:
CODICE
visita=Session("Visita")
MyFile = Server.MapPath("contatore.txt")
Set MyFileObj=Server.CreateObject("Scripting.FileSystemObject")
IF MyFileObj.FileExists(MyFile) THEN
Set MyTextFile=MyFileObj.OpenTextFile(MyFile,1,TRUE)
cifra=MyTextFile.ReadLine
intero=CInt(cifra)
MyTextFile.Close
IF not Visita="si" Then
Session("Visita")="si"
intero=intero+1
Set MyOutStream = MyFileObj.OpenTextFile(MyFile, 2, TRUE)
MyOutStream.WriteLine(intero)
MyOutStream.Close
END IF
Response.write("<b>Sei il visitatore numero " & intero & "</b>")
END IFE' inoltre utilizzata la funzione di VBScript CInt per la conversione in un numero intero della stringa che viene letta dal file di testo.