利用WORD控件在网页中建立图表

<a id="a"><span οnclick="a.innerHTML='ok';">测试</a>
<script language="JavaScript">

 

function select1_onchange()
{
if(select1.value==14)
{
mschart1.chartType =select1.value
 paintfx2();
 mschart1.Plot

}else{
 mschart1.chartType =select1.value
 paintfx1();
 mschart1.Plot
 }
}
</script>
<br>变换图形表现形式
<SELECT id=select1 name=select1 LANGUAGE=javascript οnchange="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>
<table border=2 cellpadding=2 cellspacing=1 width="100%">
  <tbody>
  <tr bgcolor=#5c77b5>
    <td><font color=#ffffff     
                  face=arial,helvetica,verdana,lucida,utopia size=3><b>
      <table border=0 cellpadding=0 cellspacing=0 width="100%">
        <tbody>
        <tr>
          <td align=left><font color=#ffffff     
                        face=arial,helvetica,verdana,lucida,utopia     
                        size=3><b>统计分析</b></font></td>
          <td align=right><font color=#ffffff     
                        face=arial,helvetica,verdana,lucida,utopia     
                      size=1></font></td>
          <td align=right></td>
        </tr>
        </tbody>
      </table>
      </b></font><b><font     
                  size=-1></font></b></td>
  </tr>
  <tr bgcolor=#ffffff>
    <td bgcolor=#ffffff><font color=#000000     
                  face="ms sans serif,arial,helvetica,verdana,lucida,utopia"     
                  size=1>
      <center>

　　<OBJECT CLASSID="clsid:5220cb21-c88d-11cf-b347-00aa00a28331">
　　 <PARAM NAME="LPKPath" VALUE="mschart.LPK">
　　</OBJECT>

 

  <object classid=CLSID:3A2B370C-BA0A-11D1-B137-0000F8753F5D
 
height=300 id=mschart1
style="HEIGHT: 300px; LEFT: 29px;  TOP: 140px; WIDTH: 700px"
width=700 CODEBASE="MSCHRT20.ocx#version=6.0">

        </object>
      </center>
      </font></td>
  </tr>
  </tbody>
</table>
<form name=form1 id=form1>
<input type="hidden" name=cname id=cname value="日报表">

<input type="hidden" name=rname id=rname value=2002-2-2>
<input type="hidden" name=rc_data id=rc_data value=12>
<input type="hidden" name=cname id=cname value=2002-2-2>

<input type="hidden" name=rname id=rname value=2002-2-3>
<input type="hidden" name=rc_data id=rc_data value=24>
<input type="hidden" name=cname id=cname value=2002-2-3>

<input type="hidden" name=rname id=rname value=2002-2-4>
<input type="hidden" name=rc_data id=rc_data value=26>
<input type="hidden" name=cname id=cname value=2002-2-4>

<input type="hidden" name=rname id=rname value=2002-2-5>
<input type="hidden" name=rc_data id=rc_data value=10>
<input type="hidden" name=cname id=cname value=2002-2-5>

<input type="hidden" name=rcount id=rcount value=4>  <!--列-->
<input type="hidden" name=chtitle id=chtitle value="我的统计图" >
<!--名称-->
<input type="hidden" name=ccount id=ccount value=1>

   
</form>

<script language="JavaScript">
// mschart1.TitleText = "分析统计图";
</script>

<script language="JavaScript">
function paintfx1()
{
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 paintfx2(){
t=0;
mschart1.TitleText = document.form1.chtitle.value;
mschart1.ShowLegend =true;
mschart1.ColumnCount =document.form1.rcount.value;
mschart1.RowCount =document.form1.ccount.value;
for (i=0;i<document.form1.ccount.value;i++)
    {for (j=0;j<document.form1.rcount.value;j++)
        {    mschart1.Row=i+1;
            mschart1.Column=j+1;
            if (document.form1.rcount.value>=1)
                mschart1.ColumnLabel =document.form1.cname(j+1).value;
            else
                mschart1.ColumnLabel =document.form1.cname.value;
            if ((document.form1.ccount.value*document.form1.rcount.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 ='' ;
    else
        mschart1.RowLabel ='' ;
    }
}

paintfx1();
</script>
</td>
                    </tr>
                  </table>