Question

求救:ASP分页问题 ADODB.Recordset (0x800A0BB9)

我做了个分页的效果,当数据库里面没有数据的时候会显示ADODB.Recordset (0x800A0BB9)
参数类型不正确，或不在可以接受的范围之内，或与其他参数冲突。
错误行是rs.absolutepage=page

代码是:
<%
Sql="Select * From mymsg"
rs.Open Sql,Conn,1,3
rCount = rs.RecordCount
rs.pagesize=4
page=clng(request.QueryString("page"))
if page<1 then
page=1
end if
if page>rs.pagecount then
page=rs.pagecount
end if
rs.absolutepage=page
%>
<table>
<%
for i=1 to rs.pagesize
%>
<tr>
<td>
内容......
<td>
<tr>
<%
rs.MoveNext
If rs.EOF Then Exit For
Next
%>
</table>
我是个出初学者!请大家帮帮忙~~小弟在这里谢谢了~~~~
已经解决了~谢谢啊~~~~~~还是把分给你~~~呵呵~~~

Answer 1

<%
Sql="Select * From mymsg"
rs.Open Sql,Conn,1,3
rCount = rs.RecordCount
if request("page")="" then
page=1
else
page=cint(request("page"))
end if
rs.pagesize=4
if page=0 then page=1
if page>rs.pagecount then page=rs.pagecount
rs.absolutepage=page
if rs.eof then
response.write"暂无资料!"
else
%>
<table>
<%
for i=1 to rs.pagesize
%>
<tr>
<td>
内容......
<td>
<tr>
<%
rs.MoveNext
If rs.EOF Then Exit For
Next
%>
</table>
<%end if%>