owc 的问题！

whlym 2003-07-11 03:05:13

要怎样才能在一个图表中加入2个系列？比如在曲线图中的怎样可以有两条曲线？

...全文

41 1 打赏收藏转发到动态举报

写回复

用AI写文章

1 条回复

切换为时间正序

请发表友善的回复…

发表回复

t98 2003-07-11

打赏
举报

<%@ Language=VBScript %>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<TITLE></TITLE>
<script language="vbscript">
sub window_onload()
<%’用ASP实现与数据库连接，查询得到：（本段代码略）
‘横坐标（日期）的数值，放在数组days中
‘横坐标的总点数（即这段时间包含多少天），放在变量numb中
‘计划完成的数值，放在数组plans中
‘实际完成的数值，放在数组facts中
‘关闭与数据库的连接
%>
Dim categories(34), values(34)
‘将横坐标的值赋给Vbscript环境下的数组categories
<%for i=0 to (numb – 1)%>
categories(<%=I%>)=<%=(days(i) & "日") %>
<%next%>
ChartSpace1.Charts.Add ‘将图表添加到图表工作区中
‘将变量c设置为 Constants 属性所返回的对象,
‘因为在 VBScript 中不能使用已命名的常量
Set c = ChartSpace1.Constants
ChartSpace1.Charts(0).hastitle=true ‘图表有标题
ChartSpace1.Charts(0).Title.Font.Name = "仿宋_GB231280" ‘标题字体
ChartSpace1.Charts(0).Title.Font.size=12 ‘标题字体大小
ChartSpace1.Charts(0).Title.caption="数据比较" ‘标题内容
ChartSpace1.Charts(0).HasLegend = True ‘指定图表具有图例
‘指定图表的图形方式为列状图
ChartSpace1.Charts(0).type=c.chChartTypeColumnClustered
‘给图表赋横坐标的值
ChartSpace1.Charts(0).SetData c.chDimCategories, c.chDataLiteral,categories
‘系列0对应计划完成数值
ChartSpace1.Charts(0).SeriesCollection(0).Caption="计划完成" ‘系列0的图例
‘将计划完成的值赋给Vbscript环境下的数组values
<%for i=0 to (numb – 1)%>
values(<%=I%>)=<%=plans (i) %>
<%next%>
‘将计划完成的值赋给图表的系列0
ChartSpace1.Charts(0).SeriesCollection(0).SetData c.chDimValues, c.chDataLiteral, values
ChartSpace1.Charts(0).SeriesCollection.Add ‘向图表中添加系列1
ChartSpace1.Charts(0).SeriesCollection(1).Caption="实际完成" ‘系列1的图例
‘将实际完成的值赋给Vbscript环境下的数组values
<%for i=0 to (numb – 1)%>
values(<%=I%>)=<%=facts (i) %>
<%next%>
‘将实际完成的值赋给图表的系列1
ChartSpace1.Charts(0).SeriesCollection(1).SetData c.chDimValues, c.chDataLiteral, values
‘指定纵坐标轴有标题，并赋值，然后指定数据的显示格式
ChartSpace1.Charts(0).axes(c.chAxisPositionLeft).hastitle=true
ChartSpace1.Charts(0).axes(c.chAxisPositionLeft).title.caption="数量"
ChartSpace1.Charts(0).Axes(c.chAxisPositionLeft).NumberFormat = "0.##"
‘指定横坐标轴有标题，并赋值
ChartSpace1.Charts(0).axes(c.chAxisPositionBottom).hastitle=true
ChartSpace1.Charts(0).axes(c.chAxisPositionBottom).title.caption="日期"
end sub
‘根据用户选择的图形方式，改变图表的形状
sub dd_onchange()
ChartSpace1.Charts(0).type=dd(dd.selectedIndex).value
end sub
</script>
</HEAD>
<BODY>
<select name="dd" size="1">
<option value="0" selected>列状图</option>
<option value="3">栏状图</option>
<option value="6">平滑曲线图</option>
<option value="18">饼形图</option>
<option value="29">面积图</option>
</select>
<!-- 创建一个图表工作区对象, 名为“ChartSpace1” à
<P>
<object id=ChartSpace1 classid=CLSID:0002E500-0000-0000-C000-000000000046 codebase=”msowc.dll” style="width:100%;height:350"></object>
</P>
</BODY>
</HTML>