推薦：利用ASP將HTML格式數據傳輸給Excel 的技巧學習如何建立ASP頁面將HTML數據流傳送到Execl電子表格，並且在IE中顯示Execl電子表格。到目前為止，有好幾種方法可以使用ASP技術來創立Excel數據表格，你還可以利用服務器端Excel 8.0 VBA組
我們工作中經常需要將數據轉化成柱狀圖，餅圖等，以方便直觀的分析數據， 這裡給大家介紹一個ASP中製作餅圖、柱狀圖的組件：csDrawGraph，csdgt.zip,因為是組件，所以我們在使用之前需要用REGSVR32.EXE 註冊一下，csDrawGraph，可以在ASP中創建餅圖，柱狀圖以及線圖，其支持的格式有GIF, PNG, JPG and BMP.
chartdemo.asp
| 以下為引用的內容： <%@ 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
| 以下為引用的內容： <%@ 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 %> |
程序很簡單，再些不詳細說明，下面看一個將數據庫中的數據轉換到圖表的例子：
lines.asp:
| 以下為引用的內容： <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:
| 以下為引用的內容： <%@ language=vbscript %> <% '利用數據庫中的數據生成線圖。 '根據4個不同的值分別生成4條線。 '在X軸上顯示星期的名稱。 Response.Expires = 0 Response.Buffer = true Response.Clear '利用下面的語句創建chart對象，版本不同會有所差異。 '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 '關閉數據庫連接 RS.Close DBConn.Close '下面設置組件屬性 'X軸坐標從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格式發送到瀏覽器 Response.ContentType = image/gif Response.BinaryWrite Chart.GIFLine Response.End %> |
分享：ASP快速開發方法之數據操作這是我自己的心得，給大家作個參考。我的目的是讓開髮變得簡單，盡可能少地考慮實現語句，更多地把精力用於思考業務邏輯。希望我的文章對大家有所啟發和幫助。好吧，讓我們進入正題：先