% dim PathVisite, fso ,oggOpen, NumVisite, NumCifre, Cont, Cifra 'fase di lettura dati dal file visite.txt PathVisite= server.MapPath("visite.txt") set fso=server.CreateObject("scripting.filesystemobject") set oggOpen =fso.OpenTextFile(PathVisite,1) NumVisite = oggOpen.readline NumVisite=NumVisite+1 set oggOpen=Nothing 'aggiornamento mediante salvataggio nel file set oggOpen=fso.OpenTextFile(PathVisite,2) oggOpen.write(NumVisite) oggOpen.close set oggOpen=Nothing set fso=Nothing %>
FRANCO AGUGGIARO |
|||
![]() |
|||
english |
italiano |
||