ASP生成柱型体，折线图，饼图源代码(11)

        for i=1 to total_no
            response.write "<v:shape id='_x0000_s1025' type='#_x0000_t202' alt='' style='position:absolute;left:"&table_x+all_width+25&"px;top:"&table_y+30+(i-1)*tb_height&"px;width:60px;height:"&tb_height&"px;z-index:1'>"
            response.write "<v:textbox inset='0px,0px,0px,0px'><table cellspacing='3' cellpadding='0' width='100%' height='100%'><tr><td align='left'>"&total(i,0)&"</td></tr></table></v:textbox></v:shape>"
            response.write "<v:rect id='_x0000_s1040' alt='' style='position:absolute;left:"&table_x+all_width+80&"px;top:"&table_y+30+(i-1)*tb_height+3&"px;width:30px;height:20px;z-index:1' fillcolor='"&tb_color(i,1)&"'><v:fill color2='"&tb_color(i,2)&"' rotate='t' focus='100%' type='gradient'/></v:rect>"
            '显示比例数
            ' response.write "<v:shape id='_x0000_s1025' type='#_x0000_t202' alt='' style='position:absolute;left:"&table_x+all_width+110&"px;top:"&table_y+30+(i-1)*tb_height&"px;width:60px;height:"&tb_height&"px;z-index:1'>"
            ' response.write "<v:textbox inset='0px,0px,0px,0px'><table cellspacing='3' cellpadding='0' width='100%' height='100%'><tr><td align='left'>"&formatnumber(total(i,1)*100/totalpie,2,-1)&"%</td></tr></table></v:textbox></v:shape>"
        next
    end if

    if table_type="B" then
        pie=3.14159265358979
        TempPie=0
        for i=1 to total_no
            TempAngle=pie*2*(total(i,1)/(TotalPie*2)+TempPie)
            x1=table_x+all_width/2+cos(TempAngle)*all_width*3/8
            y1=table_y+all_height/2-sin(TempAngle)*all_height*3/8
            x2=table_x+all_width/2+cos(TempAngle)*all_width*3/4
            y2=table_y+all_height/2-sin(TempAngle)*all_height*3/4
            if x2>table_x+all_width/2 then