contatore accessi

[gelova]

Ciao a tutti, solitamente nell' home page inserisco questo codice come contatore di accessi, solo che questa volta vorrei non venga visualizzato a tutti il numero di visitatori ma solamente accedendo ad una pagina protetta....sapreste dirmi come modificare il codice o se conoscete magari qualche alternativa ?

<%
Dim nomefile, filestream
nomefile = Server.MapPath("/public/visite.txt")
Set objFile = CreateObject("Scripting.FileSystemObject")

'se il file non esiste, crealo
if not objFile.FileExists(nomefile) then
  Set filestream = objFile.OpenTextFile(nomefile, 2, true)
  filestream.WriteLine("0")
end if

'legge il numero attuale di visite
Set filestream = objFile.OpenTextFile(nomefile, 1, true)
Dim visite
visite = filestream.ReadLine()
filestream.Close

'se non è ancora presente la variabile di sessione
if Session("visiting")<>1 then
  Session("visiting") = 1  'crea la variabile di sessione
  visite = visite + 1  'incrementa di uno gli accessi al sito
end if

'scrive nel file il valore aggiornato di visite
Set filestream = objFile.CreateTextFile(nomefile, true)
filestream.WriteLine(visite)
filestream.Close

Set filestream = Nothing
Set objFile = Nothing

'visualizza sul browser il numero totale di visite
Response.Write "Numero visite: " &visite
%>

Grazie !

[Roby_72]

Crei una pagina in cui metti tutto il codice.
Mentre in tutte le altre togli le ultime due righe:

'visualizza sul browser il numero totale di visite
Response.Write "Numero visite: " &visite


Roby

[gelova]

Scusami Roby ma come faccio a visualizzare il numero se tolgo

Response.Write "Numero visite: " &visite ????

[Roby_72]

hai scritto:

"vorrei non venga visualizzato a tutti il numero"

Quindi dove non vuoi che venga visualizzato togli quelle due righe, dove invece vuoi verlo le lasci.

Roby

[gelova]

Si però la conta deve riferirsi sempre all'home page !

[Roby_72]

E questo dove lo hai scritto?
Ad ogni modo in homepage metti tutto tranne le due righe.
Nella pagina riservata metti solo questo:

<%
Dim nomefile, filestream
nomefile = Server.MapPath("/public/visite.txt")
Set objFile = CreateObject("Scripting.FileSystemObject")
'legge il numero attuale di visite
Set filestream = objFile.OpenTextFile(nomefile, 1, true)
Dim visite
visite = filestream.ReadLine()
filestream.Close
Set filestream = Nothing
Set objFile = Nothing

'visualizza sul browser il numero totale di visite
Response.Write "Numero visite: " &visite
%>

Roby

[gelova]

Scusami forse mi ero espresso male...quindi se ho capito bene nella home page devo scrivere questo:

<%
Dim nomefile, filestream
nomefile = Server.MapPath("visite.txt")
Set objFile = CreateObject("Scripting.FileSystemObject")

'se il file non esiste, crealo
if not objFile.FileExists(nomefile) then
  Set filestream = objFile.OpenTextFile(nomefile, 2, true)
  filestream.WriteLine("0")
end if

'legge il numero attuale di visite
Set filestream = objFile.OpenTextFile(nomefile, 1, true)
Dim visite
visite = filestream.ReadLine()
filestream.Close

'se non è ancora presente la variabile di sessione
if Session("visiting")<>1 then
  Session("visiting") = 1  'crea la variabile di sessione
  visite = visite + 1  'incrementa di uno gli accessi al sito
end if

'scrive nel file il valore aggiornato di visite
Set filestream = objFile.CreateTextFile(nomefile, true)
filestream.WriteLine(visite)
filestream.Close

Set filestream = Nothing
Set objFile = Nothing

%>

e nella pagina dove vorrei visualizzare il numero di visite che ha totalizzato la home metto questo:

<%
Dim nomefile, filestream
nomefile = Server.MapPath("/public/visite.txt")
Set objFile = CreateObject("Scripting.FileSystemObject")
'legge il numero attuale di visite
Set filestream = objFile.OpenTextFile(nomefile, 1, true)
Dim visite
visite = filestream.ReadLine()
filestream.Close
Set filestream = Nothing
Set objFile = Nothing

'visualizza sul browser il numero totale di visite
Response.Write "Numero visite: " &visite
%>

[Roby_72]

Si.

Roby

[gelova]

Ho provato ma non mi incrementa il contatore....incrementa solo quando accedo alla pagine che contiene il codice

<%
Dim nomefile, filestream
nomefile = Server.MapPath("visite.txt")
Set objFile = CreateObject("Scripting.FileSystemObject")
'legge il numero attuale di visite
Set filestream = objFile.OpenTextFile(nomefile, 1, true)
Dim visite
visite = filestream.ReadLine()
filestream.Close
Set filestream = Nothing
Set objFile = Nothing

'visualizza sul browser il numero totale di visite
Response.Write "Numero visite: " &visite
%>

mentre se accedo esclusivamente alla home il contatore non aumenta

[Roby_72]

Viene attivata la sessione, quindi devono trascorrere 20 minuti prima che incrementi di nuovo allo stesso visitatore.


Roby