ASP中利用OWC控件实现图表功能详解
发布时间:2010-05-27 12:26:00
在ASP中利用OWC(Office Web Components)控件可轻松实现各种图表功能,如饼图,簇状柱型图,折线图等。
在下面的代码中我详细的给出了饼图,簇状柱型图,折线图的使用方法。OWC的更多功能,属性可参加MSOWCVBA.chm帮助文件(在office 2000的文件夹下大家自己找)。
testOWC.asp
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>ASP中利用OWC控件实现图表功能详解</title>
</head>
<body>
<%
'下面测试的是一个产品销量图
MX1 = "A产品,B产品,C产品,D产品" '数据项目名数组(给出测试数据,实际用的时候从数据库读取用","分隔)
MX2 = "50,60,20,80" '数据项目值数组
Datestr = "2005-3-24,2005-3-25,2005-3-26,2005-3-27,2005-3-28" '日期
SQARXLstr = "50,100,20,80,89" 'A产品2005-3-24 至 2005-3-28的销量
SQARXLstr = SQARXLstr & "," & "40,60,20,90,70" 'B产品2005-3-24 至 2005-3-28的销量
SQARXLstr = SQARXLstr & "," & "20,50,55,25,60" 'C产品2005-3-24 至 2005-3-28的销量
SQARXLstr = SQARXLstr & "," & "80,20,75,58,100" 'D产品2005-3-24 至 2005-3-28的销量
%>
<br>
<center><object id="ChartSpace1" classid="CLSID:0002E500-0000-0000-C000-000000000046" style="width:95%;height:400"></object></center>
<br>
<center><object id="ChartSpace2" classid="CLSID:0002E500-0000-0000-C000-000000000046" style="width:95%;height:400"></object></center>
<br>
<center><object id="ChartSpace3" classid="CLSID:0002E500-0000-0000-C000-000000000046" style="width:95%;height:400"></object></center>
<script language="vbscript">
Sub Window_OnLoad()
'------------------饼图-------------------------------------------------------------
'为数据赋值
categories = split("<%=MX1%>",",") '数据项目名数组
values = split("<%=MX2%>",",") '数据项目值数组
Set cht = ChartSpace1.Charts.Add '添加一个图标对象
Set c = ChartSpace1.Constants '返回一个对象,此对象允许脚本用户使用已命名的常量。
cht.Type = c.chChartTypePie '设置图表类型为饼图
'-------设置图表标题----------------------------------------
ChartSpace1.HasChartSpaceTitle = True '指定图表工作区中包含标题
ChartSpace1.ChartSpaceTitle.Caption = "饼状图" '设置图表工作区标题内容
'有关字体的设置
ChartSpace1.ChartSpaceTitle.Font.Bold = True '设置图表工作区标题内容是否粗体
ChartSpace1.ChartSpaceTitle.Font.Color = "blue" '设置图表工作区标题的颜色
ChartSpace1.ChartSpaceTitle.Font.Italic = False '设置图表工作区标题是否为斜体
ChartSpace1.ChartSpaceTitle.Font.Name = "隶书" '设置图表工作区标题内容的字体
ChartSpace1.ChartSpaceTitle.Font.Size = 18 '设置图表工作区标题内容的大小(单位:磅)
ChartSpace1.ChartSpaceTitle.Font.Underline = c.owcUnderlineStyleSingle '设置下划线属性
'-------设置图例--------------------------------------------
cht.HasLegend = True '指定图表工作区中含有图例
cht.Legend.Font.Size = 9 '其他有关字体项的设置参见设置图表标题部分
cht.Legend.Position = c.chLegendPositionRight '设置图例对其方式
cht.SetData c.chDimCategories, c.chDataLiteral, categories
cht.SeriesCollection(0).SetData c.chDimValues, c.chDataLiteral, values
Set dl = cht.SeriesCollection(0).DataLabelsCollection.Add '添加图例的数据标记
dl.HasValue = False
dl.HasPercentage = True
dl.Font.Size = 11
'------------------饼图(结束)------------------------------------------------
'------------------簇状柱型图(开始)--------------------------------------
Set cht = ChartSpace2.Charts.Add '添加一个图标对象
Set c = ChartSpace2.Constants '返回一个对象,此对象允许脚本用户使用已命名的常量。
cht.Type = c.chChartTypeColumnClustered '设置图表类型为折线图
'-------设置图表标题----------------------------------------
ChartSpace2.HasChartSpaceTitle = True '指定图表工作区中包含标题
ChartSpace2.ChartSpaceTitle.Caption = "柱状图" '设置图表工作区标题内容
'有关字体的设置
ChartSpace2.ChartSpaceTitle.Font.Bold = True '设置图表工作区标题内容是否粗体
ChartSpace2.ChartSpaceTitle.Font.Color = "blue" '设置图表工作区标题的颜色
ChartSpace2.ChartSpaceTitle.Font.Italic = False '设置图表工作区标题是否为斜体
ChartSpace2.ChartSpaceTitle.Font.Name = "隶书" '设置图表工作区标题内容的字体
ChartSpace2.ChartSpaceTitle.Font.Size = 18 '设置图表工作区标题内容的大小(单位:磅)
ChartSpace2.ChartSpaceTitle.Font.Underline = c.owcUnderlineStyleSingle '设置下划线属性
cht.SetData c.chDimCategories, c.chDataLiteral, categories '横项(分类轴)
cht.SeriesCollection(0).SetData c.chDimValues, c.chDataLiteral, values
Set dl = cht.SeriesCollection(0).DataLabelsCollection.Add '添加图例的数据标记
dl.HasValue = True
dl.HasPercentage = False
dl.Font.Size = 9
dl.Font.Color = "red"
dl.Position = c.chLegendPositionRight
'设置纵向数值属性
Set categoryAxis = cht.Axes(c.chAxisPositionBottom)
categoryAxis.Font.Size = 9
'设置分类组属性
Set categoryAxis = cht.Axes(c.chAxisPositionLeft)
categoryAxis.Font.Size = 9
'------------------簇状柱型图(结束)--------------------------------------
'------------------折线图----------------------------------------------------------
SParr = split("<%=MX1%>",",")
Datearr = split("<%=Datestr%>",",")
Set cht = ChartSpace3.Charts.Add '添加一个图标对象
Set c = ChartSpace3.Constants '返回一个对象,此对象允许脚本用户使用已命名的常量。
cht.Type = c.chChartTypeLineMarkers '设置图表类型为折线图
'-------设置图表标题----------------------------------------
ChartSpace3.HasChartSpaceTitle = True '指定图表工作区中包含标题
ChartSpace3.ChartSpaceTitle.Caption = "日销量折线图" '设置图表工作区标题内容
'有关字体的设置
ChartSpace3.ChartSpaceTitle.Font.Bold = True '设置图表工作区标题内容是否粗体
ChartSpace3.ChartSpaceTitle.Font.Color = "blue" '设置图表工作区标题的颜色
ChartSpace3.ChartSpaceTitle.Font.Italic = False '设置图表工作区标题是否为斜体
ChartSpace3.ChartSpaceTitle.Font.Name = "隶书" '设置图表工作区标题内容的字体
ChartSpace3.ChartSpaceTitle.Font.Size = 18 '设置图表工作区标题内容的大小(单位:磅)
ChartSpace3.ChartSpaceTitle.Font.Underline = c.owcUnderlineStyleSingle '设置下划线属性
'-------设置图例--------------------------------------------
cht.HasLegend = True '指定图表工作区中含有图例
cht.Legend.Font.Size = 9 '其他有关字体项的设置参见设置图表标题部分
cht.Legend.Position = c.chLegendPositionBottom '设置图例对其方式
cht.SetData c.chDimSeriesNames, c.chDataLiteral, SParr '系列
cht.SetData c.chDimCategories, c.chDataLiteral, Datearr '横项(分类轴)
'设置纵向数值属性
Set categoryAxis = cht.Axes(c.chAxisPositionBottom)
categoryAxis.Font.Size = 9
'设置分类组属性
Set categoryAxis = cht.Axes(c.chAxisPositionLeft)
categoryAxis.Font.Size = 9
values = split("<%=SQARXLstr%>",",")
for i = 0 to ubound(SParr)
valuetemp = ""
for j = i*(ubound(Datearr)+1) to (i+1)*(ubound(Datearr)+1)-1 '按天读取数据
valuetemp = valuetemp & "," & values(j)
next
valuearr = split(mid(valuetemp,2),",")
cht.SeriesCollection(i).SetData c.chDimValues, c.chDataLiteral, valuearr
Set dl = cht.SeriesCollection(i).DataLabelsCollection.Add '添加图例的数据标记
dl.HasValue = True
dl.HasPercentage = False
dl.Font.Size = 9
next
'------------------折线图(结束)---------------------------------------------------
End Sub
</script>
</body>
猜你喜欢
- 1. 鼠标的哪个按键被点击?<html><head><script type="text/javas
- 死锁是指在某组资源中,两个或两个以上的线程在执行过程中,在争夺某一资源时而造成互相等待的现象,若无外力的作用下,它们都将无法推进下去,死时就
- Oracle的分析函数功能非常强大,工作这些年来经常用到。这次将平时经常使用到的分析函数整理出来,以备日后查看。我们拿案例来学习,这样理解起
- python中对文件、文件夹(文件操作函数)的操作需要涉及到os模块和shutil模块。得到当前工作目录,即当前Python脚本工作的目录路
- 1.自定义线程池import threadingimport Queueimport timequeue = Queue.Queue()de
- 前言本文主要介绍的是关于Django验证码生成与使用的相关内容,分享出来供大家参考学习,下面来一起看看详细的介绍:方法如下:1、基于PIL生
- 目录1 figure1.1 创建figure1.2 figure的常用设置1.2.1 set方法通用设置1.2.2 设置figure标题1.
- 本文实例讲述了Python大数据之使用lxml库解析html网页文件。分享给大家供大家参考,具体如下:lxml是Python的一个html/
- 本文实例讲述了python实现telnet客户端的方法。分享给大家供大家参考。具体如下:python实现的telnet客户端程序,pytho
- 前言大家好,我是空空star,本篇给大家分享一下通过Python的pyttsx3库将文字转为音频。一、pyttsx3是什么?pyttsx3是
- JSON简介JSON(JavaScript Object Notation)是一种轻量级的数据交换格式,它基于ECMAScript的一个子集
- 一、概述 对象是Oracle8i以上版本中的一个新的特性,对象实际是对一组数据和操作的封装,对象的抽象就是类。在面向对象技术中,对象涉及到以
- 下拉框包含option中的Value和用来显示的选项, 一般后台都是使用的Value值,而不是显示在前台的选项第一步: 编写下拉框需要的枚举
- 本文实例讲述了Python 实现的微信爬虫。分享给大家供大家参考,具体如下:单线程版:import urllib.requestimport
- 我们目前已经学会了四个控件,也编出了几个窗口实例,它们都有一个共同的特点,就是丑,主要原因是没有进行合理地布局。此前的布局方式简单粗暴,即明
- 本文将以Mysql举例,介绍sqlalchemy的基本用法。其中,Python版本为2.7,sqlalchemy版本为1.1.6。一. 介绍
- asp.net和php哪个更好?在.net之前,微软的是ASP。在微软的大力推广下,其看起来还是很有前途的。但现在,微软想推广asp.net
- 近年,不论是正在快速增长的直播,远程教育以及IM聊天场景,还是在常规企业级系统中用到的系统提醒,对websocket的需求越来越大,对web
- 今天继续学习Django,今天主要掌握两个小点一、如果为Django项目中引入静态文件1、先要在project目录下创建static的目录,
- 本文实例讲述了Python实现获取命令行输出结果的方法。分享给大家供大家参考,具体如下:Python获取命令行输出结果,并对结果进行过滤找到