[SCRIPT] Contatore su txt

[ZeroCool981]

Posto un semplicissimo contatore creato in Asp, che utilizza un file txt per memorizzare gli accessi.
E' molto elementare ma credo che a qualcuno possa interessare.

<% 
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 
%>

    1 
   
<% case 2 %>

    2 
   
<% case 3 %>

    3
   
<% case 4 %>

   4 
   
<% case 5 %>

    5 
   
<% case 6 %>

    6
   
<% case 7 %>

  7
   
<% case 8 %>

    8
   
<% case 9 %>

    9
   
<% case 0 %>

  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 
%>

[chris]

Ma fare stampare direttamente la variabile Cifra pareva brutto?

[ZeroCool981]

beh se al posto dei numeri vuoi metterci delle immagini, se stampi cifra non riesci, invece con i case puoi farlo senza problemi.