IDC资讯中心
chart组件在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>
