网络编程
位置：首页>> 网络编程>> Asp编程>> asp如何使用MsChart制图工具？

asp如何使用MsChart制图工具？

　　发布时间：2010-06-05 12:40:00　

标签：MsChart,图表

如何使用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
投稿

猜你喜欢

  • 栅格系统的形成1692年，新登基的法国国王路易十四感到法国的印刷水平强差人意，因此命令成立一个管理印刷的皇家特别委员会。他们的首要任务是设计
  •  在ASP.net页面中，我们编写JavaScript脚本附加有注释时，这些注释也往往会随JavaScript脚本一起送到客户端。
  • Firefox 3.5已经发布了几个月了，且已经历5次小幅更新。而基于Gecko 1.9.2的Firefox 3.6也已经开发数月，现在已经
  • 对于xml2ddl项目，Freshmeat.org提供了一整套基于GNU或者GPL通用公共许可证下的Python程序。在一个运行的Pytho
  • 用户习惯大家都经常在提，习惯源于何出？回答可以是软件的用户习惯源于其不断使用过程中的印象积累。如果是这个软件刚诞生的时候呢？于是就得参考同类
  • 内容摘要：最近在做项目的时候，客户要求表格里的数据可以拖选，于是用JS写了个下面的方法。支持IE、FIREFOX等浏览器。实现对整行、整列数
  • 方法组成模式方法里的所有语句都必须处在同一个归纳层次上无用的注释让代码自我表白标注为什么这样，而不是如何这样对方法表现进行描述等于重复表现这
  • 可用下列函数来产生你需要的东西，将它们发送给用户就可以啦：<％response.write makePassword(16)
  • 1. ORACLE 的解析器按照从右到左的顺序处理 FROM 子句中的表名，因此 FROM 子句中写在最后的表(基础表 driving ta
  • 1、图片防盗链在一些大型网站中，比如百度贴吧，该站点的图片采用了防盗链的规则，以至于使用下面代码会发生错误。简单代码：<!DOCTYP
  • 首先创建一个表Use Test;Create Table TableTest(`ID` mediumint(8) default '
  • 我们经常会用到表格数据，在做表格的时候，一般都喜欢隔行变色，使表格表现数据的时候非常的清晰。如图，我设计的一个表格表现的样式：在网上找到一个
  • 你是一位交互设计师吗？告诉我，你具体做些什么？我是做网站设计的？听起来不够专业。我是做网页设计的，听起来……你们是做界面的……恩，好吧，我勉
  • 相信认真做过网页设计(Web Design)，或者关注过页面设计的同行都对“空格”不陌生。“空格”属于一类细节，很容易被忽略，但又比较影响效
  • 编者按，网站中让人惊喜的往往是那一点细节，只要用心留意你将发现那些美好的用户体验就在身边。新蛋网想自主控制链接在原窗口还是新窗口中打开？看看
  • ul: unordered lists ol: ordered lists li: Listsol 有序列表:<ol>
  • 现在的离线浏览器很多，可是多数都是共享软件，或是英文软件，这给我们的操作带来了很大的不便。其实微软的网页制作工具FrontPage XP有一
  • 在ASP的实际操作中，总会发生这样的情况，如在银行，从我的帐户往费文华的帐户划款，我的帐户显示已经划出，但因银行的系统出现故障，导致费文华帐
  • 你知道（X）HTML中最多余的标签中是什么吗？在我看来就是这个<a>标签，不错，就是每个网站使用最多的超级链接标签<a&g
  • 经常在网站上看到诸如www.abc.com/?news或者www.abc.com/?id=123这样的网址，一开始觉得很神秘，其实现在看多了
手机版 网络编程 asp之家 www.aspxhome.com