Question

asp分页显示上的问题

我想做的这个分页显示不知道为什么每页显示10条记录，不满10条记录的就不显示了，而且只显示两页，可能我在表达上有不明确的地方，请看我的代码：希望高手帮忙修改一下。谢谢您！<%
dim page
dim nowpage
dim nextpage
dim backpage '定义请求页,当前页面,下一页,上一页变量
page=Request("page")'接收当前页传给变量
if page="" then '判断请求页是否为空，如果为空，则默认为第一页--BEGIN
page=1
else
page=Request("page")
end if 'END
set rs=server.createobject("adodb.recordset")
rs.open "Select * From news Order By id desc",conn,1,1'读取数据库内容信息 注意最后2个1,键集模式是必须的,而不仅仅是readonly

%>
<tr valign="top">
<td height="314" colspan="2" valign="top"><table width="100%" border="0">
<tr>
<td><font color="#FF6600"><strong>新闻题目</strong> </font></td>
<td><font color="#FF6600"><strong>发表人</strong></font> </td>
<td><font color="#FF6600"><strong>发表时间 </strong></font></td>
</tr>
<% if not rs.eof then '如果数据库内容不为空执行
rs.AbsolutePage=page '设置游标指针当前页为请求页 这个属性是分页中最重要的属性了.
for i=1 to rs.PageSize '循环读取输出每条信息
wishing_matter=left (rs("新闻题目"),30) %>
<tr>
<td><a href="staffnotee.asp?id=<% =rs("id") %>">*
<%=wishing_matter%></a> </td>
<td><%= rs("发表人") %> </td>
<td><%= rs("发表时间") %> </td>

</tr><tr>
<%
rs.movenext
if rs.EOF Then Exit For
next
else
%>
暂无内容
<% end if %>

<%
rs.PageSize=24'设置每页显示条数。当前设置为3条
nowpage="staffnote.asp"'当前页面名称，
nextpage=page+1'下一页
if nextpage>rs.pagecount then '如果下一页大于逻辑分页，则返回最后一页
nextpage=page
end if
backpage=page-1'上一页
if backpage=0 then '如果上一页为0，则返回上一页为第一页
backpage=1
end if

%>
<%
rs.PageSize=24'设置每页显示条数。当前设置为3条
nowpage="staffnote.asp"'当前页面名称，
nextpage=page+1'下一页
if nextpage>rs.pagecount then '如果下一页大于逻辑分页，则返回最后一页
nextpage=page
end if
backpage=page-1'上一页
if backpage=0 then '如果上一页为0，则返回上一页为第一页
backpage=1
end if
%>
<tr> <td width="500"><%

if page=1 then '第二种以分页前进后退方式输出分页链接，
%>
第一页 上一页 <a href="<%=nowpage%>?page=<%=nextpage%>">下一页</a> <a href="<%=nowpage%>?page=<%=rs.pagecount%>">最后一页</a>
<%=page %>页/<%= rs.pagecount %>页 共有<%= rs.recordcount%>条记录
<%
else
if page<>rs.pagecount then
%>
<a href="<%=nowpage%>?page=1"> 第一页</a> <a href="<%=nowpage%>?page=<%=backpage%>">上一页
</a> <a href="<%=nowpage%>?page=<%=nextpage%>">下一页</a> <a href="<%=nowpage%>?page=<%=rs.pagecount%>">最后一页</a>
<%=page %>页/<%= rs.pagecount %>页 共有<%= rs.recordcount%>条记录
<%
end if
end if
%></td></tr>
</table>

Answer 1

你应该把这一堆放在rs.open之后
rs.PageSize=24'设置每页显示条数。当前设置为3条
nowpage="staffnote.asp"'当前页面名称，
nextpage=page+1'下一页
if nextpage>rs.pagecount then '如果下一页大于逻辑分页，则返回最后一页
nextpage=page
end if
backpage=page-1'上一页
if backpage=0 then '如果上一页为0，则返回上一页为第一页
backpage=1
end if
————————————————————————
因为每页的数据数量应该先被指定，然后在设定页码。

Answer 2

拜托在读取记录集之前，就把 rs.PageSize 属性设置好。

<% if not rs.eof then '如果数据库内容不为空执行
rs.PageSize = 24 '****先把此属性设置好，在读取记录集*****
rs.AbsolutePage=page '设置游标指针当前页为请求页 这个属性是分页中最重要的属性了.
for i=1 to rs.PageSize '循环读取输出每条信息
wishing_matter=left (rs("新闻题目"),30) %>