主题:  请各位帮我看看这段循环哪里出错!

7877767

职务:普通成员
等级:2
金币:1.0
发贴:528
#12002/8/9 18:11:59
下面这段代码是1.asp包含在index.asp当中,我希望每页显示5个数据库的内容,但是循环读出来的5个内容都是数据库的同一条信息,希望帮我看看!
<%
dim page,i,ks
page = Clng(Request("usrpage"))
rs.PageSize = 5
If page <1 Then page = 1 end if
If page > rs.PageCount Then page = rs.PageCount end if
rs.AbsolutePage = page
%>


Untitled Document










<% if not rs.bof then %>
<% for i=1 to rs.pagesize%>




















   
 









onMouseOver="this.style.filter='alpha(opacity=100)'"
onmouseout="this.style.filter='alpha(opacity=70)'">
  <%=a_text%>
站点名称:<%=a_name%>...  
 



<%=a_url%>
 
 
  下页



<%
rs.movenext
If rs.eof Then Exit For
next
%>
<% end if %>










 






<% If page <> 1 Then %>
最前一页 上一页
<% end if %>
<% if page <> rs.PageCount Then %>
下一页 最后一页
<% end if %>
当前为<%= page %>
总共有<%= rs.pagecount %>





<% if not rs.bof then %>


            <% end if %>
            
 







<%
rs.close
set rs = nothing
conn.close
set conn = nothing
%>