如何使用ASP实现完美的WEB柱状图？
用纯ASP实现完美的WEB柱状图<%
dimtotal(7,2)
total(1,1)=200
total(2,1)=800
total(3,1)=1000
total(4,1)=600
total(5,1)=1222
total(6,1)=3213
total(7,1)=8
total(1,2)="中国经营报"
total(2,2)="招聘网"
total(3,2)="51Job"
total(4,2)="新民晚报"
total(5,2)="新闻晚报"
total(6,2)="南方周末"
total(7,2)="羊城晚报"
total_no=7
%>
<htmlxmlns:v="urn:schemas-microsoft-com:vml"xmlns:o="urn:schemas-microsoft-com:office:office">
<!--[if!mso]>
<style>
v/:*{behavior:url(#default#VML)}
o/:*{behavior:url(#default#VML)}
.shape{behavior:url(#default#VML)}
</style>
<![endif]-->
<head>
<metahttp-equiv="Content-Type"content="text/html;charset=gb2312">
<title></title>
<linkrel="stylesheet"href="List.css"></head>
<bodytopmargin=5leftmargin=0scroll=no>
<%calltable1(total,20,15,470,200)%>
</body>
</html>
以上是调用函数的例子，下面是所调用的函数
<%
functiontable1(total,thickness,table_space,all_width,all_height)
'参数含义(传递的数组，柱子的厚度，柱子的间隔，图表的宽度，图表的高度)
'纯ASP代码生成图表函数1——柱状图
'作者：龚鸣(Passwordgm)QQ:25968152MSN:passwordgm@sina.comEmail:passwordgm@sina.com
'本人非常愿意和ASP,VML,FLASH的爱好者在
HTTP://topclouds.126.com进行交流和探讨
'版本1.0最后修改日期2003-7-10
'非常感谢您使用这个函数，请您使用和转载时保留版权信息，这是对作者工作的最好的尊重。
dimtb_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"
response.write"<tableborder=0cellpadding=0cellspacing=0style=border-collapse:collapsebordercolor=#111111width="&all_width&"height="&all_height&">"
response.write"<tr><tdwidth=100%height=*valign=middle><tableborder=0cellpadding=0cellspacing=0style=border-collapse:collapsebordercolor='#111111'width='100%'height='100%'>"
response.write"<tralign='center'><tdwidth='35'height='100%'valign='bottom'>"
response.write"<tableborder='0'cellpadding='0'cellspacing='0'style='border-collapse:collapse'bordercolor='#111111'width='100%'height='100%'>"
temp1=0
fori=1tototal_no
iftemp1<total(i,1)thentemp1=total(i,1)
next
temp1=int(temp1)
iftemp1>9then
temp2=mid(cstr(temp1),2,1)
iftemp2>4then
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)
endif
else
iftemp1>4thentemp3=10elsetemp3=5
endif
iftotal_no>0then
fori=temp3to1step-temp3/5
response.write"<trstyle='font-size:1px;height:1px'><td></td><tdbgcolor='#111111'width='20%'></td></tr>"
response.write"<tralign=rightvalign='top'><tdcolspan='2'>"&i&"</td></tr>"
next
response.write"</table>"
response.write"</td><tdstyle='font-size:1px;height:1px'bgcolor='#111111'>1</td><tdwidth='"&(all_width-30)&"'height='"&(all_height-30)&"'valign='bottom'align='left'>"
response.write"<!--[ifgtevml1]>"
z=9
width=30
total_width=280
width=(total_width-total_no*z*2)/(total_no)
m=0
ifwidth>30thenwidth=30
m=m+1
fori=1tototal_no
response.write"<v:rectid='_x0000_s1025'alt=''style='position:relative;left:"
response.writetable_space/2+table_space*(i-1)
response.write"pt;top:2px;width:"&width&"pt;height:"&(all_height/1.41)*total(i,1)/temp3&"pt;z-index:1'fillcolor='"&tb_color(i,2)&"'>"
response.write"<v:fillcolor2='"&tb_color(i,1)&"'rotate='t'type='gradient'/>"
response.write"<o:extrusionv:ext='view'backdepth='"&thickness&"pt'color='"&tb_color(i,2)&"'on='t'/>"
response.write"<v:textboxinset='0,0,0,0'>"
response.write"<tablecellspacing=0cellpadding=0width='100%'height='100%'>"
response.write"<tr><tdalign='center'"
if(all_height/1.41)*total(i,1)/temp3<8thenresponse.write"style='font-size:1px;'"
response.write">"&total(i,1)&"</td></tr>"
response.write"</table></v:textbox></v:rect>"
next
response.write"<![endif]--></td></tr>"
response.write"<tralign='center'><td></td><tdstyle='font-size:1px;height:1px'bgcolor='#111111'></td><tdstyle='font-size:1px;height:1px'bgcolor='#111111'></td></td>"
response.write"<tralign='center'><td></td><td></td><tdwidth=''height='*'valign='middle'>"
response.write"<tableborder='0'cellpadding='0'cellspacing='0'style='border-collapse:collapse'bordercolor='#111111'width='100%'height='30'>"
response.write"<tralign=centervalign='center'>"
fori=1tototal_no
response.write"<tdwidth='"&(100/total_no)&"%'>"&total(i,2)&"</td>"
next
else
response.write""
endif
response.write"</tr></table></td></tr></table></td></tr></table>"
endfunction
%>
本文地址：http://www.45fan.com/dnjc/67306.html