MSChart控件的使用方法？？？

自己看
1、折线图
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft FrontPage 4.0">
<TITLE> Êý¾ÝÏÔÊ¾Í¼ </TITLE>
<SCRIPT ID="clientEventHandlersJS" LANGUAGE="javascript">
function window_onload()
{
t=0;
mschart1.chartType =1; //Í¼ÐÎÑùÊ½£º3DÖùÍ¼ mschart1.Title.VtFont.Size    =10; //±êÌâ´óÐ¡£º10
mschart1.Title.VtFont.VtColor.Blue =true; //±êÌâÑÕÉ«£ºÀ¶É«
mschart1.Title.VtFont.Style        =1; //±êÌâÐÎÊ½£º´ÖÌå¡¢Ð±Ìå
mschart1.TitleText                 =document.form1.chtitle.value; //±êÌâÄÚÈÝ mschart1.Legend.VtFont.Size           =9; //ÏµÁÐÎÄ×Ö×ÖÌå´óÐ¡£º9
mschart1.Legend.Location.LocationType =4; //ÏµÁÐÎÄ×ÖÏÔÊ¾Î»ÖÃ£ºÓÒ²¿
mschart1.ShowLegend   =true;
if (document.form1.ccount.value==1)
{ mschart1.ShowLegend             =false; } //Èç¹û×ÜÏßÊýÎª1£¬ÏµÁÐÎÄ×Ö²»ÏÔÊ¾ mschart1.Plot.Axis(0).Labels(1).VtFont.Size  =10; //XÖá´óÐ¡£º10
mschart1.Plot.Axis(1).Labels(1).VtFont.Size  =10; //YÖá´óÐ¡£º10
mschart1.Plot.Axis(2).Labels(1).VtFont.Size  =10; //ZÖá´óÐ¡£º10
mschart1.Plot.Axis(0).Labels(1).VtFont.Style =1; //XÖáÐÎÊ½£º´ÖÌå 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>
</HEAD><BODY TOPMARGIN="0" LANGUAGE="javascript" ONLOAD="return window_onload()">
<TABLE BGCOLOR="#EEEEEE">
<TR ALIGN="center"><TD>
<TABLE WIDTH=100%><TR align=center><TD><Font size=2 color=blue><b><%=Request.Form("chtitle")%></b></FONT></TD></TR></TABLE>
<HR COLOR="#F3C905">
<OBJECT CLASSID="clsid:3A2B370C-BA0A-11D1-B137-0000F8753F5D" CODEBASE="mschart.cab" DATA="" ID="mschart1" STYLE="HEIGHT:350px; LEFT:0px; TOP:0px; WIDTH:700px"></OBJECT>
<BR>
<HR COLOR="#F3C905">
<FONT SIZE="2" COLOR="blue"><B>ÇëÑ¡ÔñÍ¼±íÏÔÊ¾·½Ê½:
<SELECT 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>
</SELECT>
  
°æÈ¨ËùÓÐ£ºÉÏº£Ò×½Ü¼ÆËã»ú¼¼ÊõÓÐÏÞ¹«Ë¾</B></font>
<HR COLOR="#F3C905">
</TD></TR>
</TABLE> <FORM NAME="form1" ID="form1">
<input type="hidden" name="chtitle" id="chtitle" value="" > <input type="hidden" name="ccount"  id="ccount"  value=<%=Request.Form("ccount")%>    >
<%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")%>    >
<%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("rcount")*Request.Form("ccount")%>
<%
if Request.Form("rc_data_type")=1 then
xvalue = Request.Form("rc_data1")(i)
end if
if Request.Form("rc_data_type")=2 then
xvalue = Request.Form("rc_data2")(i)
end if
if Request.Form("rc_data_type")=3 then
xvalue = Request.Form("rc_data3")(i)
end if
%>
<input type="hidden" name="rc_data" id="rc_data" value=<%=xvalue%>>
<%next%>
</FORM>
</BODY>
</HTML>
2、饼图
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<TITLE> Êý¾ÝÏÔÊ¾Í¼ </TITLE>
<SCRIPT ID="clientEventHandlersJS" LANGUAGE="javascript">
function window_onload()
{
t=0;
mschart1.chartType =14; //Í¼ÐÎÑùÊ½£º±ýÍ¼ mschart1.Title.VtFont.Size         =10; //±êÌâ´óÐ¡£º10
mschart1.Title.VtFont.VtColor.Blue =true; //±êÌâÑÕÉ«£ºÀ¶É«
mschart1.Title.VtFont.Style        =1; //±êÌâÐÎÊ½£º´ÖÌå¡¢Ð±Ìå
mschart1.TitleText                 =document.form1.chtitle.value; //±êÌâÄÚÈÝ mschart1.Legend.VtFont.Size           =9; //ÏµÁÐÎÄ×Ö×ÖÌå´óÐ¡£º9
mschart1.Legend.Location.LocationType =6; //ÏµÁÐÎÄ×ÖÏÔÊ¾Î»ÖÃ£ºµ×²¿
mschart1.ShowLegend                   =true; //ÏµÁÐÎÄ×ÖÏÔÊ¾ mschart1.Plot.Axis(0).Labels(1).VtFont.Size  =10; //XÖá´óÐ¡£º10
mschart1.Plot.Axis(1).Labels(1).VtFont.Size  =10; //YÖá´óÐ¡£º10
mschart1.Plot.Axis(2).Labels(1).VtFont.Size  =10; //ZÖá´óÐ¡£º10
mschart1.Plot.Axis(0).Labels(1).VtFont.Style =1; //XÖáÐÎÊ½£º´ÖÌå 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+"("+document.form1.rc_data(j).value+"%";
  for (x=1; x<document.form1.rcount.value; x++)
  { mschart1.ColumnLabel =mschart1.ColumnLabel+", "+document.form1.rc_data(document.form1.ccount.value*x+j).value+"%"; }
  mschart1.ColumnLabel =mschart1.ColumnLabel+")";
}
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>
</HEAD><BODY TOPMARGIN="0" LANGUAGE="javascript" ONLOAD="return window_onload()">
<TABLE BGCOLOR="#EEEEEE">
<TR ALIGN="center"><TD>
<TABLE WIDTH=100%><TR align=center><TD><Font size=2 color=blue><b><%=Request.Form("chtitle")%></b></FONT></TD></TR></TABLE>
<HR COLOR="#F3C905">
<OBJECT CLASSID="clsid:3A2B370C-BA0A-11D1-B137-0000F8753F5D" CODEBASE="mschart.cab" DATA="" ID="mschart1" STYLE="HEIGHT:350px; LEFT:0px; TOP:0px; WIDTH:750px"></OBJECT>
<BR>
<HR COLOR="#F3C905">
<FONT SIZE="2" COLOR="blue"><B>ÇëÑ¡ÔñÍ¼±íÏÔÊ¾·½Ê½:
<SELECT NAME="select1" LANGUAGE="javascript" ONCHANGE="return select1_onchange()">
<OPTION value=14>±ýÍ¼</OPTION>
<OPTION value=1>¶þÎ¬Ö±·½Í¼</OPTION>
<OPTION value=0>ÈýÎ¬Ö±·½Í¼</OPTION>
</SELECT>
  
°æÈ¨ËùÓÐ£ºÉÏº£Ò×½Ü¼ÆËã»ú¼¼ÊõÓÐÏÞ¹«Ë¾</B></font>
<HR COLOR="#F3C905">
</TD></TR>
</TABLE> <FORM NAME="form1" ID="form1">
<input type="hidden" name="chtitle" id="chtitle" value="" > <%
ccount = Request.Form("ccount")
if CInt(Request.Form("ccount"))>CInt(Request.Form("rc_data_point")) then
ccount = Request.Form("rc_data_point")+1
end if
%>
<input type="hidden" name="ccount"  id="ccount"  value=<%=ccount%>                    >
<%for i=1 to Request.Form("ccount")%>
<%if i=Request.Form("rc_data_point")+1 then%>
<input type="hidden" name="cname" id="cname" value="ÆäËû">
<%
exit for
  end if
%>
<input type="hidden" name="cname"   id="cname"   value="<%=Request.Form("cname")(i)%>">
<%next%> <input type="hidden" name="rcount"  id="rcount"  value="<%=Request.Form("rcount")%>"  >
<%for i=1 to Request.Form("rcount")%>
<input type="hidden" name="rname"   id="rname"   value="<%=Request.Form("rname")(i)%>">
<%next%> <%rc_data_point = 0%>
<%xvalue        = 0%>
<%if Request.Form("rcount")>=1 then
  for i=1 to Request.Form("ccount")%>
<%
xvalue = xvalue + Request.Form("rc_data1")(i) if (rc_data_point<CInt(Request.Form("rc_data_point"))) or (rc_data_point=CInt(Request.Form("ccount"))-1) then
%>
<input type="hidden" name="rc_data" id="rc_data" value=<%=formatnumber(xvalue,2,-1)%>>
<%
xvalue = 0
end if rc_data_point = rc_data_point+1
if rc_data_point mod CInt(Request.Form("ccount"))=0 then
rc_data_point = 0
end if
%>
<%next
  end if%> <%if Request.Form("rcount")>=2 then
  for i=1 to Request.Form("ccount")%>
<%
xvalue = xvalue + Request.Form("rc_data2")(i) if (rc_data_point<CInt(Request.Form("rc_data_point"))) or (rc_data_point=CInt(Request.Form("ccount"))-1) then
%>
<input type="hidden" name="rc_data" id="rc_data" value=<%=formatnumber(xvalue,2,-1)%>>
<%
xvalue = 0
end if rc_data_point = rc_data_point+1
if rc_data_point mod CInt(Request.Form("ccount"))=0 then
rc_data_point = 0
end if
%>
<%next
  end if%> <%if Request.Form("rcount")>=3 then
  for i=1 to Request.Form("ccount")%>
<%
xvalue = xvalue + Request.Form("rc_data3")(i) if (rc_data_point<CInt(Request.Form("rc_data_point"))) or (rc_data_point=CInt(Request.Form("ccount"))-1) then
%>
<input type="hidden" name="rc_data" id="rc_data" value=<%=formatnumber(xvalue,2,-1)%>>
<%
xvalue = 0
end if rc_data_point = rc_data_point+1
if rc_data_point mod CInt(Request.Form("ccount"))=0 then
rc_data_point = 0
end if
%>
<%next
  end if%>
</FORM>
</BODY>
</HTML>
上面的数据从上个面传来。
   我按照这个例子试了一下，但是在调试的时候，却发现下面类似的语句
   mschart1.Data =document.form1.rc_data.value
   其中form1是不认的。
   表单form1应该是和mschart1在同一个asp中实现的吧。
   不知问题出在什么地方

调试易

MSChart控件的使用方法？？？

解决方案 »