Contatore

[Kinh]

ragazzi un aiuto serio
sto delirando, non riesco a fare un contatore di accessi per un sito in asp e come database un file txt

ne avete di gia pronti?

[mello]

ti consiglio di guardare su http://freeasp.html.it/

di sicuro trovi qualcosa....


ciao

[Kinh]

Originariamente inviato da mello
ti consiglio di guardare su http://freeasp.html.it/

di sicuro trovi qualcosa....


ciao

lo so gia visto
giuro non riesco a farne andare uno
me ne serve uno testato gia pronto

[maxithron]

questo funziona:

http://www.aspcode.it/articoli/artic...how_art&idx=12

[Kinh]

Originariamente inviato da maxithron
questo funziona:

http://www.aspcode.it/articoli/artic...how_art&idx=12

allora
lavoro con dreamweaver
ho creato il file visite.txt e l'ho messo nella cartella che ho creato "public" sulla root del sito
sempre sulla root ho messo il contatore copiando esattamente il codice

vado alla pagina e mi dice

Microsoft VBScript runtime error '800a0046'

Permission denied

/contatore.asp, line 25


perchè?

[cionci]

L'errore te lo da perchè probabilmente non hai la cartella /public sul tuo server web...

Sinceramente un contatore del genere mi lascia un po' perplesso... E' sintatticamente scorretto...può portare sia a pardita di conteggi, sia ad inconsistenza del contenuto del file...

Vi spiego perchè...

Codice PHP:

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

'punto UNO

'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)
'punto DUE
filestream.WriteLine(visite)
filestream.Close

Set filestream = Nothing
Set objFile = Nothing

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


Tenete conto di due esecuzioni parallele del codice: A e B

Nel file c'è il numero 1000...

A arriva al punto UNO e legge 1000...
B arriva al punto DUE e legge 1000...

A arriva al punto DUE e scrive 1001...
B arriva al punto DUE e scrive 1001...

Ecco che si è perso un conteggio... Il file doveva contenere 1002...

Riguardo all'inconsistenza contenuto del file... Non so come e se viene gestita la mutua esclusione sull'accesso al file...
OpenTextFile attende che un file sia stato chiuso ? Spero di sì altrimenti ci sarebbero molti errori...
Ad esempio A è al punto DUE, B arriva al punto UNO...B non ha letto nessun numero del file...

Senza contare le possibilità di scrittura contemporanea con WriteFile...che porterebbero a risultati inconsistenti (a meno che questa possibilità venga gestita da ASP in modo intelligente)...

Quindi secondo me se si vuole fare un buon contatore, senza ricorrere ad un database, bisogna utilizzare le variabili di applicazione e gli eventi nel global.asa !!!

Una cosa semplice (contenuto del file Global.asa):

Codice PHP:

<SCRIPT LANGUAGE=VBScript RUNAT=Server> 
Sub Application_OnStart
   Dim nomefile, filestream
   nomefile = Server.MapPath("/public/visite.txt")
   Application("nomefile") = nomefile
   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 

   Application("Contatore") = visite
   Application("UtentiOnline") = 0

   Set filestream = Nothing
   Set objFile = Nothing
End Sub

Sub Application_OnEnd
   Dim nomefile, filestream
   nomefile = Application("nomefile")
   Set objFile = CreateObject("Scripting.FileSystemObject")

   'scrive nel file il valore aggiornato di visite
   Set filestream = objFile.CreateTextFile(nomefile, true)
   filestream.WriteLine(Application("Contatore"))
   filestream.Close
 
   Set filestream = Nothing
   Set objFile = Nothing
End Sub

Sub Session_OnStart
   Application("Contatore") = Application("Contatore") + 1
   Application("UtentiOnline") = Application("UtentiOnline") + 1
End Sub

Sub Session_OnEnd
   Application("UtentiOnline") = Application("UtentiOnline") - 1
End Sub
</SCRIPT> 


In questo modo hai sia un contatore di visite che di utenti online...

[Kinh]

grazie dell'aiuto ma se non ci spieghiamo bene non potrò mai capire
dove lo metto il codice?
in una pagina asp o php?
la pagina dove la metto?

[maxithron]

quoto dal link:

"Una caratteristica importante di questo contatore, è che esso evita di conteggiare i reload al sito (per intenderci, quegli accessi che vengono conteggiati quando si clicca sul pulsante aggiorna del browser), o gli eventuali ritorni alla home page dopo aver visitato pagine interne al sito: per implementare questa "feature" utilizziamo una variabile di sessione che creiamo nel momento in cui un utente entra nel nostro sito a cui diamo il valore 1; prima di incrementare il contatore verrà verificato che questa variabile abbia un valore diverso da 1 (se non è così significa che l'utente è già passato dalla home page del nostro sito durante quella sessione e che quindi il suo accesso è già stato conteggiato)."

ma è chiaro che è solo un riferimento per chi ha una certa fretta.


cmq..al solito, hai fatto un'ottima analisi!

[Kinh]

lo dico almeno faccio chiarezza
non ho MAI usato asp o php quindi parto proprio da 0

[VICIUS]

Originariamente inviato da Kinh
lo dico almeno faccio chiarezza
non ho MAI usato asp o php quindi parto proprio da 0

OT: vedo che sei il webmaster del sito dei Lacuna Coil. grandissimo gruppo.

ciao

[Kinh]

