vbscript ms owc 封裝代码
作者 佚名
来源 ASP编程
浏览
发布时间 2013-07-09
用测试代码: 复制代码 代码如下: <html> <head> <title>vbscript owc class test</title> <script language="vbscript" src="owc.vbs"></script> <script language="vbscript"> sub window_onload() set t = new owc categories =Array("A2-1","A2-2","A2-3","A3-1","A3-2","A3-3"_ ,"B2-1","B2-2","B2-3","B3-1","B3-2","B3-3"_ ,"C2-1","C2-2","C3-1","C3-2","C3-3") values = Array(0.813,0.689,0.800,0.833,0.681,0.864,0.743_ ,0.894,0.822,0.874,0.746,0.908,0.850_ ,0.728,0.731,0.734,0.624) set t.set_obj=document.getElementById("cs1") t.bar "#FFFFFF","报表标题","BLUE","#CCCC00","组别",categories,values color=Array("#CCFFFF","#99CCFF","#00CCFF","#FF0000","#660066","#FF8080") caption=Array("第1周","第2周","第3周","第4周") categories=Array("A栋","B栋") values=Array(0.6951,0.5798,0.7075,0.512,0.7907,0.7493,0.8691,0.7716) set t.set_obj=document.getElementById("cs2") t.serbar "#FFFFFF","2008年10月坑头三厂各周各楼层达成率比较图","red",color,caption,categories,values categories=array("台北","上海") values = array(238760,912560.62) set t.set_obj=document.getElementById("cs3") t.Pie "#FFFFFF","销售金额所佔比例(城市分类)","BLUE","城市",categories,values categories =array("2008/11/1","2008/11/2","2008/11/3","2008/11/4","2008/11/5","2008/11/6","2008/11/7","2008/11/8","2008/11/9","2008/11/10","2008/11/11","2008/11/12","2008/11/13","2008/11/14","2008/11/15","2008/11/16","2008/11/17","2008/11/18","2008/11/19","2008/11/20","2008/11/21","2008/11/22","2008/11/23","2008/11/24","2008/11/25","2008/11/26","2008/11/27","2008/11/28","2008/11/29","2008/11/30") values = array(67239.89,60400.26,7202.89,18453.12,28889.29,102136.25,78826.39,146291.6,93743.29,44204.44,45349.28,50730.6,37900.21,84359.87,169333.62,114594.96,75334.77,51360.32,55853.05,37912.63,45068.22,63930.98,72993.71,18699.5,24714.5,34792.91,39414.58,92171.2,74433.06,3998894.41) set t.set_obj=document.getElementById("cs4") t.line "#FFFFFF","销售金额","BLUE","日期",categories,values color=Array("#CCFFFF","#99CCFF","#00CCFF","#FF0000") SeriesNames = array("A产品","B产品","C产品","D产品") Categories = array("2005/3/24","2005/3/25","2005/3/26","2005/3/27","2005/3/28") values = array(50,100,20,80,89,40,60,20,90,70,20,50,55,25,60,80,20,75,58,100) set t.set_obj=document.getElementById("cs5") t.serline "#FFFFFF","达成率月报表","red",color,SeriesNames,categories,values set t=nothing end sub </script> </head> <body> <div id="c1"><object id="cs1" name="cs1" classid="CLSID:0002E55D-0000-0000-C000-000000000046" codebase="owc11.dll" style="width:100%;height:350"></object></div> <div id="c2"><object id="cs2" name="cs2" classid="CLSID:0002E55D-0000-0000-C000-000000000046" codebase="owc11.dll" style="width:100%;height:350"></object></div> <div id="c3"><object id="cs3" name="cs3" classid="CLSID:0002E55D-0000-0000-C000-000000000046" codebase="owc11.dll" style="width:100%;height:350"></object></div> <div id="c4"><object id="cs4" name="cs4" classid="CLSID:0002E55D-0000-0000-C000-000000000046" codebase="owc11.dll" style="width:100%;height:350"></object></div> <div id="c5"><object id="cs5" name="cs5" classid="CLSID:0002E55D-0000-0000-C000-000000000046" codebase="owc11.dll" style="width:100%;height:350"></object></div> </body> </html> o |
凌众科技专业提供服务器租用、服务器托管、企业邮局、虚拟主机等服务,公司网站:http://www.lingzhong.cn 为了给广大客户了解更多的技术信息,本技术文章收集来源于网络,凌众科技尊重文章作者的版权,如果有涉及你的版权有必要删除你的文章,请和我们联系。以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息,谢谢! |
你可能对下面的文章感兴趣
关于vbscript ms owc 封裝代码的所有评论