asp 递归查询数据库能实现分页显示吗,小弟极啊,那位哥哥帮帮忙啊

<%
rs.PageSize=5
zongye=rs.PageCount
page=int(request("page"))
if page<=0 then page=1
if zongye<5 then zongye=zongye
if request("page")="" then page=1
rs.AbsolutePage=page
%>
<%if rs.EOF and rs.BOF then
response.write("暂时没有内容")
else
for i=1 to rs.PageSize
%>
<%
rs.MoveNext
next
end if%>
<% if page=1 and not page=zongye Then%>
首页|上一页
<a href="cs.asp?page=<%=page+1%>">下一页</a>
<a href="cs.asp?page=<%=zongye%>">尾页</a>
<% elseif page<>1 and not page=zongye then%>
<a href="cs.asp?page=1">首页</a>
<a href="cs.asp?page=<%=page-1%>">上一页</a>
<a href="cs.asp?page=<%=page+1%>">下一页</a>
<a href="cs.asp?page=<%=zongye%>&