#184 - 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
%>Nota: Questo script contiene un allegato.
Approfondimenti
Commenti
Esprimi il tuo giudizio su questo script:
Per procedere devi essere autenticato.
Aggiungi un nuovo commento »»»
Per inserire un commento, devi registrarti alla nostra community.
Stampa 
Download
10annidi.ASPItalia.com: iscriviti alla competizione e vinci fantastici premi ogni mese!
