#556 - Creare semplici grafici a barre con ASP
Benchè di default Classic ASP non abbia meccanismi in grado di permette la creazione dinamica di grafici, con qualche piccolo accorgimento ed un po' di HTML si può avere lo stesso effetto visivo.
In particolare in questo esempio vedremo come creare al volo un semplice grafico a barre, con i dati prelevati da un array:
<%
'lunghezza massima della barra in pixel
lunghezza = 150
' definizione colori
colori = "yellow;red;pink;orange;navy;blue;"
colori = Split(colori, ";")
' definizione intestazioni e valori
' sostituire con estrazione da database
intestazione="Windows NT 4;Windows 2000;Windows Server 2003;Windows 95;Windows 98;Windows ME;"
valori = "15;200;150;4;10;12;"
intestazione = Split(intestazione, ";")
valori = Split(valori, ";")
' leggere valore massimo dal db
massimo = 200
Response.Write("<table border=0>")
for i = 0 to ubound(intestazione)-1
Response.Write("<tr><td>")
' calcolo lunghezza della cella
cella = CInt((100*valori(i)/massimo)*(lunghezza/100))
' output a video della tabella
Response.Write("<table width=" & cella & "><tr>")
Response.Write("<td bgcolor=" & colori(i) & "> </td></tr></table>")
Response.Write("</td><td><b>" & intestazione(i) & "</b></td></tr>")
next
Response.Write("</table>")
%>E' sufficiente sostituire la lettura dall'array con quella da database per personalizzare il codice.
Si può vedere questo script all'opera su
http://www.aspitalia.com/liste/usag/esempi.asp?ID=556
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!
Ho qualche problema facendo caricare i dati dal db perchè mi da un errore:sistema = Split(sistema, ";")uten = Split(uten, ";")Sistema sostituisce ...
Continua »»» | Rispondi »»»