10 messaggi dal 28 maggio 2002
dim VisiteTot,visite,lunghezza
dim i,NumeroEntrate

Session("NumeroEntrate")=Session("NumeroEntrate")+1
NumeroEntrate=CInt(Session("NumeroEntrate"))


if NumeroEntrate<2 then
Application.Lock
Application("VisiteTot")=Application("VisiteTot")+1
Application.UnLock
end if
visite=Application("VisiteTot")
lunghezza=CInt(Len(visite))

for i=1 to lungheza
Response.Write "<IMG src='images\img_"
Response.Write mid(visite,i,1)
Response.Write ".gif'"
Response.Write " width='18'height='18'>"
next

11.886 messaggi dal 09 febbraio 2002
Contributi
Carino! è un contatore grafico! Ogni cifra è una gif ed il numero viene composto in runtime.

Se non ho capito male devi mettere questo codice in ogni pagina... per me ti converrebbe incrementare Application("VisiteTot") nel global.asa, e precisamente nella sub Session_OnStart.

Tu giustamente fai:
Session("NumeroEntrate")=Session("NumeroEntrate")+1
NumeroEntrate=CInt(Session("NumeroEntrate"))
if NumeroEntrate<2 then
'allora incrementa
end if

ma se uno visita 10 pagine, il 90% delle volte questo codice non serve, perchè Session("NumeroEntrate") non è < 2.

Per me, proprio per evitare di ripetere del codice che molte volte non servirà, crea nella root del tuo sito il file global.asa e mettici quanto segue:
<code>

&lt;SCRIPT LANGUAGE="VBScript" RUNAT="Server"&gt;

Sub Application_OnStart
Application("VisiteTot")=0
End Sub

Sub Session_OnStart
Application.Lock
Application("VisiteTot")=Application("VisiteTot")+1
Application.UnLock
End sub

&lt;/SCRIPT&gt;
</code>

Questo qui sopra ti permetterebbe di eliminare da ogni pagina:
Session("NumeroEntrate")=Session("NumeroEntrate")+1
NumeroEntrate=CInt(Session("NumeroEntrate"))
if NumeroEntrate&lt;2 then
Application.Lock
Application("VisiteTot")=Application("VisiteTot")+1
Application.UnLock
end if

mentre lascia intatto questo qui sotto:
visite=Application("VisiteTot")
lunghezza=CInt(Len(visite))
for i=1 to lungheza
Response.Write "&lt;IMG src='images\img_"
Response.Write mid(visite,i,1)
Response.Write ".gif'"
Response.Write " width='18'height='18'&gt;"
next

Magari mettilo in un file incluso usando:
&lt;!-- #include file="/contatore.asp" --&gt;
così che sarà più facile da modificare in seguito...

-----------------------
Da una perla dal saggio:
Quando non hai capito, devi dire "non ho capito", no che dici che hai capito e invece non hai capito un cavolo. Hai capito?
-----------------------

Enjoy learning and just keep making
10 messaggi dal 28 maggio 2002
Si lo conosco il Global.asa e le sue funzioni, ma il contatore che volevo fare era per quei spazi web gratuiti che non riconoscono il global.asa e la condizione " if NumeroEntrate&lt;2 then " è stata posta proprio per evitare che il cambiamento del numero dei visitatori avvenga ogni volta che un utente aggiorna la pagina.
Quindi si otterranno il numero reale dei visitatori, poichè aggiornare la pagina per me non vuol dire che è stata visitata la pagina da un altro utente o client.
Che ne pensi Brightsoul?
Cio e grazie

11.886 messaggi dal 09 febbraio 2002
Contributi
Si allora credo che sia un'ottima scelta, non potendo usare il global.asa.

Se hai qualche elemento fisso nel sito tipo un frame-indice puoi metterlo lì lo script, così eviti tutto il copia-incolla per ogni pagina...


-----------------------
Da una perla dal saggio:
Quando non hai capito, devi dire "non ho capito", no che dici che hai capito e invece non hai capito un cavolo. Hai capito?
-----------------------

Enjoy learning and just keep making

Torna al forum | Feed RSS

ASPItalia.com non è responsabile per il contenuto dei messaggi presenti su questo servizio, non avendo nessun controllo sui messaggi postati nei propri forum, che rappresentano l'espressione del pensiero degli autori.