[转帖]ASP中利用OWC控件实现图表功能详解_Android, Python及开发编程讨论区_Weblogic技术|Tuxedo技术|中间件技术|Oracle论坛|JAVA论坛|Linux/Unix技术|hadoop论坛_联动北方技术论坛  
网站首页 | 关于我们 | 服务中心 | 经验交流 | 公司荣誉 | 成功案例 | 合作伙伴 | 联系我们 |
联动北方-国内领先的云技术服务提供商
»  游客             当前位置:  论坛首页 »  自由讨论区 »  Android, Python及开发编程讨论区 »
总帖数
1
每页帖数
101/1页1
返回列表
0
发起投票  发起投票 发新帖子
查看: 3146 | 回复: 0   主题: [转帖]ASP中利用OWC控件实现图表功能详解        下一篇 
linlin.yi
注册用户
等级:少校
经验:1024
发帖:75
精华:1
注册:2013-11-8
状态:离线
发送短消息息给linlin.yi 加好友    发送短消息息给linlin.yi 发消息
发表于: IP:您无权察看 2013-11-13 10:58:24 | [全部帖] [楼主帖] 楼主

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




赞(0)    操作        顶端 
总帖数
1
每页帖数
101/1页1
返回列表
发新帖子
请输入验证码: 点击刷新验证码
您需要登录后才可以回帖 登录 | 注册
技术讨论