Dall'archivio script > Classic ASP

Una funzione per la creazione di un contatore grafico

di Gabriele CeretiGabriele Cereti, in Classic ASP, Misc,

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

Visualizza/aggiungi commenti

| Condividi su: Twitter, Facebook, LinkedIn
Aggiorna

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

I più letti di oggi