asp代码生成统计图--柱状图

<
%
function table1(total,table_x,table_y,thickness,table_width,all_width,all_height,table_type)
’参数含义(传递的数组，横坐标，纵坐标，柱子的厚度，柱子的宽度，图表的宽度，图表的高度,图表的类型)
’纯ASP代码生成图表函数1-柱状图
’作者：龚鸣(Passwordgm) QQ:25968152 MSN:passwordgm@sina.com Email:passwordgm@sina.com
’本人非常愿意和ASP,VML,FLASH的爱好者在HTTP://topclouds.126.com进行交流和探讨
’版本2.0 最后修改日期 2003-7-22
’非常感谢您使用这个函数，请您使用和转载时保留版权信息，这是对作者工作的最好的尊重。
dim tb_color(7,2)
tb_color(1,1)="

#d1ffd1"

tb_color(2,1)="

#ffbbbb"

tb_color(3,1)="

#ffe3bb"

tb_color(4,1)="

#cff4f3"

tb_color(5,1)="

#d9d9e5"

tb_color(6,1)="

#ffc7ab"

tb_color(7,1)="

#ecffb7"

tb_color(1,2)="

#00ff00"

tb_color(2,2)="

#ff0000"

tb_color(3,2)="

#ff9900"

tb_color(4,2)="

#33cccc"

tb_color(5,2)="

#666699"

tb_color(6,2)="

#993300"

tb_color(7,2)="

#99cc00"

line_color="

#69f"

left_width=70
length=thickness/2
total_no=ubound(total,1)

temp1=0
for i=1 to total_no
if temp1<
total(i,1) then temp1=total(i,1)
next
temp1=int(temp1)
if temp1>
9 then
temp2=mid(cstr(temp1),2,1)
if temp2>
4 then
temp3=(int(temp1/(10^(len(cstr(temp1))-1)))+1)*10^(len(cstr(temp1))-1)
else
temp3=(int(temp1/(10^(len(cstr(temp1))-1)))+0.5)*10^(len(cstr(temp1))-1)
end if
else
if temp1>
4 then temp3=10 else temp3=5
end if
temp4=temp3
response.write "
<
!--[if gte vml 1]>
<
v:rect id=’_x0000_s1027’ alt=’’ style=’position:absolute
left:"
&
table_x+left_width&
"
px
top:"
&
table_y&
"
px
width:"
&
all_width&
"
px
height:"
&
all_height&
"
px
z-index:-1’ fillcolor=’
#9cf’ stroked=’f’>
<
v:fill rotate=’t’ angle=’-45’ focus=’100%’ type=’gradient’/>
<
/v:rect>
<
![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&
"
px,"
&
table_y+all_height&
"
px’ to=’"
&
table_x+all_width+left_width&
"
px,"
&
table_y+all_height&
"
px’/>
<
![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&
"
px,"
&
table_y&
"
px’ to=’"
&
table_x+left_width&
"
px,"
&
table_y+all_height&
"
px’/>
<
![endif]-->
"

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