为方便生成三维饼图函数，我收集了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 ""&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 ""
response.Write "总数:"&allvalues&unit&"
" 复制代码 代码如下:
<%
'参数含义(数组，横坐标，纵坐标，图表的宽度，图表的高度,图表标题,单位)
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 " "
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 "
