asp如何使用MsChart制图工具？
时间：2010-06-05 12:40:00
如何使用MsChart？
MsChart是微软出品的一款功能强大的制作图表工具，用它可以很方便的建立各种图表。
下面我们举例来说明：
submitinfo.asp
' 发送数据程
<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>
<input type="hidden" value="宋英特的童年记录" name=chtitle>
<input type="hidden" value=3 name=rcount>
' rcount 列数
<input type="hidden" value=2 name=ccount>
' ccount 行数
<input type="hidden" value=1 name=rc_type>
<input type="hidden" value="1998" name=rname>
' rname 列名数组
<input type="hidden" value="1999" name=rname>
<input type="hidden" value="2000" name=rname>
<input type="hidden" value="身高" name=cname>
' cname 行名数组
<input type="hidden" value="体重" name=cname>
<input type="hidden" value=72 name=rc_data>
' rc_data 数据
<input type="hidden" value=75 name=rc_data>
<input type="hidden" value=78 name=rc_data>
<input type="hidden" value=81 name=rc_data>
<input type="hidden" value=84 name=rc_data>
<input type="hidden" value=89 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()">
<---此处插入mschart activex控件--->
<BR>
MsChart显示方式
<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>
<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")％>>
' chtitle 标题
<input type="hidden" name=ccount id=ccount value=<％=Request.Form("ccount")％>>
<％if Request.Form("rc_type")=1 then％>
' rc_type 排列方式（1 以行方式，2以列方式）
<％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>
0
投稿猜你喜欢
基于TensorFlow的CNN实现Mnist手写数字识别
python多线程互斥锁与死锁
利用JavaScript做数独的完整实现过程
windows下pycharm安装、创建文件、配置默认模板
做设计还是做产品
vue props 一次传多个值实例
python实现Dijkstra算法的最短路径问题
vue+element-ui+ajax实现一个表格的实例
python海龟绘图之画国旗实例代码
CSS双线边框研究
Python批量生成字幕图片的方法详解
使用python-pptx包批量修改ppt格式的实现
Vue全局事件总线你了解吗
带农历的JavaScript日期时间js代码
深入浅析python3中的unicode和bytes问题
解决Pandas to_json()中文乱码,转化为json数组的问题
一文教会你用nginx+uwsgi部署自己的django项目
windows下cx_Freeze生成Python可执行程序的详细步骤
python自动发邮件库yagmail的示例代码
Python开发桌面小程序功能
