Sull'Articolo -
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. |