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>


猜你喜欢
- 概述今天主要分享下mysql数据库应该如何正确的删除binlog日志,这里要注意不要强制使用rm命令进行清除。否则mysq-bin.inde
- PYQT5中给listwidget的滚动条添加滚动信号self.listWidget.verticalScrollBar().valueCh
- Python socket网络编程初学 python,前段时间买了两本书《python 编程从入门到实践》《Python 核心编程第三版》,
- python是一门灵活的语言,也可以说python是一门胶水语言,顾名思义,就是其可以导入各类的包,python的包可以说是所有语言中最多的
- python 根据正则表达式提取指定的内容正则表达式是极其强大的,利用正则表达式来提取想要的内容是很方便的事。 下面演
- 本文为大家分享了mysql8.0.11客户端无法登陆的解决方法,供大家参考,具体内容如下mysql8.0.11 默认加密方式【caching
- 需求描述项目首先要用户选择某个问题,选择之后使用ElementUI的Notification组件提示用户正在对文件格式进行检查(需要先提交给
- 在日常工作中,PPT制作是常见的工作,如果制作创意类PPT,则无法通过自动化的形式生成,因为创意本身具有随机性,而自动化解决的是重复性工作,
- Anaconda 是一个基于 Python 的数据处理和科学计算平台,它已经内置了许多非常有用的第三方库,装上Anaconda,就相当于把
- function lLoopRun(sFuncLoop,sFuncEnd,nDelay) {//writen
- 1.定义帕累托图:是一种特殊的直方图, 在项目管理知识体系中属于质量管理的工具。 它可以帮助观众了解哪些因素对结果影响最大。它基于帕累托原则
- 官网资料:loc :https://pandas.pydata.org/pandas-docs/stable/reference
- 阅读上一篇:交互设计模式(二)-Pagination(分页,标记页数) Tagging(标签)问题摘要用户往往想通过流行或最详尽的主题来浏览
- 本文实例为大家分享了js图片加载淡入淡出效果展示的具体代码,供大家参考,具体内容如下HTML代码首先是图片标记的写法:<img dat
- 正则表达式处理花括号内容替换赋值@Test public void replaceStr() { &
- 前言React核心的单向数据流、一切皆数据的state、不会改变的props,以及状态提升等等经常使用便不多总结,需要的看官方文档。JSXJ
- VScode 配置为 LaTeX IDE在Windows中,配置VScode作为LaTeX的编辑器(IDE),并使用SumatraPDF预览
- 本文实例讲述了PHP封装的PDO数据库操作类。分享给大家供大家参考,具体如下:<?phpclass DatabaseHandler {
- 如下所示:#coding=utf-8import sys, re, osdef getDictList(dict): regx
- 如下所示:import arcpy... from arcpy import env... env.workspace="C:\\