Microsoft VBScript 编译器错误 错误 '800a03f6' /iisHelp/common/500-100.asp，行242

[jilinppq]

Microsoft VBScript 编译器错误 错误 '800a03f6'
缺少 'End'

/iisHelp/common/500-100.asp，行242

ADODB.Connection 错误 '800a0e78'

对象关闭时，操作不被允许。

/index.asp，行74

index.asp源码如下：

<%

sql1="select top 5 * from article where classid=3 order by orders desc"
Set rs1=Conn.Execute(sql1)
do while not rs1.eof
dt1=replace(rs1("adddate")," ","@@@@")
dt1=trim(mid(dt1,3,8))
dt1=trim(replace(dt1,"@",""))
dt1=replace(dt1,"-",".")
%>

[wangjianliang]

do while not rs1.eof
dt1=replace(rs1("adddate")," ","@@@@")
dt1=trim(mid(dt1,3,8))
dt1=trim(replace(dt1,"@",""))
dt1=replace(dt1,"-",".")
----------------------------------

loop

[jhwcd]

到底是哪一行有错误呀，把代码贴的完整的一点。

[leizhoubin]

代码太少了

[feng_sundy]

一般是数据库没有打开，或者SQL错误，导致记录集无法打开

[jilinppq]

<!--#include file=top.htm -->
<table width="800" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="8" colspan="3" valign="top" bgcolor="#BE1F0F"></td>
</tr>
<tr>
<td width="210" height="487" valign="top" bgcolor="#BE1F0F"><table width="198" height="505" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="22" style="border-left:#FEDB97 solid 1px;border-top:#FEDB97 solid 1px;border-right:#FEDB97 solid 1px;border-bottom:#FEDB97 solid 1px; "><img src="images/zzb_003.jpg" width="198" height="22"></td>
</tr>
<tr>
<td height="70" align="center" valign="middle" bgcolor="#9E1A16" class="unnamed1" style="border-left:#FEDB97 solid 1px;border-right:#FEDB97 solid 1px;border-bottom:#FEDB97 solid 1px; "> <table width="100%" border="0" cellpadding="0" cellspacing="0" class="unnamed1">
<form name="form1" method="post" action="search.asp">
<tr>
<td width="23%" align="center" class="t1">关键字</td>
<td width="51%"><input name="keyword" type="text" id="keyword" class="b1" value="请输入文章标题" onFocus="this.value=''">
</td>
<td width="26%" align="center"><input name="imageField" type="image" src="images/zzb_004.jpg" width="35" height="16" border="0"></td>
</tr>
</form>
</table></td>
</tr>
<tr>
<td height="22" style="border-left:#FEDB97 solid 1px;border-right:#FEDB97 solid 1px;border-bottom:#FEDB97 solid 1px; "><img src="images/zzb_005.jpg" width="198" height="22"></td>
</tr>
<tr>
<td height="127" valign="top" bgcolor="#FFFFFF" style="border-left:#FEDB97 solid 1px;border-right:#FEDB97 solid 1px;border-bottom:#FEDB97 solid 1px; "><table width="96%" border="0" cellpadding="0" cellspacing="0" class="t3">
<tr>
<td colspan="2"> </td>
</tr>
<%

sql1="select top 5 * from article where classid=3 order by orders desc"
Set rs1=Conn.Execute(sql1)
do while not rs1.eof
dt1=replace(rs1("adddate")," ","@@@@")
dt1=trim(mid(dt1,3,8))
dt1=trim(replace(dt1,"@",""))
dt1=replace(dt1,"-",".")
%>

[windwl]

/index.asp，行74
是哪一行?

[jilinppq]

是这一行Set rs1=Conn.Execute(sql1)

[lanxijin]

<%

sql1="select top 5 * from article where classid=3 order by orders desc"
Set rs1=Conn.Execute(sql1)
do while not rs1.eof '没有结束do
dt1=replace(rs1("adddate")," ","@@@@")
dt1=trim(mid(dt1,3,8))
dt1=trim(replace(dt1,"@",""))
dt1=replace(dt1,"-",".")
%>
明显的语法错误
<%

sql1="select top 5 * from article where classid=3 order by orders desc"
Set rs1=Conn.Execute(sql1)
if not rs1.eof then
do while not rs1.eof
dt1=replace(rs1("adddate")," ","@@@@")
dt1=trim(mid(dt1,3,8))
dt1=trim(replace(dt1,"@",""))
dt1=replace(dt1,"-",".")
rs1.movenext
loop
else
respones.write "没有记录"
end if
rs1.close : set rs1nothing
%>

[lanxijin]

rs1.close : set rs1=nothing

[suminjie99]

我是初学者，我不知道conn.execute具体用在什么地方。
但是如果是我，我会这样写:
set rs1=server.createobject("adodb.recordset")
sql1="select top 5 * from article where classid=3 order by orders desc"
rs1.open conn,1,1
......
....
希望能帮到你。