SEMPLICE CONTATORE IN VBSCRIPT

Ecco a voi l'implementazione di un banalissmo ma utilissimo contatore.

Per non complicare troppo le cose supporremo per il funzionamento di
questo contatore che esista un file di testo iniziale con memorizzato
il valore 0 (Zero) come valore iniziale. E' possibile creare un file di
questo tipo con qualsiasi editor di testo a patto di salvarlo come solo
testo.

Il funzionamento di questo contatore è semplicissimo, ad ogni reload della pagina verrà aperto il file di log del contatore, verrà letto il valore testuale, convertito in numero ed incrementato, poi rimesso nel file.

Più semplice non è possibile!

Precisando che PERCORSO è il percorso completo della Directory contentente il file counter.log e quest'ultimo è un file iniziale che parte con il valore 0 o il valore da cui vogliamo farlo partire, proseguiamo:

DIM PathLog, LongCount  
Set PathLog=<strong>PERCORSO</strong> & "counter.log"
Set 'FileCounter=Server.CreateObject("Scripting.FileSystemObject")
Set FileStream=FileCounter.OpenTextFile(PathLog)
LongCount=CLng(FileStream.ReadLine) + 1
FileStream.Close
Set FileStream=FileCounter.CreateTextFile(PathLog)
FileStream.WriteLine(LongCount)
FileStream.Close
Response.Write(LongCount)

Logicamente mi sembra che dovrebbe andare, se comunque non vi dovesse
funzionare provate a contattarmi via e-mail.


Giovanni Ceglia
giovanniceglia@xungame.com