Função que constrói um gráfico de barras, é só passar os parâmetros para a função.

<% function makechart(title, numarray, labelarray, imagename, maxheight, maxwidth, addvalues)  ' title: Título do Grafico  ' numarray: Uma Array de valores para montar o Gráfico  ' labelarray: Uma Array com os títulos dos valores passados pela Array numarray  ' imagename: Nome da imagem a ser utilizada para construir o gráfico. Utilize um Gif de 1 pixel da cor que você preferir...  ' maxheight: Altura do Gráfico, sem contar os títulos dos valores  ' maxwidth: Largura de cada coluna  ' addvalues: True ou False. Se vc quer que os valores apareçam ou não no gráfico  ' para usar esta função: response.write makechart(parameters)  dim tablestring  dim max  dim tempnumarray  dim templabelarray  dim heightarray  dim tempnum  if maxheight > 0 and maxwidth > 0 and ubound(labelarray) = ubound(numarray) then  templabelarray = labelarray  tempnumarray = numarray  heightarray = array()  max = 0  maxlength = 0  tablestring = "<TABLE border='1' bordercolor='#000000'>" & vbCrLf  for each stuff in tempnumarray  if stuff > max then max = stuff end if  next  tempnum = maxheight/max  for counter = 0 to ubound(tempnumarray)  if tempnumarray(counter) = max then  redim preserve heightarray(counter)  heightarray(counter) = maxheight  else  redim preserve heightarray(counter)  heightarray(counter) = tempnumarray(counter) * tempnum  end if  next  tablestring = tablestring & "<TR bgcolor='#CCCCFF'><TH colspan='" & ubound(tempnumarray)+1 & "'>" & title & "</TH></TR>" & _  vbCrLf & "<TR bordercolor='#FFFFFF'>" & vbCrLf  for counter = 0 to ubound(tempnumarray)  tablestring = tablestring & vbTab & "<TD valign='bottom' align='center'><img src='" & imagename & "' width='" & maxwidth & "' height='" & _  heightarray(counter) & "'>"  if addvalues then  tablestring = tablestring & "<BR>" & tempnumarray(counter)  end if  tablestring = tablestring & "</TD>" & vbCrLf  next  tablestring = tablestring & "</TR>" & vbCrLf  for each stuff in labelarray  tablestring = tablestring & vbTab & "<TD align='center' bordercolor='#FFFFFF'><B> " & stuff & " </TD>" & vbCrLf  next  tablestring = tablestring & "</TABLE>" & vbCrLf  makechart = tablestring  else  Response.Write "Erro! A altura e a largura devem ser maiores que zero (0), ou o número de títulos não é igual ao número de valores passados..."  end if  end function  %> <% ' esta parte você coloca onde realmente deseja que o gráfico apareça em seu site... dim stuff  dim labelstuff dim titulo, imagem, altura, largura, valores titulo = "Meu Gráfico" imagem = "img_grafico.gif" altura = 100 largura = 10 valores = "True" stuff = Array(200,100,50,74,50.5)  labelstuff = Array("Campo1","Campo2","Campo3","Campo4","Campo5")  Response.Write makechart(titulo, stuff, labelstuff, imagem, altura, largura, valores)  %>

Quebra-Linha

Colaborador..: Deivd Arantes
Categoria(s).: ASP; Programação;
Versão.......: 1.0
Data.........: 31/05/2002 11:51:55
Visualizado..: 2032 vezes
Fonte........: Internet