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
https://www.aspitalia.com/liste/usag/esempi.asp?ID=556
Commenti
Per inserire un commento, devi avere un account.
Fai il login e torna a questa pagina, oppure registrati alla nostra community.
Approfondimenti
I più letti di oggi
- anche domani dalle 17:30 seguite con noi live #build15 https://aspit.co/build15
- Webcast 'AJAX & ATLAS Overview'
- a #igds il 25 e 26/10 a Milano puoi sviluppare un gioco per #wp8 con @AppCampus. in palio 70.000 Euro: https://aspit.co/apa
- WinJS in Windows Phone 8.1
- la RC di #vs13 è compatibile con #win81 RTM, non con la Preview. l'annuncio ufficiale è su https://aspit.co/any
- Ancora un bug: esce Mono 0.23
- SSL Certificates for everyone on Azure
- Mostrare una MessageBox con un custom control
- disponibile la preview 1 ci #dotnetcore 2.1, #aspnetcore, #efcore. performance, novità e migliorie su https://aspit.co/bmf
- si continua a #netconfit con 'developing modern web apps with #aspnetcore', con il nostro @dbochicchiohttps://aspit.co/netconf-18