<%
'参数含义(数组，横坐标，纵坐标，图表的宽度，图表的高度,图表标题，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<line_code(i,j) then value_Max=line_code(i,j) 
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 "<v:rect id='background' style='position:absolute;left:"&table_left&"px;top:"&table_top&"px;WIDTH:"&all_width&"px;HEIGHT:"&all_height&"px;' fillcolor='#EFEFEF' strokecolor='gray'>"
response.Write " <v:shadow on='t' type='single' color='silver' offset='4pt,4pt'/>"
response.Write "</v:rect>"

response.Write "<v:group ID='table' style='position:absolute;left:"&table_left&"px;top:"&table_top&"px;WIDTH:"&all_width&"px;HEIGHT:"&all_height&"px;' coordsize = '27500,12800'>"

response.Write " <v:Rect style='position:relative;left:1500;top:200;width:23000;height:800'filled='false' stroked='f'>"
response.Write " <v:TextBox inset='0pt,0pt,0pt,0pt'>"
response.Write " <table width='100%' border='0' align='center' cellspacing='0'>"
response.Write " <tr>"
response.Write " <td align='center' valign='middle'></td>"
'response.Write " <td align='center' valign='middle'><div style='font-size:12pt; font-family:黑体;'>"&table_title&"</div></td>"
response.Write " </tr>"
response.Write " </table>"
response.Write " </v:TextBox>"
response.Write " </v:Rect> "

response.Write " <v:rect id='back' style='position:relative;left:1700;top:1200;width:20500; height:10500;' fillcolor='#9cf' strokecolor='#DFDFDF'>"
response.Write " <v:fill rotate='t' angle='-45' focus='100%' type='gradient'/>"
response.Write " </v:rect>"

response.Write " <v:rect id='back2' style='position:relative;left:23000;top:1200;width:4000; height:"&(10500)&";' fillcolor='#9cf' stroked='t' strokecolor='#0099ff'>"
response.Write " <v:fill rotate='t' angle='-175' focus='100%' type='gradient'/>"
response.Write " <v:shadow on='t' type='single' color='silver' offset='3pt,3pt'/>"
response.Write " </v:rect>"

for i=1 to num1
if i=1 then
displaystr=""
else
displaystr="none"
end if
response.Write " <div style='cursor:hand;' onmouseover='moveon(rec"&i&",line_"&i&")' onmouseout='moveout(rec"&i&",line_"&i&","&i&")' onclick='clickit("&i&")'>"
response.Write " <v:Rect id='rec"&i&"' style='position:relative;left:23100;top:"&(i-1)*10200/10+1450&";width:3800;height:800;display:"&displaystr&";' fillcolor='#efefef' strokecolor='"&bg_color(i)&"'>"
response.Write " <v:fill opacity='.6' color2='fill darken(118)' o:opacity2='.6' rotate='t' method='linear sigma' focus='100%' type='gradient'/>"
response.Write " </v:Rect>"
response.Write " <v:Rect style='position:relative;left:23200;top:"&(i-1)*10200/10+1500&";width:600;height:700' fillcolor='"&bg_color(i)&"' stroked='f'/>"
response.Write " <v:Rect style='position:relative;left:24000;top:"&(i-1)*10200/10+1500&";width:3400;height:700' filled='f' stroked='f'>"
response.Write " <v:TextBox inset='0pt,4pt,0pt,0pt' style='font-size:9pt;'><div align='left'>"&stat_array(i,2)&"</div></v:TextBox>"
response.Write " </v:Rect> "
response.Write " </div> "
next

response.Write " <v:line ID='X' from='1700,11700' to='22700,11700' style='z-index:1' strokecolor='#000000' strokeWeight=1pt><v:stroke EndArrow='Classic'/></v:line>"
response.Write " <v:line ID='Y' from='1700,900' to='1700,11700' style='z-index:1' strokecolor='#000000' strokeWeight=1pt><v:stroke StartArrow='Classic'/></v:line>"

