分页的问题rs.absolutepage=page 出错

[xiongyi20]

<% if Session("exemple_status") <> "login" then response.redirect "login.asp" %>
<%
Response.expires = 0
Response.expiresabsolute = Now() - 1
Response.addHeader "pragma", "no-cache"
Response.addHeader "cache-control", "private"
Response.CacheControl = "no-cache"
%>
<!--#include file="conn.asp"-->




<!--#include file="header.asp"-->
<table width="100%" border="0" cellspacing="0" cellpadding="0" bgcolor="#336699"><tr><td>
<img src="images/bnrlist.gif" alt="" width="400" height="30" border="0"></td></tr></table>
<%

sql = "select * from form1 where order by id desc"
set rs = server.CreateObject("adodb.recordset")
rs.open sql,con,1
rs.pagesize = 2 '设置每页显示2条记录
page = CLng(request("page"))'返回当前所在的页数
if page < 1 then page = 1
if page > rs.pagecount then page = rs.pagecount
rs.absolutepage=page --------------------------------------------------------------------------- 这里报错

'显示当前页面的记录
for ipage = 1 to rs.pagesize
recno = (page-1)*rs.pagesize +ipage
%>
</form>
<form name="form1" method="post" action="">
<table width="200" height="155" border="1" align="center">
<tr>
<td><div align="left">姓名:<%=rs("name")%></div> <div align="left"></div></td>
<td><div align="left"><a href="deletebook.asp?id=<%=rs("id")%>">删除</a></div></td>
</tr>
<tr>
<td colspan="2">电话:<%=rs("tel")%></td>
</tr>
<tr>
<td height="81" colspan="2" align="left" valign="top">留言:<%=rs("concent")%></td>
</tr>
<%
rs.movenext
if rs.eof then exit for '如果已经到了记录 末尾，则应该提前跳出循环
next
%>
</table>
<p align=center>
<%
'显示第一页，上一页，下一页，最后一页的信息及创建有效的链接
'if page <> 1 then
response.write("<a href='guestbooklist.asp?page=1'>第一页</a> ")
response.write("<a href='guestbooklist.asp?page=" & (page-1) &"'>上一页</a> ")
response.write("<a href='guestbooklist.asp?page=" & (page+1) &"'>下一页</a> ")
response.write("<a href='guestbooklist.asp?page="& rs.pagecount &"'>最后一页</a> ")
response.write("页数:" & page & "/" & rs.pagecount)
rs.close()
con.close()


%>
</p>
</form>
<!--#include file="footer.asp"-->

[xiongyi20]

有人吗？

[metyph]

转成int类型
rs.absolutepage=CInt(page)

[zhenmeiyisi]

rs.open sql,con,1

--后 加个 判断
if not rs.eof then

你的代码

end if

[xiongyi20]

转换类型依然出错
楼上的谢谢拉
调试成功

[xiongyi20]

如何给分？？