Per la costruzione di un contatore abbiamo bisogno
- una cartella contenente 10 immagini di numeri
- di un modulo ASP nel quale scriveremo il codice ASP del nostro contatore che chiameremo "Contatore.asp"
- Un modulo Global Asa per inserire una variabile di sessione vuota, che si inizializzerà ad ogni sessione, evitando così che il contatore non si incrementi ad ogni volta che la pagina si aggiornerà.
- Creiamo un file di testo chiamato "file_testo.txt" residente nella stessa directory del nostro modulo ASP Contatore.asp. In questo file ci scriviamo "0" (zero) per inizializzare il numero e salviamo
Iniziamo a scriverci il file nominato Global.asa con la nostra variabile di sessione (application("autenticato") e successivo session("autenticato") ) e scriviamo:
<script language="VbScript" runat="Server">
Sub Application_OnStart
'Questo evento rileva il riavviarsi del server
Application.Lock
Application("started")= =now()
Application("autenticato") = ""
Application("visitors")=0
Application.UnLock
End Sub
Sub Application_OnEnd
'Questo evento rileva lo spegnersi del server
End Sub
Sub Session_OnStart
'˜Questo evento rileva la attivazione di una sessione utente
Application.Lock
application("autenticato") = ""
Application("visitors")=Application("visitors")+1
Application.UnLock
End Sub
Sub Session_OnEnd
'Questo evento rileva la disattivazione di una sessione utente
Application.Lock
Application("visitors")=Application("visitors")-1
Application.UnLock
End Sub
< /SCRIPT >
Il codice del contatore vero e proprio:
<!-- C O N T A T O R E 17 marzo 2020 -->
<table align="center" width="100%">
<tr>
<td align="center" bgcolor="#FFFFFF" width="90%"><strong>Contatore Visite </strong>
<%
if session("autenticato") = "" then
dim Totale
filePath = Server.Mappath("file_testo.txt")
Set objFileSystem = Server.CreateObject("Scripting.FileSystemObject")
if objFileSystem.FileExists(filePath ) then
Set objFile = objFileSystem.OpenTextFile(filePath, 1)
'leggo file riga per riga fino alla fine del file
Do While Not objFile.AtEndofStream
totale = objFile.ReadLine +1
Loop
objFile.Close
Set objFile=Nothing
end if
if not objFileSystem.FileExists(filePath) then
'se non esiste lo creo
objFileSystem.CreateTextFile(filePath)
end if
Set objFile = objFileSystem.OpenTextFile(filePath, 2)
'scrivo una riga sul file
' objFileSystem.OpenTextFile(filePath, 2) -> sovrascrivo file
' objFileSystem.OpenTextFile(filePath, 8) -> aggiungo il testo al fondo del file
objFile.WriteLine(totale)
objFile.Close
Set objFile=Nothing
Set objFileSystem=Nothing
Session("Contatore") = totale
Stringa = "<img border=0 src='" & Mpath & "immagini/b00testa.jpg' width=5 height=25>"
for c = 1 to (cint(6) - len(Session("Contatore")))
Stringa = Stringa & "<img border=0 src='" & Mpath & "immagini/b0.jpg' width=25 height=25>"
next
for c = 1 to len(Session("Contatore"))
if mid(Session("Contatore"),c,1) = "0" then
Stringa = Stringa & "<img border=0 src='" & Mpath & "immagini/b0.jpg' width=25 height=25>"
elseif mid(Session("Contatore"),c,1) = "1" then
Stringa = Stringa & "<img border=0 src='" & Mpath & "immagini/b1.jpg' width=25 height=25>"
elseif mid(Session("Contatore"),c,1) = "2" then
Stringa = Stringa & "<img border=0 src='" & Mpath & "immagini/b2.jpg' width=25 height=25>"
elseif mid(Session("Contatore"),c,1) = "3" then
Stringa = Stringa & "<img border=0 src='" & Mpath & "immagini/b3.jpg' width=25 height=25>"
elseif mid(Session("Contatore"),c,1) = "4" then
Stringa = Stringa & "<img border=0 src='" & Mpath & "immagini/b4.jpg' width=25 height=25>"
elseif mid(Session("Contatore"),c,1) = "5" then
Stringa = Stringa & "<img border=0 src='" & Mpath & "immagini/b5.jpg' width=25 height=25>"
elseif mid(Session("Contatore"),c,1) = "6" then
Stringa = Stringa & "<img border=0 src='" & Mpath & "immagini/b6.jpg' width=25 height=25>"
elseif mid(Session("Contatore"),c,1) = "7" then
Stringa = Stringa & "<img border=0 src='" & Mpath & "immagini/b7.jpg' width=25 height=25>"
elseif mid(Session("Contatore"),c,1) = "8" then
Stringa = Stringa & "<img border=0 src='" & Mpath & "immagini/b8.jpg' width=25 height=25>"
elseif mid(Session("Contatore"),c,1) = "9" then
Stringa = Stringa & "<img border=0 src='" & Mpath & "immagini/b9.jpg' width=25 height=25>"
end if
next
Stringa = Stringa & "<img border=0 src='" & Mpath & "immagini/b9fine.jpg' width=5 height=25>"
Response.Write stringa
session("autenticato") = stringa
else
Response.Write session("autenticato")
end if
%>
</table>
<!-- E N D C O N T A T O R E 17 marzo 2020 -->
<!-- Elaborazione by Paolo Puglisi 17 marzo 2020 -->
I vari Contatori messi a disposizione:
Download Immagini
Download Esempio
By Paolo Puglisi
|
