To facilitate the generation of 3D pie chart functions, I have collected the code of the function to generate 3D pie charts under Asp, which is convenient for everyone to use in special circumstances.
<%
'Parameter meaning (array, horizontal coordinate, vertical coordinate, chart width, chart height, chart title, unit)
functiontable2(stat_array,table_left,table_top,all_width,all_height,table_title,unit)
dimbg_color(10),pie(10)
bg_color(1)="#ff1919"
bg_color(2)="#ffff19"
bg_color(3)="#1919ff"
bg_color(4)="#19ff19"
bg_color(5)="#fc0"
bg_color(6)="#3cc"
bg_color(7)="#ff19ff"
bg_color(8)="#993300"
bg_color(9)="#f60"
bg_color(10)="#ff8c19"
num=ubund(stat_array,1)
allvalues=0
fori=1tonum
allvalues=allvalues+stat_array(i,1)
next
k=0
fori=1tonum-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:shapetypeid='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:shapetypeid='3dtxt'coordsize='21600,21600'o:spt='136'adj='10800'path='m@7,l@8,m@5,21600l@6,21600e'>"
response.Write"<v:pathtextpathok='t'o:connecttype='custom'o:connectlocs='@9,0;@10,10800;@11,21600;@12,10800'o:connectangles='270,180,90,0'/>"
response.Write"<v:textpathon='t'fitshape='t'/>"
response.Write"<o:lockv:ext='edit'text='t'shapetype='t'/>"
response.Write"</v:shapetype>"
response.Write"<v:rectid='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:shadowon='t'type='single'color='silver'offset='4pt,4pt'/>"
response.Write"</v:rect>"
response.Write"<v:groupID='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:Rectstyle='position:relative;left:500;top:200;width:20000;height:800'filled='false'stroked='false'>"
response.Write"<v:TextBoxinset='0pt,0pt,0pt,0pt'>"
response.Write"<tablewidth='100%'border='0'align='center'cellspacing='0'>"
response.Write"<tr>"
response.Write"<tdalign='center'valign='middle'><divstyle='font-size:15pt;font-family:bold;'><B>"&table_title&"</B></div></td>"
response.Write"</tr>"
response.Write"</table>"
response.Write"</v:TextBox>"
response.Write"</v:Rect>"
response.Write"<v:rectid='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:fillrotate='t'angle='-45'focus='100%'type='gradient'/>"
response.Write"</v:rect>"
response.Write"<v:rectid='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:fillrotate='t'angle='-175'focus='100%'type='gradient'/>"
response.Write"<v:shadowon='t'type='single'color='silver'offset='3pt,3pt'/>"
response.Write"</v:rect>"
response.Write"<v:Rectstyle='position:relative;left:15500;top:1500;width:4000;height:700'fillcolor='#000000'stroked='f'strokecolor='#000000'>"
response.Write"<v:TextBoxset='8pt,4pt,3pt,3pt'style='font-size:11pt;'><divalign='left'><fontcolor='#ffffff'><B>Total:"&allvalues&unit&"</B></font></div></v:TextBox>"
response.Write"</v:Rect>"
fori=1tonum
response.Write"<v:Rectid='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:fillopacity='.6'color2='filldarken(118)'o:opacity2='.6'rotate='t'method='linearsigma'focus='100%'type='gradient'/>"
response.Write"</v:Rect>"
response.Write"<v:Rectstyle='position:relative;left:15500;top:"&i*9000/11+1500&";width:600;height:700'fillcolor='"&bg_color(i)&"'stroked='f'/>""/>"
response.Write"<v:Rectstyle='position:relative;left:16300;top:"&i*9000/11+1500&";width:3400;height:700'filled='f'stroked='f'>"
response.Write"<v:TextBoxset='0pt,5pt,0pt,0pt'style='font-size:9pt;'><divalign='left'>"&stat_array(i,2)&":"&stat_array(i,1)&unit&"</div></v:TextBox>"
response.Write"</v:Rect>"
next
response.Write"</v:group>"
k1=180
k4=10
fori=1tonum
response.write"<ahref=aaa.asp>"
k2=360*pie(i)/2
k3=k1+k2
ifk3>=360then
k3=k3-360
endif
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="name: "&stat_array(i,2)&"Value: "&stat_array(i,1)&unit&"Percentage: "&pie(i)*100&"%"
response.Write"<divstyle='cursor:hand;'>"
response.Write"<v:shapeid='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:fillopacity='60293f'color2='filllighten(120)'o:opacity2='60293f'rotate='t'angle='-135'method='linearsigma'focus='100%'type='gradient'/>"
response.Write"<o:extrusionv: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:shapeid='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:fillopacity='60293f'color2='filllighten(120)'o:opacity2='60293f'rotate='t'angle='-135'method='linearsigma'focus='100%'type='gradient'/>"
response.Write"<v:textpathstyle='font-family:'安';v-text-kern:t'trim='t'fitpath='t'string='"&pie(i)*100&"%'/>"
response.Write"<o:extrusionv:ext='view'backdepth='8pt'on='t'lightposition='0,0'lightposition2='0,0'/>"
response.Write"</v:shape>"
response.Write"</div>"
k1=k1+k2*2
ifk1>=360then
k1=k1-360
endif
ifk1>180then
k4=k4+1
else
k4=k4-1
endif
response.write"</a>"
next
endfunction
%>
<htmlxmlns:v="urn:schemas-microsoft-com:vml"xmlns:o="urn:schemas-microsoft-com:office:office">
<head>
<title></title>
<STYLE>
v/:*{Behavior:url(#default#VML)}
o/:*{behavior:url(#default#VML)}
</STYLE>
</head>
<body>
<SCRIPTLANGUAGE="JavaScript">
<!--
onit=true
num=0
functionmoveup(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>27){
temptxt.style.display="";
}
