求解"对象不支持此属性或方法"问题,谢谢!

篇幅太长,需要2楼接才能贴完:<meta http-equiv="Content-Type" content="text/html; charset=gb2312"></head>
<body class="Login" Scroll="no" Style="margin-bottom:0;margin-top:0;padding-top:0;padding-bottom:0" OnLoad="FS[0].click();">
<center>
<br>
<table width="97%" CELLPADDING="0" CELLSPACING="0" border="0">
<tr>
<td><b><font style="font-size:20pt" face="楷体_GB2312" color="red">xx管理系统</font></b></td>
<td valign="bottom" align="right">【<b>汇总打印</b>】</td>
</tr>
</table><table width="97%" CELLPADDING="0" CELLSPACING="0" bordercolorlight="#808080" bordercolordark="#ffffff" border="1" RULES="ROWS" FRAME="BELOW">
<tr>
<td Height="25" Colspan="3" BgColor="DARKSLATEBLUE" Align="Center" Style="color:white"><b>选择汇总打印范围</b></td>
</tr>
<tr>
<td Height="50" align="center" width="25%" RowSpan=2><b>[<Font Color=red>1</Font>]设定年月 -></b></td>
<td align=right width=25% Height="25"><b><font Color="darkviolet">起始年月：</b></td>
<td Height="25" width="50%">&nbsp;<b><Input Type=text Class=Pass value=<%=Year(Date)%> Name="SYear" Size=4 MaxLength=4>&nbsp;年&nbsp;<Input Type=text Class=Pass value=<%=Month(Date)%> Name="SMonth" Size=2 MaxLength=2>&nbsp;月</td>
</tr>
<tr>
<td align="right" Height="25"><b><font Color="Red">终止年月：</b></td>
<td Height="25">&nbsp;<b><Input Type=text Class=Pass value=<%=Year(Date)%> Name="EYear" Size=4 MaxLength=4>&nbsp;年&nbsp;<Input Type=text Class=Pass value=<%=Month(Date)%> Name="EMonth" Size=2 MaxLength=2>&nbsp;月</td>
</tr>
<tr>
<td Height="50" align="center" width="20%" RowSpan=5><b>[<Font Color=red>2</Font>]选择报表 -></b></td>
<td Height="25"><b><Input type=RADIO Name="FS" OnClick="FsChange();">报建月报表</b></td>
<td Height="25"><b><Input type=RADIO Name="FS" OnClick="FsChange();">核验统计表</b></td>
</tr>
<tr>
<td Height="25"><b><Input type=RADIO Name="FS" OnClick="FsChange();">缓交报建费统计表</b></td>
<td Height="25"><b><Input type=RADIO Name="FS" OnClick="FsChange();">报建费退费统计表</b></td>
</tr>
<tr>
<td Height="25"><b><Input type=RADIO Name="FS" OnClick="FsChange();">报建费补交统计表</b></td>
<td Height="25"><b><Input type=RADIO Name="FS" OnClick="FsChange();">滞纳金统计表</b></td>
</tr>
<tr>
<td ColSpan=2 Height="25"><b><Input type=RADIO Name="FS" OnClick="FsChange();">综合分类统计表</b></td>
</tr>
<tr>
<td ColSpan=2>
<table CELLPADDING="1" CELLSPACING="1" width=100%>
<tr Height=20>
<td align=center colspan=2 bgcolor=black><Font Color=white><B>综合分类条件</B></Font></td>
</tr>
<%
Dim Dbc,CsRs,ItemNo
Set Dbc = Server.CreateObject("Adodb.Connection")
Dbc.ConnectionString = Application("BjSystem_ConnectionString")
Dbc.Open
Set CsRs = Server.CreateObject("Adodb.RecordSet")
%>
<tr>
<td width="50%"><b>项目性质：</b></td>
<td width="50%"><b>减免性质：</b></td>
</tr>
<tr>
<td>
<%
  CsRs.Open "Select PropertyNo,PropertyName From ItemPropertyClass",Dbc
%>
<Select Class="Pass" Name="XMPropertyNo" Style="Width:220" Disabled Size=3 MULTIPLE>
<%
  Do While Not CsRs.EOF
 Response.Write "<Option Value='" & CsRs("PropertyNo") & "'>" & CsRs("PropertyName") & "</Option>" & vbcrlf
 CsRs.MoveNext
  Loop
%>
</Select>
</td>
<td>
<%
  CsRs.MoveFirst
%>
<Select Class="Pass" Name="JMPropertyNo" Style="Width:220" Disabled Size=3 MULTIPLE>
<%
  Do While Not CsRs.EOF
 Response.Write "<Option Value='" & CsRs("PropertyNo") & "'>" & CsRs("PropertyName") & "</Option>" & vbcrlf
 CsRs.MoveNext
  Loop
  CsRs.Close
%>
</Select>
</td>
</tr>
<tr>
<td width="50%"><b>所属区域：</b></td>
<td width="50%"><b>所属环线：</b></td>
</tr>
<tr>
<td>
<%
  CsRs.Open "Select ParameterCode,ParameterName From SystemParameter Where ParameterSort = 'QY'",Dbc
%>
<Select Class="Pass" Name="SSQY" Style="Width:220" Disabled Size=3 MULTIPLE>
<%
  Do While Not CsRs.EOF
 Response.Write "<Option Value='" & CsRs("ParameterCode") & "'>" & CsRs("ParameterName") & "</Option>" & vbcrlf
 CsRs.MoveNext
  Loop
%>
</Select>
</td>
<td>
<%
  CsRs.Close
  CsRs.Open "Select ParameterCode,ParameterName From SystemParameter Where ParameterSort = 'HX'",Dbc
%>
<Select Class="Pass" Name="SSHX" Style="Width:220" Disabled Size=3 MULTIPLE>
<%
  Do While Not CsRs.EOF
 Response.Write "<Option Value='" & CsRs("ParameterCode") & "'>" & CsRs("ParameterName") & "</Option>" & vbcrlf
 CsRs.MoveNext
  Loop
  CsRs.Close
  Set CsRs = Nothing
%>
</Select>
</td>
</tr>
</table>
</td>
</tr>
</table><table width="97%" CELLPADDING="0" CELLSPACING="0" Style="margin-bottom:0;margin-top:0;padding-top:7;padding-bottom:0">
<tr>
<td align="right">
<OBJECT id=Report style="LEFT: 0px; TOP: 0px" classid="clsid:48D2E283-C3B5-454B-9BC1-2770ED841921" VIEWASTEXT></Object>
&nbsp;&nbsp;
<button AccessKey="P" class="AgreeButton" style="width:110;height:30;background-color=LIGHTGREY" Onclick="SaveHZ()" Name="SaveButton" >
<b><font Color="MEDIUMPURPLE">转存汇总报表</font></b>
</button>&nbsp;&nbsp;
<button AccessKey="X" class="AgreeButton" style="width:90;height:30;background-color=LIGHTGREY" Onclick="window.close();">
<b><font Color="Black">关闭退出</font></b>
</button>
</td>
</tr>
</table>
</body>
</html>