下面这段代码是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%> <% 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
%>