ASP生成柱型体，折线图，饼图源代码（3）

select case table_type 
case "A" 
table_space=(all_width-table_width*total_no)/total_no 
response.write "<!--[if gte vml 1]><v:line id=’_x0000_s1027’ alt=’’ style=’position:absolute;left:0;text-align:left;top:0;flip:y;z-index:-1’ from=’"&table_x+left_width+length&"px,"&table_y&"px’ to=’"&table_x+left_width+length&"px,"&table_y+all_height-length&"px’ strokecolor=’"&line_color&"’/><![endif]-->" 
for i=0 to all_height-1 step all_height/5 
response.write "<!--[if gte vml 1]><v:line id=’_x0000_s1027’ alt=’’ style=’position:absolute;left:0;text-align:left;top:0;flip:y;z-index:-1’ from=’"&table_x+left_width&"px,"&table_y+all_height-length-i&"px’ to=’"&table_x+left_width+length&"px,"&table_y+all_height-i&"px’ strokecolor=’"&line_color&"’/><![endif]-->" 
response.write "<!--[if gte vml 1]><v:line id=’_x0000_s1027’ alt=’’ style=’position:absolute;left:0;text-align:left;top:0;flip:y;z-index:-1’ from=’"&table_x+left_width+length&"px,"&table_y+all_height-length-i&"px’ to=’"&table_x+all_width+left_width&"px,"&table_y+all_height-length-i&"px’ strokecolor=’"&line_color&"’/><![endif]-->" 
response.write "<!--[if gte vml 1]><v:line id=’_x0000_s1027’ alt=’’ style=’position:absolute;left:0;text-align:left;top:0;flip:y;z-index:-1’ from=’"&table_x+(left_width-15)&"px,"&table_y+i&"px’ to=’"&table_x+left_width&"px,"&table_y+i&"px’/><![endif]-->" 
response.write "<!--[if gte vml 1]>" 
response.write "<v:shape id=’_x0000_s1025’ type=’#_x0000_t202’ alt=’’ style=’position:absolute;left:"&table_x&"px;top:"&table_y+i&"px;width:"&left_width&"px;height:18px;z-index:1’>" 
response.write "<v:textbox inset=’0px,0px,0px,0px’><table cellspacing=’3’ cellpadding=’0’ width=’100％’ height=’100％’><tr><td align=’right’>"&temp4&"</td></tr></table></v:textbox></v:shape><![endif]-->" 
temp4=temp4-temp3/5 
next 
for i=1 to total_no 
temp_space=table_x+left_width+table_space/2+table_space*(i-1)+table_width*(i-1) 
response.write "<v:rect id=’_x0000_s1025’ alt=’’ style=’position:absolute;left:" 
response.write temp_space 
response.write "px;top:" 
response.write table_y+all_height*(1-(total(i,1)/temp3)) 
response.write "px;width:"&table_width&"px;height:"&all_height*(total(i,1)/temp3)&"px;z-index:1’ fillcolor=’"&tb_color(i,2)&"’>" 
response.write "<v:fill color2=’"&tb_color(i,1)&"’ rotate=’t’ type=’gradient’/>" 
response.write "<o:extrusion v:ext=’view’ backdepth=’"&thickness&"pt’ color=’"&tb_color(i,2)&"’ on=’t’/>" 
response.write "</v:rect>" 
response.write "<v:shape id=’_x0000_s1025’ type=’#_x0000_t202’ alt=’’ style=’position:absolute;left:"&temp_space&"px;top:"&table_y+all_height*(1-(total(i,1)/temp3))-table_width&"px;width:"&table_space+15&"px;height:18px;z-index:1’>" 
response.write "<v:textbox inset=’0px,0px,0px,0px’><table cellspacing=’3’ cellpadding=’0’ width=’100％’ height=’100％’><tr><td align=’center’>"&total(i,1)&"</td></tr></table></v:textbox></v:shape>" 
response.write "<v:shape id=’_x0000_s1025’ type=’#_x0000_t202’ alt=’’ style=’position:absolute;left:"&temp_space-table_space/2&"px;top:"&table_y+all_height+1&"px;width:"&table_space+table_width&"px;height:18px;z-index:1’>" 
response.write "<v:textbox inset=’0px,0px,0px,0px’><table cellspacing=’3’ cellpadding=’0’ width=’100％’ height=’100％’><tr><td align=’center’>"&total(i,2)&"</td></tr></table></v:textbox></v:shape>" 
next 
Case "B" 
table_space=(all_height-table_width*total_no)/total_no 
response.write "<!--[if gte vml 1]><v:line id=’_x0000_s1027’ alt=’’ style=’position:absolute;left:0;text-align:left;top:0;flip:y;z-index:-1’ from=’"&table_x+left_width+length&"px,"&table_y+all_height-length&"px’ to=’"&table_x+left_width+all_width&"px,"&table_y+all_height-length&"px’ strokecolor=’"&line_color&"’/><![endif]-->" 
for i=0 to all_width-1 step all_width/5 
response.write "<!--[if gte vml 1]><v:line id=’_x0000_s1027’ alt=’’ style=’position:absolute;left:0;text-align:left;top:0;flip:y;z-index:-1’ from=’"&table_x+left_width+i&"px,"&table_y+all_height-length&"px’ to=’"&table_x+left_width+length+i&"px,"&table_y+all_height&"px’ strokecolor=’"&line_color&"’/><![endif]-->" 
response.write "<!--[if gte vml 1]><v:line id=’_x0000_s1027’ alt=’’ style=’position:absolute;left:0;text-align:left;top:0;flip:y;z-index:-1’ from=’"&table_x+left_width+length+i&"px,"&table_y+all_height-length&"px’ to=’"&table_x+left_width+length+i&"px,"&table_y&"px’ strokecolor=’"&line_color&"’/><![endif]-->" 
response.write "<!--[if gte vml 1]><v:line id=’_x0000_s1027’ alt=’’ style=’position:absolute;left:0;text-align:left;top:0;flip:y;z-index:-1’ from=’"&table_x+left_width+i+all_width/5&"px,"&table_y+all_height&"px’ to=’"&table_x+left_width+i+all_width/5&"px,"&table_y+all_height+15&"px’/><![endif]-->" 
response.write "<!--[if gte vml 1]>" 
response.write "<v:shape id=’_x0000_s1025’ type=’#_x0000_t202’ alt=’’ style=’position:absolute;left:"&table_x+left_width+i+all_width/5-left_width&"px;top:"&table_y+all_height&"px;width:"&left_width&"px;height:18px;z-index:1’>" 
response.write "<v:textbox inset=’0px,0px,0px,0px’><table cellspacing=’3’ cellpadding=’0’ width=’100％’ height=’100％’><tr><td align=’right’>"&temp4&"</td></tr></table></v:textbox></v:shape><![endif]-->" 
temp4=temp4-temp3/5 
next 
for i=1 to total_no 
temp_space=table_space/2+table_space*(i-1)+table_width*(i-1) 
response.write "<v:rect id=’_x0000_s1025’ alt=’’ style=’position:absolute;left:" 
response.write table_x+left_width 
response.write "px;top:" 
response.write table_y+temp_space 
response.write "px;width:"&all_width*(total(i,1)/temp3)&"px;height:"&table_width&"px;z-index:1’ fillcolor=’"&tb_color(i,2)&"’>" 
response.write "<v:fill color2=’"&tb_color(i,1)&"’ rotate=’t’ angle=’-90’ focus=’100％’ type=’gradient’/>" 
response.write "<o:extrusion v:ext=’view’ backdepth=’"&thickness&"pt’ color=’"&tb_color(i,2)&"’ on=’t’/>" 
response.write "</v:rect>" 
response.write "<v:shape id=’_x0000_s1025’ type=’#_x0000_t202’ alt=’’ style=’position:absolute;left:"&table_x+left_width+all_width*(total(i,1)/temp3)+thickness/2&"px;top:"&table_y+temp_space&"px;width:"&table_space+15&"px;height:18px;z-index:1’>" 
response.write "<v:textbox inset=’0px,0px,0px,0px’><table cellspacing=’3’ cellpadding=’0’ width=’100％’ height=’100％’><tr><td align=’center’>"&total(i,1)&"</td></tr></table></v:textbox></v:shape>" 
response.write "<v:shape id=’_x0000_s1025’ type=’#_x0000_t202’ alt=’’ style=’position:absolute;left:"&table_x&"px;top:"&table_y+temp_space&"px;width:"&left_width&"px;height:18px;z-index:1’>" 
response.write "<v:textbox inset=’0px,0px,0px,0px’><table cellspacing=’3’ cellpadding=’0’ width=’100％’ height=’100％’><tr><td align=’right’>"&total(i,2)&"</td></tr></table></v:textbox></v:shape>" 
next 
case else 
end select 
end function 
％>