Una funzione per la creazione di un contatore grafico
Questo script usa un file testo chiamato visite.txt che contiene il numero dei visitatori.
Per personalizzare la grafica del contatore ho composto immagini per ogni numero da 0 a 1 (sono allegate a questo script).
Per prima cosa lo script apre il file visite.txt, poi legge il numero di visitatori e lo incrementa di uno.
Mediante una funzione legge ogni cifra e stampa in output l'immagine corrispondente.
Per ultima cosa aggiorna il file visite.txt con il nuovo valore.
<%
dim PathVisite, fso ,oggOpen, NumVisite,NumCifre,Cont, Cifra
'fase di lettura dati dal file visite.txt
PathVisite= server.MapPath ("visite.txt")
set fso=server.CreateObject("scripting.filesystemobject")
set oggOpen =fso.OpenTextFile(PathVisite,1)
NumVisite = oggOpen.readline
NumVisite=NumVisite+1
set oggOpen=Nothing
'visualizzazione cifre
NumCifre=len(NumVisite)
for Cont=1 to NumCifre
Cifra=mid(NumVisite,Cont,1)
select case Cifra
case 1
%>
<img SRC="cifra1anim.gif" border="0">
<% case 2 %>
<img SRC="cifra2anim.gif" border="0">
<% case 3 %>
<img SRC="cifra3anim.gif" border="0">
<% case 4 %>
<img SRC="cifra4anim.gif" border="0">
<% case 5 %>
<img SRC="cifra5anim.gif" border="0">
<% case 6 %>
<img SRC="cifra6anim.gif" border="0">
<% case 7 %>
<img SRC="cifra7anim.gif" border="0">
<% case 8 %>
<img SRC="cifra8anim.gif" border="0">
<% case 9 %>
<img SRC="cifra9anim.gif" border="0">
<% case 0 %>
<img SRC="cifra0anim.gif" border="0">
<% end select
next
'aggiornamento mediante salvataggio nel file
set oggOpen=fso.OpenTextFile(PathVisite,2)
oggOpen.write(NumVisite)
oggOpen.close
set oggOpen=Nothing
set fso=Nothing
%>Commenti
Per inserire un commento, devi avere un account.
Fai il login e torna a questa pagina, oppure registrati alla nostra community.
Approfondimenti
Nessuna risorsa collegata
