淺談MsChart在ASP中的應用

　　MsChart是微軟制作的功能強大的圖表工具用它可以很方便的建立各種圖表制作各種維維的直方圖折線圖在ChinaAsp中已經有好幾次有人詢問MsChart怎麼用在此處我給出一個例子希望大家了解

　　發送數據程序
<HTML><HEAD>
<META NAME=GENERATOR Content=Microsoft Visual Studio >
</HEAD><BODY>
<form  method=post name=form  action=mschartasp>
<INPUT type=submit value=發送 id=submit name=submit>
<!
chtitle    標題
rcount    列數
ccount    行數
rc_type 排列方式（以行方式以列方式）
rc_data 數據
rname    列名數組
cname    行名數組>
<input type=hidden value=CoolFatMan的成長裡程 name=chtitle>
<input type=hidden value=  name=rcount>
<input type=hidden value=  name=ccount>
<input type=hidden value=  name=rc_type>
<input type=hidden value= name=rname>
<input type=hidden value= name=rname>
<input type=hidden value= name=rname>
<input type=hidden value=身高 name=cname>
<input type=hidden value=體重 name=cname>
<input type=hidden value= name=rc_data>
<input type=hidden value= name=rc_data>
<input type=hidden value= name=rc_data>
<input type=hidden value= name=rc_data>
<input type=hidden value= name=rc_data>
<input type=hidden value= name=rc_data>
</form></BODY></HTML>

顯示數據程序 mschartasp
<%@ Language=VBScript %>
<HTML>
<HEAD>
<META NAME=GENERATOR Content=Microsoft Visual Studio >
<SCRIPT ID=clientEventHandlersJS LANGUAGE=javascript>
<!
function window_onload() {
t=;
mschartTitleText = documentformchtitlevalue;
mschartShowLegend =true;
mschartColumnCount =ountvalue;
mschartRowCount =documentformrcountvalue;
for (i=;i<documentformrcountvalue;i++)
    {for (j=;j<ountvalue;j++)
        {    mschartRow=i+;
            mschartColumn=j+;
            if (ountvalue>)
                mschartColumnLabel =ame(j)value;
            else
                mschartColumnLabel =amevalue;
            if ((documentformrcountvalue*ountvalue)>)
                mschartData=documentformrc_data(t)value;
            else
                mschartData=documentformrc_datavalue;
            t++;
        }
    if (documentformrcountvalue>)
        mschartRowLabel =documentformrname(i)value ;
    else
        mschartRowLabel =documentformrnamevalue ;
    }
}

　　[NextPage]

function select_onchange() {
mschartchartType =selectvalue
mschartPlot
}
//>
</SCRIPT>
<TITLE>數據顯示圖</TITLE>
</HEAD>
<BODY LANGUAGE=javascript onload=return window_onload()>
<object 此處插入mschart activex控件>
<BR>
顯示方式
<SELECT id=select name=select LANGUAGE=javascript onchange=return select_onchange()>
<OPTION value=>二維直方圖</OPTION>
<OPTION value=>三維直方圖</OPTION>
<OPTION value=>二維折線圖</OPTION>
<OPTION value=>三維折線圖</OPTION>
<OPTION value=>二維面積圖</OPTION>
<OPTION value=>三維面積圖</OPTION>
<OPTION value=>餅圖</OPTION></SELECT>
<!
chtitle    標題
rcount    列數
ccount    行數
rc_type 排列方式（以行方式以列方式）
rc_data 數據
rname    列名數組
cname    行名數組>
<form name=form id=form>
<% for i= to RequestForm(rcount)%>
<input type=hidden name=rname id=rname value=<%=RequestForm(rname)(i)%>>
<%next%>
<% for i= to RequestForm(ccount)%>
<input type=hidden name=cname id=cname value=<%=RequestForm(cname)(i)%>>
<%next%>
<input type=hidden name=rcount id=rcount value=<%=RequestForm(rcount)%>>
<input type=hidden name=chtitle id=chtitle value=<%=RequestForm(chtitle)%>>
<input type=hidden name=ccount id=ccount value=<%=RequestForm(ccount)%>>
<%if RequestForm(rc_type)= then%>
    <%for i= to RequestForm(rcount)*RequestForm(ccount)%>
            <input type=hidden name=rc_data id=rc_data value=<%=RequestForm(rc_data)(i)%>>
    <%next%>
<%else%>
    <%for j= to RequestForm(rcount)%>
        <%for i= to RequestForm(ccount)%>
            <input type=hidden name=rc_data id=rc_data value=<%=RequestForm(rc_data)((i)*RequestForm(rcount)+j)%>>
        <%next%>
    <%next%>
<%end if%>
</form></BODY></HTML>

From:http://tw.wingwit.com/Article/program/net/201311/12500.html