在
asp中利用OWC(Office Web Components)控件可轻松实现各种图表功能,如饼图,簇状柱型图,折线图等。
在下面的代码中我详细的给出了饼图,簇状柱型图,折线图的使用方法。OWC的更多功能,属性可参加MSOWC
vbA.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.