我也遇到过这样的问题，
可能是和数据的打开方式有关，
比如我用
rs.open sql,conn,3,2
打开sql数据库的时候
rs.recordcount返回的是-1

rs.open sql,conn,3,1
rs.recordcount就返回正确了。

你是说要让打开的方式支持
rs.absolutepage
我以前看过王国荣的书上说只有打开方式为
rs.open sql,conn,3,2的时候支持
rs.absolutepage
要不你试试。
但是这个时候好像在SQL里面rs.recordcount返回为-1

我最早就是用的1,1，结果不行，换了3,2还是不行，根据QQ上的网友建议，也换过其他值，问题依旧……我被它打败了:(

估计问题出在别的地方，我再找找别的

在反复尝试过程中，终于把这个问题解决了。原来在用1,1打开时，rs.AbsolutePage只能写不能读（现在还没有试出来什么情况下可读）！

像蓝色写的那样，先用一个变量取得当前页，再把它赋给rs.AbsolutePage就行了。

我在写开发日志时的相关代码如下：

'之前相关对象已创建，所有变量已声明
'...
set rsLog = Server.CreateObject("ADODB.Recordset")
strSQL="Select * from tbLog Order by fTime DESC"
rsLog.open strSQL,conn,1,1
if rsLog.bof and rsLog.eof then
'
'此处处理无记录情况，略去
'
end if
intRecordCount=rsLog.RecordCount
pgsize = 8
if len(request("pagesize"))>0 then pgsize = CInt(request("pagesize"))
if pgsize>intRecordCount then pgsize=intRecordCount
rsLog.PageSize=pgsize
intPageCount=rsLog.PageCount
intPage=1
if len(request("pagenum"))>0 then intPage = CInt(request("pagenum"))
if intPage>intPageCount then intPage=intPageCount
rsLog.AbsolutePage = intPage
RowCount = pgsize
%>
……HTML代码，略去
<%Do While not rsLog.eof and RowCount > 0

'此处处理记录

<%
rsLog.movenext
RowCount = RowCount - 1
loop%>

'下面的代码输出导航页次

<%
Response.write "

全部日志"
if rsLog.pagecount=1 then
    Response.write"只有 1 页，"
else
    Response.write"共有 "& intPageCount &" 页，"
end if
response.write intRecordCount &" 条记录。"
if rsLog.pagecount > 1 then
    Response.write "此为第 "& intPage &" 页，此页显示 "& pgsize-RowCount &" 条（"& (intPage-1)*pgsize+1 & "~" & intPage*pgsize-RowCount &"）日志：
"
    if intpage>1 then response.write "[ |< ][ < ]"
    dim i
    for i=1 to intPageCount
        if i=intPage then
            Response.write "[ "& i &" ]"    
        else
            Response.write "[ " & i & " ]"
        end if
    next
    if intpage[ > ][ |> ]"
end if
response.write "

"
%>

手写的，有些乱:D

显示效果如下：

我上面贴的一段代码是在INTERDEV里面用可视化编程做出来的。
它的代码很长。
你只要把它拷回去在INTERDEV里面打开就可以看见三个服务器端的组件了。
中间的GRID组件很轻松的解决了分页显示的问题。
如果没有办法正常显示的话。
可能你的INTERDEV要安装扩展功能。