montei um grafico de barras bem fraquinho
mas talvez seja util para alguém
lá vai
| ASP |
| <% @Language=VBScript %> <% Option Explicit Response.Buffer = True Response.Write "<html><head><title>Untitled</title></head><body>" Dim vNome(), vPrc(), vTam(), i ReDim vNome(4), vPrc(4), vTam(4) vNome(0)="Angus" vNome(1)="Ozzy" vNome(2)="Dio" vNome(3)="Bruce" vPrc(0)=10 'porcentagem de cada elemento. vPrc(1)=20 vPrc(2)=30 vPrc(3)=40 vTam(0)=(vPrc(0)/100)*500 ' 500 é o tamanho máximo em pixel que eu defini para a div (barra). vTam(1)=(vPrc(1)/100)*500 vTam(2)=(vPrc(2)/100)*500 vTam(3)=(vPrc(3)/100)*500 Response.Write "<table border='1' width='600px'>" For i=0 to 3 With Response .Write "<tr><td width='100px'>" .Write vNome(i) .Write " - " .Write vPrc(i) .Write "%" .Write "</td><td width='500px'>" .Write "<div align='center' style='height: 15px; width:" .Write vTam(i) .Write "px; border: #000066 Solid 1px; background: #99ccff;'>" .Write vPrc(i) .Write "%" .Write "</div></td></tr>" End With Next Response.Write "</table></body></html>" %> |