response.Write " <v:Rect style='position:relative;left:100;top:700;width:1500;height:500' filled='false' stroked='false'>"
response.Write " <v:TextBox inset='0pt,0pt,0pt,0pt' style='font-size:10pt;'><div align='right'>"&Y_unit&"&nbsp;</div></v:TextBox>"
response.Write " </v:Rect> " 
response.Write " <v:Rect style='position:relative;left:22200;top:11900;width:2000;height:500' filled='false' stroked='false'>"
response.Write " <v:TextBox inset='0pt,0pt,0pt,0pt' style='font-size:9pt;'><div align='right'>"&X_unit&"</div></v:TextBox>"
response.Write " </v:Rect> " 

for i=0 to 4
response.Write " <v:line from='1300,"&i*2000+1700&"' to='1700,"&i*2000+1700&"' style='z-index:1' strokecolor='#000000'></v:line>"
response.Write " <v:line from='1700,"&i*2000+1700&"' to='2200,"&i*2000+1200&"' style='z-index:1' strokecolor='#0099FF'></v:line>"
response.Write " <v:line from='2200,"&i*2000+1200&"' to='22200,"&i*2000+1200&"' style='z-index:1' strokecolor='#0099FF'></v:line>"
response.Write " <v:line from='2200,"&i*2000+2200&"' to='22200,"&i*2000+2200&"' style='z-index:1' strokecolor='#0099FF'>"
response.Write " <v:stroke dashstyle='Dot'/>"
response.Write " </v:line>"

response.Write " <v:Rect style='position:relative;left:100;top:"&i*2000+1250&";width:1500;height:500' filled='false' stroked='false'>"
response.Write " <v:TextBox inset='0pt,0pt,0pt,0pt' style='font-size:9pt;'><div align='right'>"&item_hight*(5-i)&"</div></v:TextBox>"
response.Write " </v:Rect> " 
next

response.Write " <v:line from='2200,11200' to='22200,11200' style='z-index:1' strokecolor='#0099FF'></v:line>"
response.Write " <v:line from='2200,1200' to='2200,11200' style='z-index:1' strokecolor='#0099FF'></v:line>"
response.Write " <v:line from='1700,11700' to='2200,11200' style='z-index:1' strokecolor='#0099FF'></v:line>"

for j=0 to num2-1
response.Write " <v:line from='"&j*item_width+1700&",11700' to='"&j*item_width+1700&",12000' style='z-index:1' strokecolor='#000000'></v:line>"
response.Write " <v:line from='"&j*item_width+1700&",11700' to='"&j*item_width+2200&",11200' style='z-index:1' strokecolor='#0099FF'><v:stroke dashstyle='ShortDot'/></v:line>"
response.Write " <v:line from='"&j*item_width+2200&",1200' to='"&j*item_width+2200&",11200' style='z-index:1' strokecolor='#0099FF'><v:stroke dashstyle='ShortDot'/></v:line>"
response.Write " <v:Rect style='position:relative;left:"&j*item_width+1700-item_width/2&";top:12100;width:"&item_width&";height:500' filled='false' stroked='false'>"
response.Write " <v:TextBox inset='0pt,0pt,0pt,0pt' style='font-size:9pt;'><div align='center'>"&line_code(0,j+1)&"</div></v:TextBox>"
response.Write " </v:Rect> " 
next
for i=1 to num1
if i=1 then
displaystr=""
else
displaystr="none"
end if
response.Write " <div id='line_"&i&"' style='display:"&displaystr&";'>"
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 " <v:line from='"&j*item_width+1850&","&(10000-this_hight1+1550)&"' to='"&(j+1)*item_width+1850&","&(10000-this_hight2+1550)&"'style='z-index:"&i*10&";' strokeweight='0.1pt' strokecolor='"&bg_color(i)&"'>"
response.Write " <o:extrusion v:ext='view' backdepth='12pt' on='t' lightposition='-50000,-50000' lightposition2='50000'/>"
response.Write " </v:line>"
next
response.Write " </div>"
next

