Microsoft VBScript 编译器错误 错误 '800a03f6'

缺少 'End'

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

ADODB.Recordset 错误 '800a0bcd'

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

/Muti E book/showbook.asp，行78

下面是简单的代码:


set rs=server.createobject("adodb.recordset")
sql="select * from lyb where admin='"&username&"' order by 时间 desc"
rs.open sql,conn,1,3

rs.pagesize=20

pageno=cint(request("pageno"))

rs.absolutepage=pageno

上面的代码,如果一到rs.absolutepage=pageno就会出现以上的错误提示,如果我把代码改成:
set rs=server.createobject("adodb.recordset")
sql="select * from lyb where admin='"&username&"' order by 时间 desc"
rs.open sql,conn,1,3

'''''添加此句之后一些正常
if rs.eof and rs.bof then
rs.close
response.write "No Record!"
response.end
end if

rs.pagesize=20

pageno=cint(request("pageno"))

rs.absolutepage=pageno


如果添加个IF语句,则一切正常显示,这个问题困扰了我很常时间了,请大家帮我解决解释一下,我不明白啊!~

改成这样看看:

if rs.eof or rs.bof then

也可以,也没有毛病,但按道理不用加

if rs.eof and rs.bof then
rs.close
response.write "No Record!"
response.end
end if

这个语句也应该没有问题!为什么?

出现这种问题一般是记录为空了

所以要先判断记录是否为空

绝对没有空,呵呵,我检查过,也用查询语言试验过,有N条记录!

if not rs.eof then
只做这个检测

你给我启发了,看来还是记录为空的问题,可能编写保存后IIS没有刷新,显示的结果和上次的一样,误导我了!

谢谢大家!

AbsolutePage 属性
指定当前记录所在的页。
设置和返回值
设置或返回从 1 到 Recordset 对象 (PageCount) 所含页数的长整型值，或者返回以下常量。
常量 说明
AdPosUnknown Recordset 为空，当前位置未知，或者提供者不支持 AbsolutePage 属性。
AdPosBOF 当前记录指针位于 BOF（即 BOF 属性为 True）。
AdPosEOF 当前记录指针位于 EOF（即 EOF 属性为 True）。

rs.absolutepage=pageno的设置是不是超过了结果集的范围了？

pageno是不是应该小于PageCount，我自己也没有试验过，只是推断一下，楼主可以把这两个显示出来比较一下。试试

[此贴子已经被作者于2006-6-26 11:55:14编辑过]