求 BOF 或 EOF 中有一个是“真”，或者当前的记录已被删除 的

东东

错误类型：
ADODB.Field (0x800A0BCD)
BOF 或 EOF 中有一个是“真”，或者当前的记录已被删除，所需的操作要求一个当前的记录。

请问是什么原因？如何解决？附：原代码如下。

<%
sql="Select * from Xue_Category"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
Do While Not Rs.eof and Not Rs.bof

CName=rs("CategoryName")
'response.write""
TCount=conn.Execute("Select count(Category) From Xue_News where Category='"&cname&"' group by Category order by Category")(0)
rs("CategorySum")=TCount
Rs.MoveNext
loop
Rs.Close  
set rs=nothing

response.write""
response.end
%>

弱电之家

原因应该是您的数据中没有相应查询的数据，这样就造成了SQL查询的错误，处理方法如下：

sql="Select * from Xue_Class"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
Do While Not Rs.eof and Not Rs.bof
CName=rs("ClassName")
'response.write""
on error resume next
TCount=conn.Execute("Select count(ClassName) From Xue_News where ClassName='"&cname&"' group by ClassName order by ClassName")(0)
if err then
rs("ClassSum")=0 '无数据时，自动符值0
else
rs("ClassSum")=TCount
end if
Rs.MoveNext
loop
Rs.Close  
set rs=nothing

注意红色部分的处理代码。如果有错误（其实是没有记录，即统计=0），则自动符值=0