如何在网页中实现MSCHART，数据只要是数组就可以了

如上

---------------------------------------------------------------

谈谈MsChart在如何在ASP中使用

MsChart是微软制作的功能强大的图表工具，用它可以
很方便的建立各种图表。制作各种3维2维的直方图，折
线图。在ChinaAsp中已经有好几次有人询问MsChart怎
么用，在此处我给出一个例子。希望大家了解。

发送数据程序

 1<html><head>
 2<meta content="Microsoft Visual Studio 6.0" name="GENERATOR"/>
 3</head><body>
 4<form action="mschart.asp" method="post" name="form1">
 5<input id="submit1" name="submit1" type="submit" value="发送"/>
 6<!--   
 7chtitle 标题   
 8rcount 列数   
 9ccount 行数   
10rc_type 排列方式（1 以行方式，2以列方式）   
11rc_data 数据   
12rname 列名数组   
13cname 行名数组-->
14<input name="chtitle" type="hidden" value="CoolFatMan的成长里程"/>
15<input name="rcount" type="hidden" value="3"/>
16<input name="ccount" type="hidden" value="2"/>
17<input name="rc_type" type="hidden" value="1"/>
18<input name="rname" type="hidden" value="1993"/>
19<input name="rname" type="hidden" value="1996"/>
20<input name="rname" type="hidden" value="1999"/>
21<input name="cname" type="hidden" value="身高"/>
22<input name="cname" type="hidden" value="体重"/>
23<input name="rc_data" type="hidden" value="179"/>
24<input name="rc_data" type="hidden" value="160"/>
25<input name="rc_data" type="hidden" value="180"/>
26<input name="rc_data" type="hidden" value="170"/>
27<input name="rc_data" type="hidden" value="182"/>
28<input name="rc_data" type="hidden" value="182"/>
29</form></body></html>

显示数据程序 mschart.asp

1@ Language=VBScript

 1<html>
 2<head>
 3<meta content="Microsoft Visual Studio 6.0" name="GENERATOR"/>
 4<script id="clientEventHandlersJS" language="javascript">   
 5<!--   
 6function window_onload() {   
 7t=0;   
 8mschart1.TitleText = document.form1.chtitle.value;   
 9mschart1.ShowLegend =true;   
10mschart1.ColumnCount =document.form1.ccount.value;   
11mschart1.RowCount =document.form1.rcount.value;   
12for (i=0;i<document.form1.rcount.value;i++)   
13{for (j=0;j<document.form1.ccount.value;j++)   
14{ mschart1.Row=i+1;   
15mschart1.Column=j+1;   
16if (document.form1.ccount.value>1)   
17mschart1.ColumnLabel =document.form1.cname(j).value;   
18else   
19mschart1.ColumnLabel =document.form1.cname.value;   
20if ((document.form1.rcount.value*document.form1.ccount.value)>1)   
21mschart1.Data=document.form1.rc_data(t).value;   
22else   
23mschart1.Data=document.form1.rc_data.value;   
24t++;   
25}   
26if (document.form1.rcount.value>1)   
27mschart1.RowLabel =document.form1.rname(i).value ;   
28else   
29mschart1.RowLabel =document.form1.rname.value ;   
30}   
31}   
32  
33function select1_onchange() {   
34mschart1.chartType =select1.value   
35mschart1.Plot   
36}   
37//-->   
38</script>
39<title>数据显示图</title>
40</head>
41<body language="javascript" onload="return window_onload()">
42<object activex控件="" 此处插入mschart="">
43<br/>   
44显示方式   
45<select id="select1" language="javascript" name="select1" onchange="return select1_onchange()">
46<option value="1">二维直方图</option>
47<option value="0">三维直方图</option>
48<option value="3">二维折线图</option>
49<option value="2">三维折线图</option>
50<option value="5">二维面积图</option>
51<option value="4">三维面积图</option>
52<option value="14">饼图</option></select>
53<!--   
54chtitle 标题   
55rcount 列数   
56ccount 行数   
57rc_type 排列方式（1 以行方式，2以列方式）   
58rc_data 数据   
59rname 列名数组   
60cname 行名数组-->
61<form id="form1" name="form1">

for i=1 to Request.Form("rcount")

1<input =request.form("rname")(i)="" ```="" id="rname" name="rname" type="hidden" value="```"/>

for i=1 to Request.Form("ccount")

1<input =request.form("cname")(i)="" ```="" id="cname" name="cname" type="hidden" value="```"/>

1<input =request.form("rcount")="" ```="" id="rcount" name="rcount" type="hidden" value="```"/>
2<input =request.form("chtitle")="" ```="" id="chtitle" name="chtitle" type="hidden" value="```"/>
3<input =request.form("ccount")="" ```="" id="ccount" name="ccount" type="hidden" value="```"/>

if Request.Form("rc_type")=1 then

for i=1 to Request.Form("rcount")*Request.Form("ccount")

1<input =request.form("rc_data")(i)="" ```="" id="rc_data" name="rc_data" type="hidden" value="```"/>

else

for j=1 to Request.Form("rcount")

for i=1 to Request.Form("ccount")

1<input =request.form("rc_data")((i-1)*request.form("rcount")+j)="" ```="" id="rc_data" name="rc_data" type="hidden" value="```"/>

end if

1</form></object></body></html>