日期:2014-05-17  浏览次数:21021 次

这个折线图大家都使用过把,但如何解决在拐点显示值的问题?
<%dim   total(7,3)
total(1,0)= "中国经营报 "
total(2,0)= "招聘网 "
total(3,0)= "51Job "
total(4,0)= "新民晚报 "
total(5,0)= "新闻晚报 "
total(6,0)= "南方周末 "
total(7,0)= "羊城晚报 "

total(0,1)= "#FF0000,1.5,1,2,公司1 " '参数1线条的颜色,参数2线条的宽度,参数3线条的类型,参数4转折点的类型,参数5线条名称
total(1,1)=200
total(2,1)=1200
total(3,1)=900
total(4,1)=600
total(5,1)=1222
total(6,1)=413
total(7,1)=800

total(0,2)= "#0000FF,1,2,3,公司2 "
total(1,2)=400
total(2,2)=500
total(3,2)=1040
total(4,2)=1600
total(5,2)=522
total(6,2)=813
total(7,2)=980

total(0,3)= "#004D00,1,1,3,公司3 "
total(1,3)=900
total(2,3)=890
total(3,3)=1240
total(4,3)=1300
total(5,3)=722
total(6,3)=833
total(7,3)=1280

%> <html   xmlns: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>
<meta   http-equiv= "Content-Type "   content= "text/html;   charset=gb2312 ">
<title> </title>
<style>
TD   { FONT-SIZE:   9pt}
</style> </head>
<body   topmargin=5   leftmargin=0   scroll=AUTO>
<%call   table2(total,100,90,600,250,3)%>
</body>
</html>

<%
function   table2(total,table_x,table_y,all_width,all_height,line_no)
'参数含义(传递的数组,横坐标,纵坐标,图表的宽度,图表的高度,折线条数)
'纯ASP代码生成图表函数2——折线图
'作者:龚鸣(Passwordgm)   QQ:25968152   MSN:passwordgm@sina.com   Email:passwordgm@sina.com
'本人非常愿意和ASP,VML,FLASH的爱好者在HTTP://topclouds.126.com进行交流和探讨
'版本1.0   最后修改日期   2003-8-11
'非常感谢您使用这个函数,请您使用和转载时保留版权信息,这是对作者工作的最好的尊重。

line_color= "#69f "
left_width=70
total_no=ubound(total,1)

temp1=0
for   i=1   to   total_no
for   j=1   to   line_no
if   temp1 <total(i,j)   then   temp1=total(i,j)
next
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   " <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:r