在asp中利用vml绘制曲线图

最新推荐文章于 2010-03-13 22:40:00 发布

yangzixp

最新推荐文章于 2010-03-13 22:40:00 发布

阅读量1.7k

点赞数

分类专栏： js.xml 文章标签： asp table textbox behavior office function

本文链接：https://blog.csdn.net/yangzixp/article/details/51770

版权

这篇博客展示了如何在ASP应用中利用VML（Vector Markup Language）来绘制曲线图。通过定义数据矩阵，设置线条样式和颜色，代码动态生成了多条曲线，用于展示不同公司的数据对比。曲线图包括了纵坐标、横坐标以及每个数据点的标记，提供了清晰的数据视觉呈现。

摘要由CSDN通过智能技术生成

<%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(8,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">

<%
function table2(total,table_x,table_y,all_width,all_height,line_no)
line_color="#69f"
left_width=70
total_no=ubound(total,1)

temp1=0
if total_no>0 then temp6=total(1,1)
for i=1 to total_no
for j=1 to line_no
if temp1<total(i,j) then temp1=total(i,j)
if temp6>total(i,j) then temp6=total(i,j)
next
next

temp1=int(temp1)
if temp6>0 then
temp6=int(temp6)
temp2=mid(cstr(temp6),2,1)
if temp2>4 then
temp3=(int(temp6/(10^(len(cstr(temp6))-1)))-1)*10^(len(cstr(temp6))-1)
else
temp3=(int(temp6/(10^(len(cstr(temp6))-1)))-0.5)*10^(len(cstr(temp6))-1)
end if
temp6=temp3
' if temp6-10<0 then temp6=0 else temp6=temp6-10
else
temp6=int(0-temp6)
temp2=mid(cstr(temp6),2,1)
if temp2>4 then
temp3=(int(temp6/(10^(len(cstr(temp6))-1)))+1)*10^(len(cstr(temp6))-1)
else
temp3=(int(temp6/(10^(len(cstr(temp6))-1)))+0.5)*10^(len(cstr(temp6))-1)
end if
temp6=0-temp3
end if
if temp1>9 then
temp2=mid(cstr(temp1),2,1)
if temp2>4 then
temp3&#