ASP中利用OWC控件实现图表功能详解

在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>
</html>

转载于:https://www.cnblogs.com/penboy/archive/2005/05/28/164197.html

ASP中利用OWC控件实现图表功能详解[zz]相关推荐

  1. ASP中利用OWC控件实现图表功能详解

    在ASP中利用OWC(Office Web Components)控件可轻松实现各种图表功能,如饼图,簇状柱型图,折线图等. 在下面的代码中我详细的给出了饼图,簇状柱型图,折线图的使用方法.OWC的更 ...

  2. VB.net小技巧——VB中利用TreeView控件和Box控件做知识备忘

    提示:文章写完后,目录可以自动生成,如何生成可参考右边的帮助文档 VB.net小技巧--VB中利用TreeView控件和Box控件做知识备忘 这里不涉及代码的展示,主要是为了阐述一种做笔记的思想. 为 ...

  3. 根据控件句柄读控件在内存的数据_WPF 2020界面开发新纪元——Accordion控件、图表功能升级...

    DevExpress WPF Subscription拥有120+个控件和库,将帮助您交付满足甚至超出企业需求的高性能业务应用程序.通过DevExpress WPF能创建有着强大互动功能的XAML基础 ...

  4. WPF 2020界面开发新纪元——Accordion控件、图表功能升级

    DevExpress WPF Subscription拥有120+个控件和库,将帮助您交付满足甚至超出企业需求的高性能业务应用程序.通过DevExpress WPF能创建有着强大互动功能的XAML基础 ...

  5. wxss 点击样式_微信小程序点击控件修改样式实例详解

    微信小程序点击控件修改样式实例详解 现在要在微信小程序中实现点击控件修改样式,如下: 微信小程序中不支持直接操作dom,要实现这种效果,我们需要通过设置data,然后利用数据和界面的双向绑定来实现它. ...

  6. android组件用法说明,Android第三方控件PhotoView使用方法详解

    Android第三方控件PhotoView使用方法详解 发布时间:2020-10-21 15:06:09 来源:脚本之家 阅读:74 作者:zhaihaohao1 PhotoView的简介: 这是一个 ...

  7. android禁止下拉刷新,Android开发之无痕过渡下拉刷新控件的实现思路详解

    相信大家已经对下拉刷新熟悉得不能再熟悉了,市面上的下拉刷新琳琅满目,然而有很多在我看来略有缺陷,接下来我将说明一下存在的缺陷问题,然后提供一种思路来解决这一缺陷,废话不多说!往下看嘞! 1.市面一些下 ...

  8. excel日历弄到html,如何在Excel中利用日历控件来快速输入日期

    给大家分享了一个利用日历控件在Excel单元格中输入日期的小窍门.大家知道,物流和会计行业的报表,经常需要手工输入一些日期,例如发货日期,在途时间.到达配送中心日期.签收日期等,如果手工输入,难免出错 ...

  9. 【柏拉图】在WPF中利用DevExpress控件进行柏拉图展示

    dx控件版本为15.2 因为17.2在win7系统中可能存在报错 有知道原因的大佬烦请告知一下 <Grid Grid.Column="1"><dxc:ChartC ...

最新文章

  1. 巧解SEP杀毒软件卸载需要密码才能完全卸载问题
  2. android studio标题怎么改,如何在Android Studio中将应用标题更改为徽标
  3. IOS开发之小实例--UIImagePickerController
  4. clion编译器解决undefined reference to symbol ‘shm_open@@GLIBC_2.2.5‘
  5. 靓仔落泪，性能问题定位难倒我了
  6. qt调用mysql调用了存储过_Qt调用Server SQL中的存储过程
  7. python-运算符之算术运算符
  8. 新晋“网红”Cat1 是什么
  9. pads9.5 (PCB design)
  10. 【ElasticSearch】Es 启动流程 初始化流程 源码分析
  11. ChannelSplitterNode
  12. NIOS II EDS NIOS II IDE 转载
  13. 通向架构师的道路（第十四天）Axis2 Web Service安全之rampart
  14. java 文件流的帮助类
  15. 【并行计算-CUDA开发】CUDA shared memory bank 冲突
  16. AI代替法官？你了解智慧司法的建设与应用吗
  17. 计算机专业如何改革创新的生力军,年轻干部如何真正成为改革创新的生力军？...
  18. android 密码输入框 星号,input密码框输入后设置显示为星号或其他样式
  19. CSS基础常识问答（三）
  20. 趣图：说一说你不知道的世界

热门文章

  1. 【干货】常用的Linux 系统备份、恢复命令
  2. 6 岁！是时候重新认识下 Serverless 了
  3. 课时 25：Kubernetes 网络模型进阶（叶磊）
  4. 减少运维工作量，如何通过 ROS 轻松实现资源编排新方式
  5. 灵活、高效的云原生集群管理经验：用 K8s 管理 K8s
  6. 从零开始入门 K8s | 可观测性：监控与日志
  7. bp神经网络pid控制_文章推荐 | BP神经网络PID控制器在无人机编队飞行中的应用...
  8. python ipaddr_python之IP地址或IP段处理模块-ipaddr
  9. php双写绕过,高并发下缓存与数据库双写不一致解决方案
  10. python pyecharts_Python数据可视化之pyecharts