高校问答暗黑血统2伤痕:大家快帮我解决个程序问题
来源：百度文库 编辑：高校问答 时间：2024/04/28 19:41:50
Sub View_Words()
Set Rs = Server.CreateObject("ADODB.RecordSet")
Sql="Select * From words Order By date Desc"
Rs.Open Sql,Conn,1,1
TotalRecord=Rs.RecordCount
Rs.PageSize = 10
PageSize = Rs.PageSize
PageCount=Rs.PageCount
If page="" Then
Rs.AbsolutePage = 1
Else
Rs.AbsolutePage = page
End If
这个部分程序错误提示：BOF 或 EOF 中有一个是“真”，或者当前的记录已被删除，所需的操作要求一个当前的记录。提示这行错误，请问怎么改，以前没问题，但我把数据库清空后就出现这样的问题，请大家帮我把程序补充下，谢谢
Set Rs = Server.CreateObject("ADODB.RecordSet")
Sql="Select * From words Order By date Desc"
Rs.Open Sql,Conn,1,1
TotalRecord=Rs.RecordCount
Rs.PageSize = 10
PageSize = Rs.PageSize
PageCount=Rs.PageCount
If page="" Then
Rs.AbsolutePage = 1
Else
Rs.AbsolutePage = page
End If
这个部分程序错误提示：BOF 或 EOF 中有一个是“真”，或者当前的记录已被删除，所需的操作要求一个当前的记录。提示这行错误，请问怎么改，以前没问题，但我把数据库清空后就出现这样的问题，请大家帮我把程序补充下，谢谢
加上一句
while not rs.eof and rs.bof
....
wend
数据库指针肯定不能指向空了,所以要么你可以判断是否删除的是最后一条记录,要么就不要删除了!