IDC资讯中心 在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 & “,“ &= 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″> 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>
ASP中利用OWC控件实现图表功能详解-ASP教程,组件开发
版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com 特别注意：本站所有转载文章言论不代表本站观点！ 本站所提供的图片等素材，版权归原作者所有，如需使用，请与原作者联系。未经允许不得转载：IDC资讯中心 » ASP中利用OWC控件实现图表功能详解-ASP教程,组件开发