response.Write "</v:group>" 
end function
%>
<html xmlns:v="urn:schemas-microsoft-com:vml" xmlns:o="urn:schemas-microsoft-com:office:office">
<head>
<title></title>
<STYLE>
v\:* { Behavior: url(#default#VML) }
o\:* { behavior: url(#default#VML) }
body {
	margin-left: 0px;
	margin-top: 0px;
	margin-right: 0px;
	margin-bottom: 0px;
}
</STYLE>
<SCRIPT LANGUAGE="JavaScript">
<!--
var showit = new Array(10);

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
} 
}
-->
</script>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312"></head>
<body>
<%
V_str=request("V_str")
S=request("S")
'response.write "V_str=" & V_str & "<br>"
'response.write "S=" & S & "<br>"
'response.end
V_str=mid(V_str,2,len(V_str)-1)
if S=5 or S=6 or S=10 then'去掉最后一个字符
	V_str=mid(V_str,1,len(V_str)-1)
end if
'response.write "V_str=" & V_str & "<br>"

V_str_n=split(V_str,";,")
V_str_n_s=int(ubound(V_str_n))

'response.write "V_str_n_s+1=" & V_str_n_s+1 & "<br>"
redim total(int(V_str_n_s+1),2)
response.write "<br>redim total(" & V_str_n_s+1 & ",2)<br><br>"

for i=0 to V_str_n_s step 1
	total(i+1,1)=""
	V_j_n=split(V_str_n(i),",")
	V_j_n_s=int(ubound(V_j_n))
	'response.write "V_j_n_s=" & V_j_n_s & "<br>"
	for j=0 to V_j_n_s step 1
		'response.write "j=" & j & "<br>"
		'response.write "V_j_n(" & j & ")=" & V_j_n(j) & "<br>"
		total(i+1,1)=total(i+1,1) & "," & V_j_n(j)
	next
	total(i+1,2)="项目" & i+1
	total(i+1,1)=mid(total(i+1,1),2,len(total(i+1,1))-1)
	response.write "total(" & i+1 & ",1)=" & total(i+1,1) & "<br>"
	response.write "total(" & i+1 & ",2)=" & total(i+1,2) & "<br>"
next

'for i=0 to V_str_n_s step 1
	'response.write "<br>total(" & i+1 & ",1)=" & total(i+1,1) & "<br>"
	'response.write "total(" & i+1 & ",2)=" & total(i+1,2) & "<br>"
'next

h=65
for j=0 to V_j_n_s step 1
	if S=10 then
		total(0,1)=total(0,1) & "," & j+1
	else
		total(0,1)=total(0,1) & "," & chr(h)
		h=h+1
	end if
next
total(0,1)=mid(total(0,1),2,len(total(0,1))-1)
response.write "total(0,1)=" & total(0,1) & "<br><br>"

'redim total(3,2)

'total(1,1)="75,25,0,0"
'total(1,2)="项目1"
'total(2,1)="0,25,75,0"
'total(2,2)="项目2"
'total(3,1)="0,0,50,50"
'total(3,2)="项目3"
'total(0,1)="A,B,C,D"

'dim total(10,2)
'total(0,1)="1月,2月,3月,4月,5月,6月,7月,8月,9月,10月,11月,12月"
'total(1,1)="20,18,92,0,36,10,55,85,65,25,24,91"
'total(2,1)="94,58,45,36,18,48,92,28,65,45,48,14"
'total(3,1)="80,98,98,15,39,75,26,18,86,45,45,35"
'total(4,1)="60,55,25,48,28,26,15,35,35,14,65,47"
'total(5,1)="62,52,65,25,0,45,28,35,66,57,54,148"
'total(6,1)="56,62,64,32,18,65,38,95,20,35,42,53"
'total(7,1)="29,75,65,45,28,86,45,95,15,85,45,41"
'total(8,1)="60,8,15,45,48,25,58,35,32,24,85,12"
'total(9,1)="36,92,25,54,65,45,65,85,40,41,54,15"
'total(10,1)="50,25,35,65,88,65,78,35,54,21,54,51"

'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"

'参数含义(数组，横坐标，纵坐标，图表的宽度，图表的高度,图表标题，X轴单位，Y轴单位)
call table1(total,0,0,476,272,"曲 线 统 计 图","选项","%")
%>

</body>
</html>
