Question

BOF 或 EOF 中有一个是“真”，或者当前的记录已被删除，所需的操作要求一个当前的记录。

问题 在百度百了一个多星期都找不到答案~！搜出来的贴子都是牛头不对马嘴的；SO 只能来只问问看了|~！

情况是这样的：
-----------------这是错误提示---------------------
错误 '800a0bcd'
BOF 或 EOF 中有一个是“真”，或者当前的记录已被删除，所需的操作要求一个当前的记录。
Supergrp/Admin/Info/ContributionList.asp行 99
-----------------这是错误提示---------------------

代码就应该没错了~！因为我有其他页面也是用“ContributionList.asp”这一页的。。而且这个网站有好几年历史了~！
我自己认为是数据库出错，因为好几年的垃圾都没清。但是清完也依然如上；就一个供应信息的错，其他采购信息等同样是用“ContributionList.asp”但却没错~！所以我很肯定是数据库出错~！
但找了一个多礼拜都没找出来~！
所以希望有经验的F们帮帮忙～！
－－－－－－－－－这里是提示出错的代码－－－－－－－－－－－－－
<%
if AllowContributionTF = True then
Set RsNewsObj = Conn.Execute(NewsSql)
Dim News_For_Var
News_For_Var = 0
do while Not RsNewsObj.Eof
ClassCName=conn.execute("select CCN from GM_NCs where CsID='" & RsNewsObj("Csid") & "'")(0)
if RsNewsObj("Slid")<>"" then
SpecialCName=conn.execute("select CN from GM_Sl where SlID='" & RsNewsObj("Slid") & "'")(0)
else
SpecialCName="——"
end if
News_For_Var = News_For_Var +1
dim clr2,PicStr
if News_For_Var mod 2 then
clr2="white"
else
clr2="#f8f8f8"
end if
if RsNewsObj("PicPath")<>"" then
PicStr = "../../Images/Info/PicNews.gif"
else
PicStr = "../../Images/Info/WordNews.gif"
end if

%>
－－－－－－－－－这里是提示出错的代码－－－－－－－－－－－－－
不好意思~！没写清楚

这行是99行；
SpecialCName=conn.execute("select CN from GM_Sl where SlID='" & RsNewsObj("Slid") & "'")(0)

还有就是。。当我把那个存数据的表删掉一些就恢复正常，有时删剩10几条记录恢复正常，但有时删剩3条才恢复正常~！

Answer 1

1、首先新建一个209.php，如图所示。

2、接着输入php网页的结构(<?php?>)，声明PHP与浏览器交互的文件类型和编码，如图所示。

3、定界符 EOF 的作用：按照原样，包括换行格式什么的，输出在其内部的东西，使用概述如图所示。

4、EOF 的应用实例，代码如下所示。

5、运行网页，输出变量 $a，查看结果，代码：echo $a，就完成了。

Answer 2

你所以说的错误到底是哪一行？通常“EOf或bof中有一个是“真”，或者当前的记录已被删除”这样的提示，是因为它根据你的SQL语句查找不到与where 后面条件相吻合的，例如"select * from tablea where id=2030",表tablea里的id列中没有2030的值，就会出现这样的提示。如果你想查2030是否存在表tablea中的id列里，你最好加上代码"if RsNewsObj.Eof or RsNewsObj.bof then "加上找不到相吻合条件的执行代码，这样就不会报错

Answer 3

从代码来看,真不知道你的第99行是代码中的哪一行.
根据经验,一般是SQL语句出错(比如使用了不存在的字段或表)
查一下你之前是否改动过数据库的结构(表名,字段名,字段类型)