asp生成三维饼图的函数

seover=''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> "
next
response.Write "</v:group>"
k1=180
k4=10
for i=1 to num
response.write "<a href=aaa.asp>"
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)&" 数值："&stat_array(i,1)&unit&" 所占比例："&pie(i)*100&"%"
response.Write " <div style=''cursor:hand;''>"
response.Write " <v:shape id=''cake"&i&"'' type=''#Cake_3D'' title=''"&titlestr&"'