Differenze tra le versioni di "Numero Visite"

@@ 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 attuale delle 07:39, 21 mag 2017