Originariamente inviato da VICIUS
OT: vedo che sei il webmaster del sito dei Lacuna Coil. grandissimo gruppo.

ciao

si che se quando tornano non imparo un po di asp mi sotterrano

[cionci]

Quello che ho scritto lo devi mettere in un file chiamato global.asa che va messo all'interno della root del server web...

Per visualizzare il valore del contatore:

<%= Application("Contatore") %>

Per visualizzare il numero di utenti online:

<%= Application("UtentiOnline") %>

[Kinh]

Originariamente inviato da cionci
Quello che ho scritto lo devi mettere in un file chiamato global.asa che va messo all'interno della root del server web...

Per visualizzare il valore del contatore:

<%= Application("Contatore") %>

Per visualizzare il numero di utenti online:

<%= Application("UtentiOnline") %>

mmm ok
praticamente faccio un file global.asa e scrivo dentro tutta la pappardella
ma poi?

[cionci]

Poi per visualizzare il contatore scrivi quello che ti ho scritto sopra all'interno del codice HTML di una pagina con estensione .asp...

Ad esempio:

<html>
<head>
<title></title>
</head>
<body>
Contatore: <%= Application("Contatore") %>
Utenti online: <%= Application("UtentiOnline") %>
</body>
</html>

Ricopia il codice da mettere in global.asa...c'era un errorino...
Comunque funziona egregiamente...ho provato...

[Kinh]

Originariamente inviato da cionci
Poi per visualizzare il contatore scrivi quello che ti ho scritto sopra all'interno del codice HTML di una pagina con estensione .asp...

Ad esempio:

<html>
<head>
<title></title>
</head>
<body>
Contatore: <%= Application("Contatore") %>
Utenti online: <%= Application("UtentiOnline") %>
</body>
</html>

ok dimmi se ho capito bene passo passo
faccio un file ASP con dentro questo codice

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

'punto UNO 

'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) 
'punto DUE 
filestream.WriteLine(visite) 
filestream.Close 

Set filestream = Nothing 
Set objFile = Nothing 

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

lo metto sulla root

poi chessò nella mia index metto

Contatore: <%= Application("Contatore") %>
Utenti online: <%= Application("UtentiOnline") %>

e tutto funziona?

[cionci]

Il codice da mettere in global.asa non è quello, ma quello che avevo postato dopo, sempre nello stesso post...

Comunque usa questo che è modificato e previene il fatto che se si pianta il server web si perdano tutti i conteggi...

<SCRIPT LANGUAGE=VBScript RUNAT=Server>  
Sub Application_OnStart 
   Dim nomefile, filestream 
   nomefile = Server.MapPath("/visite.txt") 
   Application("nomefile") = nomefile 
   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  

   Application("Contatore") = visite 
   Application("UtentiOnline") = 0 

   Set filestream = Nothing 
   Set objFile = Nothing 
End Sub 

Sub Application_OnEnd 
   Dim nomefile, filestream 
   nomefile = Application("nomefile") 
   Set objFile = CreateObject("Scripting.FileSystemObject") 

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

   Set filestream = Nothing 
   Set objFile = Nothing 
End Sub 

Sub Session_OnStart 
   Application("Contatore") = Application("Contatore") + 1 
   Application("UtentiOnline") = Application("UtentiOnline") + 1 
End Sub 

Sub Session_OnEnd 
   Application("UtentiOnline") = Application("UtentiOnline") - 1 

   Dim numeroVisite
   numeroVisite = Application("Contatore")
   If (numeroVisite Mod 100 = 0) Then
      Dim nomefile, filestream 
      nomefile = Application("nomefile") 
      Set objFile = CreateObject("Scripting.FileSystemObject") 

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

      Set filestream = Nothing 
      Set objFile = Nothing 
   End If
End Sub 
</SCRIPT>

[cionci]

Originariamente inviato da Kinh
poi chessò nella mia index metto

index.asp mi raccomando... E' sempre codice ASP e va utilizzati in file con estensione .asp !!!

[Kinh]

non cè che mi ricapitoli che mi sa che mi sto confondendo?
mi dici cosa fare e dove passo passo

grassie

[cionci]

Avevi detto tutto bene... L'unica cosa è che avevi sbagliato a copiare il codice da mettere in global.asa...

Metti il codice sopra in global.asa...copi il file nella root...nei tuoi file .asp puoi richiamare i contatori con il emtodo scritto sopra...

[Kinh]

ma non capisco
il codice global.asa che hai detto tu è quello che ho scritto

<SCRIPT LANGUAGE=VBScript RUNAT=Server>
Sub Application_OnStart
Dim nomefile, filestream
nomefile = Server.MapPath("/public/visite.txt")
Application("nomefile") = nomefile
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

Application("Contatore") = visite
Application("UtentiOnline") = 0

Set filestream = Nothing
Set objFile = Nothing
End Sub

Sub Application_OnEnd
Dim nomefile, filestream
nomefile = Application("nomefile")
Set objFile = CreateObject("Scripting.FileSystemObject")

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

Set filestream = Nothing
Set objFile = Nothing
End Sub

Sub Session_OnStart
Application("Contatore") = Application("Contatore") + 1
Application("UtentiOnline") = Application("UtentiOnline") + 1
End Sub

Sub Session_OnEnd
Application("UtentiOnline") = Application("UtentiOnline") - 1
End Sub
</SCRIPT>

non è che mi mandi un esempio?rischiamo solo di nn capirci cosi