江湖救急。一个分页程序

[popcom]

一个分页程序，老出错，请高手指点
<!--#INCLUDE FILE="conn.asp" -->
<%

exec="select * from mytable "
set rs=server.createobject("adodb.recordset")
//设置结果对象集
rs.open exec,my_conn,1,3


rs.PageSize=5
pagecount=rs.PageCount
page=int(request.QueryString ("page"))
if page<=0 then page=1
if request.QueryString("page")="" then
page=1
end if
rs.AbsolutePage=page //分页的时候，如果数据库内是空的话，就出错
//错位信息如下
//ADODB.Recordset 错误 '800a0bcd'
// BOF 或 EOF 中有一个是“真”，或者当前的记录已被删除，所需的操作要求一个当前的记录。
//adminteltype.asp，行41
//如果我把这句删除的话，分页就只能显示第一也，后面的都显示不了了



%>

<%for i=1 to rs.PageSize%>

<%if rs.EOF then
exit for
end if%>

<tr >
<td><%=rs("username")%></td>
</tr>



</td>
<%rs.movenext
next
%>
<tr>

<td colspan=9 align=right>
<%if page=1 and not page=pagecount then%>
<div align="right">第<%=page%>页  <%for i=1 to pagecount%>
<a href="adminteltype.asp?page=<%=i%>"><%=i%></a> <%next%><a href="adminteltype.asp?page=<%=page+1%>">下一页</a>  </div>
<%elseif page=pagecount and not page=1 then%>
<div align="right">第<%=page%>页   <%for i=1 to pagecount%>
<a href="adminteltype.asp?page=<%=i%>"><%=i%></a> <%next%><a href="adminteltype.asp?page=<%=page-1%>">上一页</a>  </div>
<%elseif page<1 then%><div class="font" align="right"><font color=red>没有任何记录！</font></div>
<%elseif page>pagecount then%><div class="font" align="right"><font color=red>没有任何记录！</font></div>
<%elseif page=1 and page=pagecount then%>
<%else%>
<div align="right">第<%=page%>页  <%for i=1 to pagecount%>
<a href="adminteltype.asp?page=<%=i%>"><%=i%></a> <%next%><a href="adminteltype.asp?page=<%=page-1%>">上一页</a>
<a href="adminteltype.asp?page=<%=page+1%>">下一页</a>  </div>
<%end if%>

</tr>
</tr>
</table>
<%


rs.close
set rs=nothing
my_conn.close
set my_conn=nothing

%>

[popcom]

感谢wyhkgd(自由天神) 对问题的解答，谢谢，问题解决

[popcom]

顶一下。

[gzwuyh]

再看看?
<!--#INCLUDE FILE="conn.asp" -->
<%

exec="select * from mytable "
set rs=server.createobject("adodb.recordset")
//设置结果对象集
rs.open exec,my_conn,1,3
if rs.eof then
response.write "没有可显示的记录"

else

rs.PageSize=5
pagecount=rs.PageCount
page=int(request.QueryString ("page"))
if page<=0 then page=1
if request.QueryString("page")="" then
page=1
end if
rs.AbsolutePage=page //分页的时候，如果数据库内是空的话，就出错
//错位信息如下
//ADODB.Recordset 错误 '800a0bcd'
// BOF 或 EOF 中有一个是“真”，或者当前的记录已被删除，所需的操作要求一个当前的记录。
//adminteltype.asp，行41
//如果我把这句删除的话，分页就只能显示第一也，后面的都显示不了了



%>

<%for i=1 to rs.PageSize%>

<%if rs.EOF then
exit for
end if%>

<tr >
<td><%=rs("username")%></td>
</tr>



</td>
<%rs.movenext
next
end if
%>
<tr>

<td colspan=9 align=right>
<%if page=1 and not page=pagecount then%>
<div align="right">第<%=page%>页  <%for i=1 to pagecount%>
<a href="adminteltype.asp?page=<%=i%>"><%=i%></a> <%next%><a href="adminteltype.asp?page=<%=page+1%>">下一页</a>  </div>
<%elseif page=pagecount and not page=1 then%>
<div align="right">第<%=page%>页   <%for i=1 to pagecount%>
<a href="adminteltype.asp?page=<%=i%>"><%=i%></a> <%next%><a href="adminteltype.asp?page=<%=page-1%>">上一页</a>  </div>
<%elseif page<1 then%><div class="font" align="right"><font color=red>没有任何记录！</font></div>
<%elseif page>pagecount then%><div class="font" align="right"><font color=red>没有任何记录！</font></div>
<%elseif page=1 and page=pagecount then%>
<%else%>
<div align="right">第<%=page%>页  <%for i=1 to pagecount%>
<a href="adminteltype.asp?page=<%=i%>"><%=i%></a> <%next%><a href="adminteltype.asp?page=<%=page-1%>">上一页</a>
<a href="adminteltype.asp?page=<%=page+1%>">下一页</a>  </div>
<%end if%>

</tr>
</tr>
</table>
<%


rs.close
set rs=nothing
my_conn.close
set my_conn=nothing

%>