Question

高手帮我看看这段代码,请教我一个解决办法,不胜感激

下面这段代码为什么提示:
错误类型：
ADODB.Field (0x800A0BCD)
BOF 或 EOF 中有一个是“真”，或者当前的记录已被删除，所需的操作要求一个当前的记录。请教我一个解决方法,,谢谢

'首页信息分类显示
sub xlist()
Set rs = Server.CreateObject("ADODB.Recordset")
Sql="select top 10 id,class1 from class1 order by paixu desc"
rs.open sql,conn,1,1
If rs.eof Then
Response.Write("请先添加分类")
End If
kk=0
%>
<table border=0 width="100%" bgcolor="#FFFFFF">
<%while not rs.eof
kk=kk+1%>
<tr>
<%
for k=0 to 1
class1=rs("id")
set rs_n=conn.execute("select count(class1) from xinxi where class1="&class1&"")
%>
<td valign=top width=369>
<table width="369" border="0" cellpadding="0" cellspacing="0" background="img/centertitlebg.jpg">
<tr>
<td width="149" height="36" valign="top"><A href="info.asp?/=<%=rs(0)%>&cnmai=1">
<div class="infoft"><%=rs(1)%></div></A></td>
<td width="107" valign="top"><div class="infoft2">共<%=rs_n(0)%>条信息</div></td>
<td width="53"><a href="axx.asp">立即发布</a></td>
<td width="60">｜<A href="info.asp?/=<%=rs(0)%>&cnmai=1">>>更多</a></td>
</tr>
</table>
<%

Answer 1

出现这样的提示，无非是因为查询没有结果，但仍然试图输出导致的错误。
解决方法：
1、在该停的地方停止输出：
在
Response.Write("请先添加分类")
之后添加
Response.End()

2、在输出数据前检查游标是否有内容

你的代码不全，不知道到底什么地方有问题。