ASP – Contatore di pagine viste

<% Filedaleggere=server.mappath(“contatore.txt”) Set file = CreateObject(“Scripting.FileSystemObject”) Set Filedaleggere = file.OpenTextFile(Filedaleggere, 1, False) counter=0 do while not Filedaleggere.AtEndOfStream counter=counter+1 Rigadelfile=Filedaleggere.readline response.write Rigadelfile & “ “ loop Filedaleggere.Close set Filedaleggere=nothing set file=nothing %>