| 谈谈MsChart在如何在ASP中使用 MsChart是微软制作的功能强大的图表工具，用它可以 很方便的建立各种图表。制作各种3维2维的直方图，折 线图。在ChinaAsp中已经有好几次有人询问MsChart怎 么用，在此处我给出一个例子。希望大家了解。 发送数据程序 <HTML><HEAD> <META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0"> </HEAD><BODY> <form method=post name="form1" action=mschart.asp> <INPUT type="submit" value="发送" id=submit1 name=submit1> <! chtitle 标题 rcount 列数 ccount 行数 rc_type 排列方式（1 以行方式，2以列方式） rc_data 数据 rname 列名数组 cname 行名数组> <input type="hidden" value="CoolFatMan的成长里程" name=chtitle> <input type="hidden" value=3 name=rcount> <input type="hidden" value=2 name=ccount> <input type="hidden" value=1 name=rc_type> <input type="hidden" value="1993" name=rname> <input type="hidden" value="1996" name=rname> <input type="hidden" value="1999" name=rname> <input type="hidden" value="身高" name=cname> <input type="hidden" value="体重" name=cname> <input type="hidden" value=179 name=rc_data> <input type="hidden" value=160 name=rc_data> <input type="hidden" value=180 name=rc_data> <input type="hidden" value=170 name=rc_data> <input type="hidden" value=182 name=rc_data> <input type="hidden" value=182 name=rc_data> </form></BODY></HTML> 显示数据程序 mschart.asp <%@ Language=VBScript %> <HTML> <HEAD> <META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0"> <SCRIPT ID=clientEventHandlersJS LANGUAGE=javascript> <!-- function window_onload() { t=0; mschart1.TitleText = document.form1.chtitle.value; mschart1.ShowLegend =true; mschart1.ColumnCount =document.form1.ccount.value; mschart1.RowCount =document.form1.rcount.value; for (i=0;i<document.form1.rcount.value;i++) {for (j=0;j<document.form1.ccount.value;j++) { mschart1.Row=i+1; mschart1.Column=j+1; if (document.form1.ccount.value>1) mschart1.ColumnLabel =document.form1.cname(j).value; else mschart1.ColumnLabel =document.form1.cname.value; if ((document.form1.rcount.value*document.form1.ccount.value)>1) mschart1.Data=document.form1.rc_data(t).value; else mschart1.Data=document.form1.rc_data.value; t++; } if (document.form1.rcount.value>1) mschart1.RowLabel =document.form1.rname(i).value ; else mschart1.RowLabel =document.form1.rname.value ; } } function select1_onchange() { mschart1.chartType =select1.value mschart1.Plot } //--> </SCRIPT> <TITLE>数据显示图</TITLE> </HEAD> <BODY LANGUAGE=javascript onload="return window_onload()"> <object 此处插入mschart activex控件> <BR> 显示方式 <SELECT id=select1 name=select1 LANGUAGE=javascript onchange="return select1_onchange()"> <OPTION value=1>二维直方图</OPTION> <OPTION value=0>三维直方图</OPTION> <OPTION value=3>二维折线图</OPTION> <OPTION value=2>三维折线图</OPTION> <OPTION value=5>二维面积图</OPTION> <OPTION value=4>三维面积图</OPTION> <OPTION value=14>饼图</OPTION></SELECT> <! chtitle 标题 rcount 列数 ccount 行数 rc_type 排列方式（1 以行方式，2以列方式） rc_data 数据 rname 列名数组 cname 行名数组> <form name=form1 id=form1> <% for i=1 to Request.Form("rcount")%> <input type="hidden" name=rname id=rname value=<%=Request.Form("rname")(i)%>> <%next%> <% for i=1 to Request.Form("ccount")%> <input type="hidden" name=cname id=cname value=<%=Request.Form("cname")(i)%>> <%next%> <input type="hidden" name=rcount id=rcount value=<%=Request.Form("rcount")%>> <input type="hidden" name=chtitle id=chtitle value=<%=Request.Form("chtitle")%>> <input type="hidden" name=ccount id=ccount value=<%=Request.Form("ccount")%>> <%if Request.Form("rc_type")=1 then%> <%for i=1 to Request.Form("rcount")*Request.Form("ccount")%> <input type="hidden" name=rc_data id=rc_data value=<%=Request.Form("rc_data")(i)%>> <%next%> <%else%> <%for j=1 to Request.Form("rcount")%> <%for i=1 to Request.Form("ccount")%> <input type="hidden" name=rc_data id=rc_data value=<%=Request.Form("rc_data")((i-1)*Request.Form("rcount")+j)%>> <%next%> <%next%> <%end if%> </form></BODY></HTML> |