UC知道asp分页显示上的问题
来源：百度知道 编辑：UC知道 时间：2024/05/10 08:20:43
我想做的这个分页显示不知道为什么每页显示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>发表人
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>发表人
你应该把这一堆放在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
————————————————————————
因为每页的数据数量应该先被指定，然后在设定页码。
拜托在读取记录集之前，就把 rs.PageSize 属性设置好。
<% if not rs.eof then '如果数据库内容不为空执行
rs.PageSize = 24 '****先把此属性设置好，在读取记录集*****
rs.AbsolutePage=page '设置游标指针当前页为请求页 这个属性是分页中最重要的属性了.
for i=1 to rs.PageSize '循环读取输出每条信息
wishing_matter=left (rs("新闻题目"),30) %>