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
%>

ASP – Contatore di pagine visteultima modifica: 2009-11-20T20:27:00+01:00da daytube
Reposta per primo quest’articolo