用asp+vml实现的立体统计图（三）----- 曲线图

曲线统计图
项目1项目2项目3项目4项目5项目6项目7项目8项目9项目10元时间10008006004002001月2月3月4月5月6月7月8月9月10月11月12月<%
'┏━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━┓
'┃　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　┃
'┃ 摘　要：统计图--曲线图　　　　　　　　　　　　　　　　　　 ┃
'┃ 作　者：翁云兵　　　　　　　　　　　　　　　　　　　　　　　┃
'┃ 创建日期：2004年12月01日　　　　　　　　　　　　　　　　　　 ┃
'┃ 完成日期：2004年11月03日　　　　　　　　　　　　　　　　　　 ┃
'┃　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　┃
'┗━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━┛
'参数含义(数组，横坐标，纵坐标，图表的宽度，图表的高度,图表标题，X轴单位，Y轴单位)
function table1(stat_array,table_left,table_top,all_width,all_height,table_title,X_unit,Y_unit)
dim bg_color(10)
bg_color(1)="#ff1919"
bg_color(2)="#ffff19"
bg_color(3)="#1919ff"
bg_color(4)="#19ff19"
bg_color(5)="#fc0"
bg_color(6)="#3cc"
bg_color(7)="#ff19ff"
bg_color(8)="#993300"
bg_color(9)="#f60"
bg_color(10)="#ff8c19"

if X_unit <> "" then
X_unit = X_unit
end if
if Y_unit <> "" then
Y_unit = Y_unit
end if

num1 = ubound(stat_array,1)
line_temp=split(stat_array(0,1),",")
num2 = ubound(line_temp,1)+1
dim line_code
redim line_code(num1,num2)
for j=1 to num2
line_code(0,j) = line_temp(j-1)
next
for i=1 to num1
line_temp = split(stat_array(i,1),",")
line_code(i,0) = stat_array(i,2)
for j=1 to num2
line_code(i,j) = cdbl(line_temp(j-1))
next
next
value_Max=0
for i=1 to num1
for j=1 to num2
if value_Max next
next

value_Max = cint(value_Max)
value_Max_str =cstr(value_Max)
if value_Max>9 then
temp=mid(value_Max_str,2,1)
if temp>4 then
temp2=(int(value_Max/(10^(len(value_Max_str)-1)))+1)*10^(len(value_Max_str)-1)
else
temp2=(int(value_Max/(10^(len(value_Max_str)-1)))+0.5)*10^(len(value_Max_str)-1)
end if
else
if value_Max>4 then temp2=10 else temp2=5
end if
item_hight = temp2/5

item_width = 20000/(num2-1)

response.Write ""
response.Write " "
response.Write ""

response.Write ""

response.Write " "
response.Write " "
response.Write " "
response.Write " "
response.Write " "
response.Write " "
response.Write "

"&table;_title&"

"
response.Write " "
response.Write " "

response.Write " "
response.Write " "
response.Write " "

response.Write " "
response.Write " "
response.Write " "
response.Write " "

for i=1 to num1
if i=1 then
displaystr=""
else
displaystr="none"
end if
response.Write "

"
response.Write " "
response.Write " "
response.Write " "
response.Write " "
response.Write " "
response.Write "

"&stat;_array(i,2)&"

"
response.Write " "
response.Write "

"
next

response.Write " "
response.Write " "

response.Write " "
response.Write "

"&Y;_unit&"

"
response.Write " "
response.Write " "
response.Write "

"&X;_unit&"

"
response.Write " "

for i=0 to 4
response.Write " "
response.Write " "
response.Write " "
response.Write " "
response.Write " "
response.Write " "

response.Write " "
response.Write "

"&item;_hight*(5-i)&"

"
response.Write " "
next

response.Write " "
response.Write " "
response.Write " "

for j=0 to num2-1
response.Write " "
response.Write " "
response.Write " "
response.Write " "
response.Write "

"&line;_code(0,j+1)&"

"
response.Write " "
next
for i=1 to num1
if i=1 then
displaystr=""
else
displaystr="none"
end if
response.Write "

"
for j=0 to num2-2
this_hight1 = cint(line_code(i,j+1)/(5*item_hight)*10000)
this_hight2 = cint(line_code(i,j+2)/(5*item_hight)*10000)
response.Write " "
response.Write " "
response.Write " "
next
response.Write "

"
next

response.Write ""
end function
%>

<script LANGUAGE="Javascript">
<--
function moveon(iteam,lineit){
temp=eval(iteam)
templine=eval(lineit)
if(showit[1]){
rec1.style.display = "";
line_1.style.display = "";
}else{
rec1.style.display = "none";
line_1.style.display = "none";
}
temp.style.display = "";
templine.style.display = "";
}
function moveout(iteam,lineit,i){
temp=eval(iteam)
templine=eval(lineit)
if (showit[i]){
temp.style.display = "";
templine.style.display = "";
}else{
temp.style.display = "none";
templine.style.display = "none";
}
}
function clickit(i){
if (showit[i]){
showit[i]=false
}else{
showit[i]=true
}
}
-->

<%
dim total(10,2)

total(0,1)="1月,2月,3月,4月,5月,6月,7月,8月,9月,10月,11月,12月"
total(1,1)="200,158,982,0,369,100,595,895,652,25,245,951"
total(2,1)="984,58,495,36,158,486,952,258,653,415,485,14"
total(3,1)="850,988,958,145,369,745,265,158,856,145,425,352"
total(4,1)="600,525,235,485,258,265,158,365,35,148,658,475"
total(5,1)="62,525,635,215,0,465,258,305,66,547,54,148"
total(6,1)="560,625,645,329,158,665,358,95,120,358,42,253"
total(7,1)="950,725,635,435,258,865,458,955,152,845,425,421"
total(8,1)="600,825,155,455,458,265,558,365,352,245,853,122"
total(9,1)="360,925,215,545,658,465,658,845,400,421,541,125"
total(10,1)="50,225,355,655,858,665,758,35,584,214,54,651"

total(1,2)="项目1"
total(2,2)="项目2"
total(3,2)="项目3"
total(4,2)="项目4"
total(5,2)="项目5"
total(6,2)="项目6"
total(7,2)="项目7"
total(8,2)="项目8"
total(9,2)="项目9"
total(10,2)="项目10"

call table1(total,240,200,700,350,"曲线统计图","时间","元")
%>

将本文收藏到QQ书签与更多好友分享