% Dim inizio, fine inizio=timer 'conta.txt 'file=Server.MapPath("/ricette/conta_pagine.txt") 'Set fs=CreateObject("Scripting.FileSystemObject") 'Set a=fs.OpenTextFile(file) 'visita=CLng(a.ReadLine) 'visita=visita+1 'a.close 'Set a=fs.CreateTextFile(file, True) 'a.WriteLine(visita) 'a.Close %>
<% if session("id_sessione")="" then%> <%end if%>
|
||||||