推荐：利用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快速开发方法之数据操作这是我自己的心得，给大家作个参考。我的目的是让开发变得简单，尽可能少地考虑实现语句，更多地把精力用于思考业务逻辑。希望我的文章对大家有所启发和帮助。好吧，让我们进入正题：先