Filoweb.it

Contatore in asp grafico


FB TW whatsapp RSS FEED News letter
ASP
Contatore in asp grafico


<%

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=" 1.gif" border=" 0" >



<% case 2 %>



<img SRC=" 2.gif" border=" 0" >



<% case 3 %>



<img SRC=" 3.gif" border=" 0" >



<% case 4 %>



<img SRC=" 4.gif" border=" 0" >



<% case 5 %>



<img SRC=" 5.gif" border=" 0" >



<% case 6 %>



<img SRC=" 6.gif" border=" 0" >



<% case 7 %>



<img SRC=" 7.gif" border=" 0" >



<% case 8 %>



<img SRC=" 8.gif" border=" 0" >



<% case 9 %>



<img SRC=" 9.gif" border=" 0" >



<% case 0 %>



<img SRC=" 0.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

%>
FB TW whatsapp RSS FEED News letter

filoweb.it è il sito personale di Filippo Brunelli
(c) 2017 Filippo Brunelli
Le immagini ed i testi contenuti nel sito filoweb.it sono di proprietà di Filippo Brunelli salvo diversamente indicato.
L'uso delle immagini e del testo è gratuito per uso personale ed è subbordinato alla citazione della fonte.
Brunelli Filippo declina ogni responsabilità per l'uso che viene fatto delle informazioni presenti nel sito filoweb.it.
FILOWEB.it Piccolo quaderno degli appunti. Argomento: ASP, Titolo:Contatore in asp grafico. Altri script riguardano: CSS, Jscript, .net, Classic Asp, HTML, Jquery, varie, url rewrite, pagina protetta da password, ecc. Altro su https://www.filoweb.it