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>
