主题:  帮忙看一下分页代码

yukous
职务：普通成员
等级：1
金币：0.0
发贴：76
注册：2003/5/16 11:53:27
#12003/10/9 11:13:03
为什么我的这个分页代码只能显示第一页的8条记录？点击下页的时候就是空页，没有记录？请高手帮我看看！！小弟不是不想动脑筋，真的是不知道哪的问题！谢谢了！！

<%
    set rs=server.CreateObject("ADODB.Recordset")
    sql="select * from gongy where cate='"& request.QueryString("cate") &"'"
    rs.open sql,conn
    page=1 ' 设置变量PAGE=1
rs.PageSize = 8'每页显示记录数
if Not IsEmpty(Request("Page")) then '如果PAGE已经初始化...
Page = CInt(Request("Page")) '接收PAGE并化为数字型赋给PAGE变量
if Page > rst.PageCount then '如果接收的页数大于总页数
rs.AbsolutePage = rs.PageCount '设置当前显示页等于最后页
elseif Page <= 0 then '如果page小于等于0
Page = 1 '设置PAGE等于第一页
else
rs.AbsolutePage = Page '如果大于零,显示当前页等于接收的页数
end if
End if
intCurPage = rs.AbsolutePage
%>
<%

For i = 1 to rs.PageSize
if rs.eOF then
Exit For
end if '利用for next 循环依次读出记录

%>

















信息种类： 
信息主题：  <%=rs("title")%> 
发布时间：  (<%=date()%>) 发布人：
主要内容：   
<%=replace(replace(replace(replace(rs("content"),"<","<"),">",">"),chr(13),"
")," "," ")%>



<%
     rs.movenext
    next
    %>







  <%if page<>1 then%>首页 上一页 <% end if %><%if page<>rs.pagecount then %>下一页 尾页 <% end if %>