<script> 
var i,n; 
var w=100,h=80;//设置控件的宽和高 
var arrData=new Array(12,13,14,21,23,24,32,34,43);//设置饼图的数据 document.write('<OBJECT ID="DAControl" style="WIDTH='+w+';HEIGHT='+h+';border:0 solid black" CLASSID="CLSID:B6FFC24C-7E13-11D0-9B47-00C04FC2F51D"></OBJECT>');//画出DAControl 
var m=DAControl.PixelLibrary; 
var arrCol=new Array(m.Red, m.Green, m.Blue, m.Aqua, m.Fuchsia, m.Gray,m.Lime, m.Maroon, m.Navy, m.Olive, m.Purple, m.Silver, m.Teal, m.Cyan, m.Magenta, m.Yellow, m.Black, m.White);//设置颜色数组 
var iSum=0;for(i=0;i<arrData.length;i++)iSum+=arrData[i];//求出各数据的累加和 
var ds=m.NewDrawingSurface(); 
var iFrom=0,iTo=0; 
var iMax=4;//设置重画次数 
var px=0,py=4;//设置x,y轴的倾斜度 
for(n=0;n<=iMax;n+=0.5)//重画可产生立体感 
for(i=0;i<arrData.length;i++){ 
ds.FillColor(arrCol[i]);//设置填充颜色 
ds.BorderColor(arrCol[i]);//设置边框颜色 
iTo+=arrData[i];//设置终止地点相关系数 
ds.PieDegrees(-w/2+n*px,-h/2+(iMax-n)*py,iFrom/iSum*360,iTo/iSum*360,w-iMax*px,h-iMax*py);//画小块饼图 
iFrom=iTo;//设置下一个数据初始位置相关系数 

DAControl.Image=ds.Image;//设置DAControl的图形 
DAControl.Start();//执行 
</script>