Question

ASP留言板怎么让它每页只显示10条留言？

<%
dim rs,msg_per_page
dim sql
msg_per_page = 10 '每页显示记录数
Set rs=Server.CreateObject("ADODB.Recordset")
sql="select * from Feedback where del=false order by top desc, PostDate desc"

rs.cursorlocation = 3
rs.pagesize = msg_per_page '每页显示记录数
rs.open sql,conn,1,1

if rs.eof and rs.bof then
response.write "<tr><td colspan=6 align=center height=50>暂时没有留言</td></tr>"
end if

if not (rs.eof and rs.bof) then '检测记录集是否为空
totalrec = RS.RecordCount '总记录条数
if rs.recordcount mod msg_per_page = 0 then '计算总页数,recordcount:数据的总记录数
n = rs.recordcount\msg_per_page 'n:总页数
else
这是代码 具体改哪里？

Answer 1

<%set rs=server.CreateObject("adodb.recordset")
sql="select * from [session] order by id Desc"
rs.open sql,conn,1,3
%>
<%
rs.pagesize=10'这个是显示最新的10条记录，可以按自己需要改
curpage=Request.QueryString("curpage")'记录页码数
if curpage="" then curpage=1'如果为空就让它为1，不可能要它0页嘛
if rs.bof and rs.eof then'判断数据库有没有记录，没有就下面
response.Write("暂时没有客户反馈")
else
rs.AbsolutePage=curpage '记录当前页码
for i= 1 to rs.pagesize'循环，从1到当前页码
if rs.eof then'如果到最后一条记录，退出循环
exit for
end if
%>
这段放到你要显示的地方<tr>前面
<%
rs.movenext
next
end if
%>
这段放到上面那个的</tr>前面
<div align="center" class="STYLE5" style="height:35px; padding-top:20px"> 共有<%=rs.pagecount%>页
当前第<%=curpage%>页
<%if curpage=1 then%>
首页
<%else%>
<a href="?curpage=1" class="a2">首页</a>
<%end if%>
<%if curpage<>1 then%>
<a href="?curpage=<%=curpage-1%>" class="a2">上一页</a>
<%end if%>
<%if rs.pagecount>=curpage+1 then%>
<a href="?curpage=<%=curpage+1%>" class="a2">下一页</a>
<%end if%>
<%if rs.pagecount<curpage+1 then%>
尾页
<%else%>
<a href="?curpage=<%=rs.pagecount%>" class="a2">尾页</a>
<%end if%>
</div>

这段放到你显示留言的那个表格的</table>前面