Differenze tra le versioni di "Numero Visite"
Jump to navigation
Jump to search
(Pagina svuotata) |
|||
| Riga 1: | Riga 1: | ||
<% | |||
Response.Expires = 0 | |||
Set fs = CreateObject(“Scripting.FileSystemObject”) | |||
Path = server.mappath(“conta.txt”) | |||
Set a = fs.OpenTextFile(path) | |||
conta = a.ReadLine | |||
‘Controllo gli aggiornamenti di pagina | |||
If Session(“conta”) = “” then | |||
Session(“conta”) = conta | |||
‘Incremento di 1 il valore presente nel file di testo | |||
conta = conta + 1 | |||
a.close | |||
‘Scrivo sul file di testo il nuovo valore | |||
Set a = fs.CreateTextFile(path, True) | |||
a.WriteLine(conta) | |||
End If | |||
a.Close | |||
%> | |||
Versione delle 21:43, 17 mag 2017
<% Response.Expires = 0 Set fs = CreateObject(“Scripting.FileSystemObject”) Path = server.mappath(“conta.txt”) Set a = fs.OpenTextFile(path) conta = a.ReadLine ‘Controllo gli aggiornamenti di pagina If Session(“conta”) = “” then
Session(“conta”) = conta ‘Incremento di 1 il valore presente nel file di testo conta = conta + 1 a.close ‘Scrivo sul file di testo il nuovo valore Set a = fs.CreateTextFile(path, True) a.WriteLine(conta)
End If a.Close %>