Recomendado: Dicas para o uso de ASP para transferir dados de formato HTML para Excel Aprenda a criar uma página ASP para transmitir dados HTML para uma planilha EXECL e exibir a planilha EXECL no IE. Até agora, existem várias maneiras de criar tabelas de dados do Excel usando a tecnologia ASP, e você também pode usar grupos VBA do Excel 8.0 VBA do lado do servidor
Em nosso trabalho, geralmente precisamos converter dados em gráficos de barras, gráficos de pizza etc. para facilitar e análises intuitivas de dados. Aqui, apresentarei a você um componente que fabrica gráficos de pizza e gráficos de barras no ASP: CSDRAWGRAPH, CSDGT.ZIP. Por ser um componente, precisamos nos registrar no RegSvr32.exe antes de usá -lo. CSDRAWGRAPH, que pode criar gráficos de pizza, gráficos de barras e gráficos de linha no ASP. Os formatos suportados incluem GIF, PNG, JPG e BMP.
ChartDemo.asp
| A seguir, o conteúdo citado: < %@ idioma = vbscript %> <html> <head> <Title> Demonstração CSDRAWgraph </ititle> </head> <corpo bgcolor =#ffffff> <p> Esta demonstração simples mostra dois gráficos usando os mesmos dados. O primeiro é Um gráfico de barras: </p> <P align = Center> <img src = ChartImages.asp? Type = barra da barra = 400 altura = 300> </p> <P alinhe = esquerda> O segundo é um gráfico de pizza. A cor do fundo é definida como iluminada cinza para mostrar o tamanho geral da imagem. </p> <P align = Center> <img src = ChartImages.asp? Tipo = largura da torta = 400 altura = 300> </p> </body> </html> |
ChartImages.asp
| A seguir, o conteúdo citado: < %@ idioma = vbscript %> <% Response.Expires = 0 Response.Buffer = true Response.clear Response.ContentType = Image/GIF Set Chart = Server.CreateObject (csdrawgraphtrial.draw) Chart.adddata no> 1, 17, FF0000 Chart.adddata no> 2, 28, 00FF00 Chart.adddata no> 3, 5, 0000ff Se request.QueryString (tipo) = torta então Chart.Title = Gráfico de pizza de amostra Chart.bgcolor = eeeeee Chart.labelbgcolor = eeeeee Chart.titlebgcolor = eeeeee Response.BinaryWrite Chart.gifpie Outro Chart.Title = Gráfico de barras de amostra Response.BinaryWrite Chart.gifbar Final se Resposta.END %> |
O programa é muito simples e não vou explicar em detalhes. Vamos dar uma olhada em um exemplo de conversão de dados do banco de dados em um gráfico:
lines.asp:
| A seguir, o conteúdo citado: <html> <head> Gráfico de linha <title> mostrando todos os resultados </title> </head> <Body> <tabela alinhe = largura central = 400> <tr> <td colspan = 4> <img src = gif_lines.asp width = 400 altura = 300> </td> </tr> </tabela> <p> Links para as outras páginas de resultado: </p> <p> <a href = barsbyday.asp> gráfico de barras mostrando todos os resultados para qualquer dia </a>. </p> <p> <a href = barsbycolour.asp> gráficos de barras mostrando resultados para cada cor separadamente </a>. </p> </body> </html> |
gif_lines.asp:
| A seguir, o conteúdo citado: < %@ idioma = vbscript %> <% 'Use os dados no banco de dados para gerar um gráfico de linha. 'Crie 4 linhas de acordo com 4 valores diferentes. 'Mostre o nome da semana no eixo x. Response.Expires = 0 Response.Buffer = true Response.clear 'Use a seguinte instrução para criar um objeto de gráfico e a versão será diferente. 'Set Chart = Server.CreateObject (csdrawgraph.draw) Set Chart = Server.CreateObject (csdrawgraphtrial.draw) Connectionstring = provedor = microsoft.jet.oledb.4.0; fonte de dados = & _ Server.mappath (data.mdb) Set dbconn = server.createObject (adodb.connection) Dbconn.open Connectionstring Set rs = server.createObject (adodb.recordset) SQL = Selecione * da Tabela1 Ordem por dia Rs.Open SQL, DBConn Embora não seja Rs.eof Chart.Addpoint Cint (RS (dia)), Cint (RS (vermelho)), FF0000, vermelho Chart.Addpoint Cint (RS (dia)), Cint (Rs (azul)), 0000ff, azul Chart.Addpoint Cint (RS (dia)), Cint (Rs (verde)), 00FF00, Green Chart.Addpoint Cint (RS (dia)), Cint (Rs (Amarelo)), FFFF00, Amarelo Chart.addxValue Cint (Rs (dia)), Rs (nome do dia) Rs.movenext Wend 'Feche a conexão do banco de dados Rs.close Dbconn.close 'O seguinte define as propriedades do componente 'As coordenadas do eixo x começam em 1 em vez de 0. (Xoffset = 1) Chart.title = todos os resultados combinados Chart.Titlex = 100 Chart.yaxistExt = Total para cada dia Chart.originy = 220 Chart.Xoffset = 1 Chart.Xtop = 7 Chart.xgrad = 1 Chart.usexaxislabels = true Chart.LineWidth = 2 Chart.PointSize = 3 Chart.PointStyle = 1 'A última imagem é enviada ao navegador em formato GIF Response.ContentType = Image/GIF Response.BinaryWrite Chart.gifline Resposta.END %> |
Compartilhar: Operação de dados do Método de Desenvolvimento Rápido ASP Esta é a minha própria experiência, para você se referir. Meu objetivo é simplificar o desenvolvimento, considerar declarações de implementação o máximo possível e dedicar mais energia a pensar sobre a lógica de negócios. Espero que meu artigo o inspire e ajude você. Ok, vamos ao ponto: