效果预览：

程序源码：
<%
'参数含义(数组，横坐标，纵坐标，图表的宽度，图表的高度,图表标题,单位)
function aspVml3DCake(stat_array,table_left,table_top,all_width,all_height,table_title,unit)
dim bg_color(10),pie(10),num,allvalues,k,i,k1,k2,k3,k4,k5,R,kkk,txt_x,txt_y
bg_color(1) ="#ff1919"
bg_color(2) ="#ffff19"
bg_color(3) ="#1919ff"
bg_color(4) ="#19ff19"
bg_color(5) ="#ffcc00"
bg_color(6) ="#32cccc"
bg_color(7) ="#ff19ff"
bg_color(8) ="#993300"
bg_color(9) ="#ff6600"
bg_color(10)="#ff8c19"

num =ubound(stat_array,1)
allvalues=0
for i=1 to num
allvalues = allvalues+stat_array(i,1)
next
k=0
for i=1 to num-1
pie(i)=formatnumber(stat_array(i,1)/allvalues,4,-1)
k=k+pie(i)
next
pie(num)=formatnumber((1-k),4,-1)

response.Write "<v:shapetype id='Cake_3D' coordsize='21600,21600' o:spt='95' adj='11796480,5400' path='al10800,10800@0@0@2@14,10800,10800,10800,10800@3@15xe'></v:shapetype>"

response.Write "<v:shapetype id='3dtxt' coordsize='21600,21600' o:spt='136' adj='10800' path='m@7,l@8,m@5,21600l@6,21600e'> "
response.Write " <v:path textpathok='t' o:connecttype='custom' o:connectlocs='@9,0;@10,10800;@11,21600;@12,10800' o:connectangles='270,180,90,0'/>"
response.Write " <v:textpath on='t' fitshape='t'/>"
response.Write " <o:lock v:ext='edit' text='t' shapetype='t'/>"
response.Write "</v:shapetype>"

response.Write "<v:rect id='background' style='position:absolute;left:"& table_left &"px;top:"& table_top &"px;WIDTH:"& all_width &"px;HEIGHT:"& all_height &"px;' fillcolor='#EFEFEF' strokecolor='gray'>"
response.Write " <v:shadow on='t' type='single' color='silver' offset='4pt,4pt'/>"
response.Write "</v:rect>"

response.Write "<v:group ID='table' style='position:absolute;left:"& table_left &"px;top:"& table_top &"px;WIDTH:"& all_width &"px;HEIGHT:"& all_height &"px;' coordsize = '21000,11500'>"
response.Write " <v:Rect style='position:relative;left:500;top:200;width:20000;height:800'filled='false' stroked='false'>"
response.Write " <v:TextBox inset='0pt,0pt,0pt,0pt'>"
response.Write " <table width='100%' border='0' align='center' cellspacing='0'>"
response.Write " <tr>"
response.Write " <td align='center' valign='middle'><div style='font-size:15pt; font-family:黑体;'><B>"& table_title &"</B></div></td>"
response.Write " </tr>"
response.Write " </table>"
response.Write " </v:TextBox>"
response.Write " </v:Rect> "

response.Write " <v:rect id='back' style='position:relative;left:500;top:1000;width:20000; height:10000;' onmouseover='movereset(1)' onmouseout='movereset(0)' fillcolor='#9cf' strokecolor='#888888'>"
response.Write " <v:fill rotate='t' angle='-45' focus='100%' type='gradient'/>"
response.Write " </v:rect>"

response.Write " <v:rect id='back' style='position:relative;left:15000;top:1400;width:5000; height:"& ((num+1)*9000/11+200) &";' fillcolor='#9cf' stroked='t' strokecolor='#0099ff'>"
response.Write " <v:fill rotate='t' angle='-175' focus='100%' type='gradient'/>"
response.Write " <v:shadow on='t' type='single' color='silver' offset='3pt,3pt'/>"
response.Write " </v:rect>"

response.Write " <v:Rect style='position:relative;left:15500;top:1500;width:4000;height:700' fillcolor='#000000' stroked='f' strokecolor='#000000'>"
response.Write " <v:TextBox inset='8pt,4pt,3pt,3pt' style='font-size:11pt;'><div align='left'><font color='#ffffff'><B>总数:"& allvalues & unit &"</B></font></div></v:TextBox>"
response.Write " </v:Rect> "
for i=1 to num
response.Write " <v:Rect id='rec"& i &"' style='position:relative;left:15400;top:"& i*9000/11+1450 &";width:4300;height:800;display:none' fillcolor='#efefef' strokecolor='"& bg_color(i) &"'>"
response.Write " <v:fill opacity='.6' color2='fill darken(118)' o:opacity2='.6' rotate='t' method='linear sigma' focus='100%' type='gradient'/>"
response.Write " </v:Rect>"
response.Write " <v:Rect style='position:relative;left:15500;top:"& i*9000/11+1500 &";width:600;height:700' fillcolor='"& bg_color(i) &"' stroked='f'/>"
response.Write " <v:Rect style='position:relative;left:16300;top:"& i*9000/11+1500 &";width:3400;height:700' filled='f' stroked='f'>"
response.Write " <v:TextBox inset='0pt,5pt,0pt,0pt' style='font-size:9pt;'><div align='left'>"& stat_array(i,2) &":"& stat_array(i,1) & unit &"</div></v:TextBox>"
response.Write " </v:Rect> "
response.Write " </v:Rect> "
next
response.Write "</v:group>"

k1 = 180
k4 = 10
for i=1 to num
k2 = 360 * pie(i)/2
k3 = k1 + k2
if k3 >= 360 then
k3 = k3 - 360
end if
kkk = (-11796480*pie(i)+5898240)
k5 = 3.1414926*2*(180-(k3-180))/360
R = all_height/2
txt_x = table_left+all_height/8-30+R+R*sin(k5)*0.7
txt_y = table_top+all_height/14-39+R+R*cos(k5)*0.7*0.5

titlestr = "名　　称："& stat_array(i,2) &"&#13;&#10;数　　值："& stat_array(i,1) & unit &"&#13;&#10;所占比例："& pie(i)*100 &"%&nbsp;&nbsp;"
response.Write " <div style='cursor:hand;'>"
response.Write " <v:shape id='cake"& i &"' type='#Cake_3D' title='"& titlestr &"'"
response.Write " style='position:absolute;left:"& table_left+all_height/8 &"px;top:"& table_top+all_height/14 &"px;WIDTH:"& all_height &"px;HEIGHT:"& all_height &"px;rotation:"& k3 &";z-index:"& k4 &"'"
response.Write " adj='"& kkk &",0' fillcolor='"& bg_color(i) &"' onmouseover='moveup(cake"& i &","& (table_top+all_height/14) &",txt"& i &",rec"& i &")'; onmouseout='movedown(cake"& i &","& (table_top+all_height/14) &",txt"& i &",rec"& i &");'>"
response.Write " <v:fill opacity='60293f' color2='fill lighten(120)' o:opacity2='60293f' rotate='t' angle='-135' method='linear sigma' focus='100%' type='gradient'/>"
response.Write " <o:extrusion v:ext='view' on='t'backdepth='25' rotationangle='60' viewpoint='0,0'viewpointorigin='0,0' skewamt='0' lightposition='-50000,-50000' lightposition2='50000'/>"
response.Write " </v:shape>"
response.Write " <v:shape id='txt"& i &"' type='#3dtxt' style='position:absolute;left:"& txt_x &"px;top:"& txt_y &"px;z-index:20;display:none;width:50; height:18;' fillcolor='#ffffff'"
response.Write " onmouseover='ontxt(cake"& i &","& (table_top+all_height/14) &",txt"& i &",rec"& i &")'>"
response.Write " <v:fill opacity='60293f' color2='fill lighten(120)' o:opacity2='60293f' rotate='t' angle='-135' method='linear sigma' focus='100%' type='gradient'/>"
response.Write " <v:textpath style='font-family:'宋体';v-text-kern:t' trim='t' fitpath='t' string='"& pie(i)*100 &"%'/>"
response.Write " <o:extrusion v:ext='view' backdepth='8pt' on='t' lightposition='0,0' lightposition2='0,0'/>"
response.Write " </v:shape>"
response.Write " </div>"
k1 = k1+k2*2
if k1>=360 then
k1 =k1-360
end if
if k1>180 then
k4 =k4+1
else
k4 =k4-1
end if
next
end function
%>
<html xmlns:v="urn:schemas-microsoft-com:vml" xmlns:o="urn:schemas-microsoft-com:office:office">
<head>
<title>VML三维饼状图</title>
<STYLE>
v\:* { Behavior: url(#default#VML) }
o\:* { behavior: url(#default#VML) }
</STYLE>
</head>
<body>
<SCRIPT LANGUAGE="JavaScript">
<!--
var onit=true
var num=0
var onstep = 10
function moveup(iteam,top,txt,rec){
temp=eval(iteam)
tempat=eval(top)
temptxt=eval(txt)
temprec=eval(rec)
at=parseInt(temp.style.top)
temprec.style.display = "";
if (num>onstep){
temptxt.style.display = "";
}
if(at>(tempat-onstep-1)&&onit){
num++
temp.style.top=at-1
Stop=setTimeout("moveup(temp,tempat,temptxt,temprec)",10)
}else{
return
}
}
function movedown(iteam,top,txt,rec){
temp=eval(iteam)
temptxt=eval(txt)
temprec=eval(rec)
clearTimeout(Stop)
temp.style.top=top
num=0
temptxt.style.display = "none";
temprec.style.display = "none";
}
function ontxt(iteam,top,txt,rec){
temp = eval(iteam);
temptxt = eval(txt);
temprec = eval(rec)
if (onit){
temp.style.top = top-onstep-1;
temptxt.style.display = "";
temprec.style.display = "";
}
}
function movereset(over){
if (over==1){
onit=false
}else{
onit=true
}
}
-->
</script>
<%
dim total(10,2)

total(1,1)=2000
total(2,1)=1300
total(3,1)=1700
total(4,1)=1500
total(5,1)=1222
total(6,1)=1100
total(7,1)=900
total(8,1)=800
total(9,1)=500
total(10,1)=600

total(1,2)="项目1"
total(2,2)="项目2"
total(3,2)="项目3"
total(4,2)="项目4"
total(5,2)="项目5"
total(6,2)="项目6"
total(7,2)="项目7"
total(8,2)="项目8"
total(9,2)="项目9"
total(10,2)="项目10"

call aspVml3DCake(total,50,50,700,400,"ASP+VML三维饼状图","元")
%>
</body>
</html>

以下是引用SkyGull在2007-6-28 13:46:29的发言：
哇...已经改出来了啊???

版主历害的