注册登录

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

时间:2016-02-24 15:53 来源: 我爱IT技术网作者:佚名

欢迎您访问我爱IT技术网，今天小编为你分享的编程技术是：【ASP进阶：用ASP制作统计饼图、柱状图等】，下面是详细的分享！

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

我们工作中经常需要将数据转化成柱状图，饼图等，以方便直观的分析数据，这里给大家介绍一个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=http://www.chinaz.com/program/2008/0523/"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=http://www.chinaz.com/program/2008/0523/"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=http://www.chinaz.com/program/2008/0523/"gif_lines.asp" width=400 height=300></td></tr>
</table>
Links to the other result pages:
<a href=http://www.chinaz.com/program/2008/0523/barsbyday.asp>Bar chart showing all results for any one day</a>.
<a href=http://www.chinaz.com/program/2008/0523/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制作统计饼图、柱状图等，下面是编辑为你推荐的有价值的用户互动：

　　相关问题：怎样在word文档中绘制统计图（柱形图、饼图）

　　答：第一步：打开word ，将光标放到需要插入的位置；第二步：依次单击菜单栏的【插入】->【图表】，在弹出的对话框中选择【柱形图】或者【饼图】，然后选择适当形式的图形后点击【确定】；第三步：按照说明，在弹出的excel中填写相关数据，之后关... >>详细

　　相关问题：请问大家怎样在word文档中绘制统计图(柱形图、饼图...

　　答：插入——图表会出现常见的灰色斜线，表示该图标域excel进行了连接 >>详细

　　相关问题：求助一下大家怎样在word文档中绘制统计图(柱形图、...

　　答：一定要在word里面吗？按照我的经验来说，在Excel里面先制成柱形图、饼图，然后再粘贴到word里，更方便一些。 >>详细

评论列表（网友评论仅供网友表达个人看法，并不表明本站同意其观点或证实其描述）

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

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

以上所分享的是关于ASP进阶：用ASP制作统计饼图、柱状图等，下面是编辑为你推荐的有价值的用户互动：

最新教程

相关教程