ASP进阶：用ASP制作统计饼图、柱状图等

superadmin · 发表于 2008-5-26 13:22:05

我们工作中经常需要将数据转化成柱状图，饼图等，以方便直观的分析数据，这里给大家介绍一个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">
This simple demonstration shows two graphs using the same data. The first is
 a bar chart:
<IMG src="chartimages.asp?Type=Bar" width="400" height="300">

The second is a pie chart. The background colour is set to light
 grey to show the overall size of the image.
<IMG src="chartimages.asp?Type=Pie" width="400" height="300">

</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>
Links to the other result pages:
<a href=barsbyday.asp>Bar chart showing all results for any one day</a>.
<a href=barsbycolour.asp>Bar charts showing results for each colour separately</a>.
</body>
</html>

gif_lines.asp:

superadmin · 发表于 2008-5-26 13:22:14

<%@ 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
%>

		自动登录	找回密码
密码			注册

全国各地医院查询	重量转换换算	RGB颜色查询	交通标志大全	各类快递查询
简体繁体转换	黄金价格实时走势	万年历查询	实时汇率转换	列车时刻查询
在线翻译工具	CSS中文手册	HTML学习教程	MySQL中文手册	JavaScript中文手册
PHP安全基础手册	PHP5面向对象编程教程	正则表达式系统教程	SQL Server精华	Apache 2.2 中文手册
DOS命令全集指南	windows脚本技术中文版	股票行情查询	历史上的今天	邮编区号查询
长度转换换算	货币汇率转换	常用电话号码	体育彩票查询	手机位置查询
域名Whois信息查询	谷歌PR值查询	台州网站建设	台州网站开发	台州域名注册
天气预报查询	长度转换换算器	在线电子地图	车牌号码查询	中国百家姓查询

ASP进阶：用ASP制作统计饼图、柱状图等

相关帖子

浏览过的版块