Salvare le statistiche in un txt

[Liam81]

Ciao tutti,
dovrei salvarmi in file .txt le statistiche di navigazione degli utenti(data e ora di accesso, pagina visitata ecc.).
Io sono partito col farmi un funzione che viene richiamata in tutte le pagine (vedi sotto), solo che ogni volta che entro in una pagina, il mio file viene sovrascritto. La mia domanda è: si riesce a modificarlo e basta?
Esistono modi migliori per salvarmi i log degli utenti (a parte salvarli in un DB)



Function WriteLog (username, data, ora, pagina_visitata)
dim fs,f

set fs=Server.CreateObject("Scripting.FileSystemObject ")
set f=fs.CreateTextFile("c:\coto\" & username & ".txt", true)
f.WriteLine("Username: ") & username
f.WriteLine("Data di accesso: ") & FormatDateTime(data,1)
f.WriteLine("Ora di accesso: ") & ora
f.WriteLine("Pagina visitata: ") & pagina_visitata(2)
f.close
set f=nothing
set fs=nothing
End Function

Ciao

[wegawhite]

Originariamente inviato da Liam81
Ciao tutti,
dovrei salvarmi in file .txt le statistiche di navigazione degli utenti(data e ora di accesso, pagina visitata ecc.).
Io sono partito col farmi un funzione che viene richiamata in tutte le pagine (vedi sotto), solo che ogni volta che entro in una pagina, il mio file viene sovrascritto. La mia domanda è: si riesce a modificarlo e basta?
Esistono modi migliori per salvarmi i log degli utenti (a parte salvarli in un DB)



Function WriteLog (username, data, ora, pagina_visitata)
dim fs,f

set fs=Server.CreateObject("Scripting.FileSystemObject ")
set f=fs.CreateTextFile("c:\coto\" & username & ".txt", true)
f.WriteLine("Username: ") & username
f.WriteLine("Data di accesso: ") & FormatDateTime(data,1)
f.WriteLine("Ora di accesso: ") & ora
f.WriteLine("Pagina visitata: ") & pagina_visitata(2)
f.close
set f=nothing
set fs=nothing
End Function

Ciao

utente = request("username")
adesso = now()
dim fs, f
set fs = Server.CreateObject("Scripting.FileSystemObject")
set f = fs.OpenTextFile(Server.MapPath("/public/listaMessenger.txt"),8,true)
f.WriteLine("DATA E ORA:"&adesso&" ; UTENTE:"&utente&" ; IP UTENTE:"&ip&" ; LOCAL_ADDR:"&zz&"")
f.WriteLine("-------------")
f.Close
set f = Nothing
set fs = Nothing

[Liam81]

Grazie era quello che cercavo