Filoweb.it

Contatore in asp grafico


FB TW G+ whatsapp RSS FEED
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 G+ whatsapp RSS FEED

filoweb.it è il sito personale di Filippo Brunelli
(c) 2017 Filippo Brunelli
Le immagini ed i testi contenuti nel sito 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 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