<form id="hz9zz"></form>
  • <form id="hz9zz"></form>

      <nobr id="hz9zz"></nobr>

      <form id="hz9zz"></form>

    1. 明輝手游網中心:是一個免費提供流行視頻軟件教程、在線學習分享的學習平臺!

      chart組件在ASP中的應用

      [摘要]chart組件在ASP中的應用 -------------------------------------------------------------------------------- MsChart是微軟制作的功能強大的圖表工具,用它可以 很方便的建立各種圖表。制作各種3維2維的直方圖,...

      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> (出處:熱點網絡)


      日韩精品一区二区三区高清