asp生成三维饼图的函数

<%
‘参数含义(数组，横坐标，纵坐标，图表的宽度，图表的高度,图表标题,单位)
function table2(stat_array,table_left,table_top,all_width,all_height,table_title,unit)
       dim bg_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 =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 “”
       response.Write ” ”
       response.Write ” ”
       response.Write ” ”
       response.Write ” ”
       response.Write “”
       response.Write “”
       response.Write ” ”
       response.Write “”
       response.Write “” 
       response.Write ” ”
       response.Write ” ”
       response.Write ” 

”
       response.Write ” 

”
       response.Write ” 

”
       response.Write ” 

”
       response.Write ” 

“&table_title&”

”
       response.Write ” ”
       response.Write ”  ”
       response.Write ” ”
       response.Write ” ”
       response.Write ” ”
       response.Write ” ”
       response.Write ” ”
       response.Write ” ”
       response.Write ” ”
       response.Write ” ”
       response.Write ” 

”
       response.Write ”  ” 
       for i=1 to num
              response.Write ” ”
              response.Write ” ”
              response.Write ” ”
              response.Write ” ”
              response.Write ” ”
              response.Write ” 

”
              response.Write ”  ” 
       next
       response.Write “”
       k1=180
       k4=10
       for i=1 to num
response.write “”
              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 ” 

”
              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
response.write “”
       next
end function
%>

v\:* { Behavior: url(#default#VML) }
o\:* { behavior: url(#default#VML) }

<%
dim total(10,2)
total(1,1)=2000
total(2,1)=1800
total(3,1)=1700
total(4,1)=1500
total(5,1)=1222
total(6,1)=1100
total(7,1)=1000
total(8,1)=800
total(9,1)=700
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 table2(total,120,20,900,500,”三维饼状图”,”元”)
‘参数含义(数组，横坐标，纵坐标，图表的宽度，图表的高度,图表标题,单位)
%>