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

当前位置: 首页 > 图文教程 > 网络编程 > ASP > ASP进阶：用ASP制作统计饼图、柱状图等

ASP: ASP字符串大写转换成小写 ASP小写转换成大写 ucase lcase; asp base64加解密函数代码; Discuz!NT 论坛整合ASP程序论坛; discuz 2.0整合asp系统,用户添加函数; P3P 和跨域 (cross-domain) cookie 访问(读取和设置）; 通过asp程序来创建access数据库; 检查access数据库中是否存在某个名字的表的asp代码; asp #include file 与 #include virtual 的区别小结; 一个带采集远程文章内容,保存图片,生成文件等完整的采集功能; asp 横排显示数据; asp base64 utf-8为了兼容asp.net的base64; 两个非常规ASP木马(可躲过扫描); asp DateDiff实现文字在特定时间后消失; ASP所有的Session变量获取实现代码; 关于ASP eof与bof 区别分析; asp ajax注册验证之防止用户名输入空格; asp sqlserver 执行存储过程返回记录集报对象关闭时不允许操作; ASP 获取文件扩展名函数getFileExt(); asp 简单分页代码; asp删除mssql数据库中没有记录的图片代码

No. « ‹ 84 85 86 87 › »

技术文章搜索

关键字

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

出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-09-23 浏览: 55 ::

收藏到网摘: n/a

ASP优化：几招提高ASP性能的最佳选择 ASP应用进阶 ASP Error对象的相关知识

我们工作中经常需要将数据转化成柱状图，饼图等，以方便直观的分析数据，这里给大家介绍一个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:

<%@ 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优化：几招提高ASP性能的最佳选择 ASP应用进阶 ASP Error对象的相关知识

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

评论 (0) All