浅谈MsChart在ASP中的应用 |
|---|
|
| 2003-04-10 CoolFatMan |
| |
谈谈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>
|
|
| |
|
发表评论
推荐文章
关闭窗口
|
|
|
|
