用ASP制作餅圖、柱狀圖等_ASP教程
      
編輯Tag賺U幣
      


      教程Tag：暫無(wú)Tag,歡迎添加,賺取U幣!
      


      

      推薦：利用ASP將HTML格式數(shù)據(jù)傳輸給Excel 的技巧
      學(xué)習(xí)如何建立ASP頁(yè)面將HTML數(shù)據(jù)流傳送到Execl電子表格，并且在IE中顯示Execl電子表格。

到目前為止，有好幾種方法可以使用ASP技術(shù)來(lái)創(chuàng)立Excel數(shù)據(jù)表格，你還可以利用服務(wù)器端Excel 8.0 VBA組
      我們工作中經(jīng)常需要將數(shù)據(jù)轉(zhuǎn)化成柱狀圖，餅圖等，以方便直觀的分析數(shù)據(jù)， 這里給大家介紹一個(gè)ASP中制作餅圖、柱狀圖的組件：csDrawGraph，csdgt.zip,因?yàn)槭墙M件，所以我們?cè)谑褂弥靶枰肦EGSVR32.EXE 注冊(cè)一下，csDrawGraph，可以在ASP中創(chuàng)建餅圖，柱狀圖以及線圖，其支持的格式有GIF, PNG, JPG and BMP.
      


      chartdemo.asp
      


      


      

    

        
      

            以下為引用的內(nèi)容：
      <%@ language=vbscript %>
      <html>
      <head>
      <title>csDrawGraph Demonstration</title>
      </head>
      <body bgcolor="#FFFFFF">
      <P>This simple demonstration shows two graphs using the same data. The first is 
        a bar chart:</P>
      <P align="center"><IMG src="chartimages.asp?Type=Bar" width="400" height="300"> 
      </P>
      <P align="left">The second is a pie chart. The background colour is set to light 
        grey to show the overall size of the image.</P>
      <P align="center"><IMG src="chartimages.asp?Type=Pie" width="400" height="300"> 
      </P>
      </body>
      </html>      		

        
      

          


      


      


      chartimages.asp
      


      


      

    

        
      

            以下為引用的內(nèi)容：
      

            
      <%@ language=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"
      

            
        If Request.QueryString("Type") = "Pie" Then
          Chart.Title = "Sample Pie Chart"
          Chart.BGColor = "eeeeee"
          Chart.LabelBGColor = "eeeeee"
          Chart.TitleBGColor = "eeeeee"
          Response.BinaryWrite Chart.GifPie
        Else
          Chart.Title = "Sample Bar Chart"
          Response.BinaryWrite Chart.GifBar
        End If
      

            
        Response.End
      %>
      

                  		

        
      

          


      


      


      程序很簡(jiǎn)單，再些不詳細(xì)說(shuō)明，下面看一個(gè)將數(shù)據(jù)庫(kù)中的數(shù)據(jù)轉(zhuǎn)換到圖表的例子：
      


      lines.asp:
      


      


      

    

        
      

            以下為引用的內(nèi)容：
      

            
      <html>
      <head>
      <title>Line graph showing all the results</title>
      

            
      </head>
      

            
      <body>
      <table align=center width=400>
        <tr><td colspan=4><img src="gif_lines.asp"  width=400 height=300></td></tr>
      </table>
      <p>Links to the other result pages:</p>
      <p><a href=barsbyday.asp>Bar chart showing all results for any one day</a>.</p>
      <p><a href=barsbycolour.asp>Bar charts showing results for each colour separately</a>.</p>
      </body>
      </html>
      

                  		

        
      

          


      


      



      gif_lines.asp:
      


      


      

    

        
      

            以下為引用的內(nèi)容：
      <%@ language=vbscript %>
      <%
        '利用數(shù)據(jù)庫(kù)中的數(shù)據(jù)生成線圖。
        '根據(jù)4個(gè)不同的值分別生成4條線。
        '在X軸上顯示星期的名稱。

            
        Response.Expires = 0
        Response.Buffer = true
        Response.Clear
      

            
        '利用下面的語(yǔ)句創(chuàng)建chart對(duì)象，版本不同會(huì)有所差異。
        'Set Chart = Server.CreateObject("csDrawGraph.Draw")
        Set Chart = Server.CreateObject("csDrawGraphTrial.Draw")
      

            
        ConnectionString = "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & _ 
          Server.Mappath("data.mdb")
        Set DBConn = Server.CreateObject("ADODB.Connection")
        DBConn.Open ConnectionString
        Set RS = Server.CreateObject("ADODB.Recordset")
        SQL = "SELECT * FROM Table1 ORDER BY Day"
        RS.Open SQL, DBConn
      

            
          While Not RS.Eof
            Chart.AddPoint CInt(RS("Day")), CInt(RS("Red")), "ff0000", "Red"
            Chart.AddPoint CInt(RS("Day")), CInt(RS("Blue")), "0000ff", "Blue"
            Chart.AddPoint CInt(RS("Day")), CInt(RS("Green")), "00ff00", "Green"
            Chart.AddPoint CInt(RS("Day")), CInt(RS("Yellow")), "ffff00", "Yellow"
            Chart.AddXValue CInt(RS("Day")), RS("DayName")
            RS.MoveNext
          Wend
      

            
        '關(guān)閉數(shù)據(jù)庫(kù)連接
        RS.Close
        DBConn.Close
      

            
        '下面設(shè)置組件屬性
        'X軸坐標(biāo)從1開始而不是0。(XOffset = 1)

        Chart.Title = "All the combined results"
        Chart.TitleX = 100
        Chart.YAxisText = "Total for each day"
        Chart.OriginY = 220
        Chart.XOffset = 1
        Chart.XTop = 7
        Chart.XGrad = 1
        Chart.UseXAxisLabels = true
        Chart.LineWidth = 2
        Chart.PointSize = 3
        Chart.PointStyle = 1
      

            
        '最后圖片以GIF格式發(fā)送到瀏覽器
        Response.ContentType = "image/gif"
        Response.BinaryWrite Chart.GIFLine
        Response.End
      %>
      

                  		

        
      

          


      


      



      分享：ASP快速開發(fā)方法之?dāng)?shù)據(jù)操作
      這是我自己的心得，給大家作個(gè)參考。
我的目的是讓開發(fā)變得簡(jiǎn)單，盡可能少地考慮實(shí)現(xiàn)語(yǔ)句，更多地把精力用于思考業(yè)務(wù)邏輯。希望我的文章對(duì)大家有所啟發(fā)和幫助。

好吧，讓我們進(jìn)入正題：

先
      


      

      


      來(lái)源：模板無(wú)憂//所屬分類：ASP教程/更新時(shí)間：2008-08-22


      


      



      


      



      相關(guān)ASP教程：