请教高手:如何让留言本记录分页显示?
'下面是我加在留言本首页的代码<%
set rst=server.createobject("adodb.recordset")
sql="select * from book order by id desc"
rst.open sql,conn,3,1 '此记录集用于显示留言记录
......
....
%>
<%
set rst=server.createobject("adodb.recordset") '此记录集用于分页
sql="select * from book order by id desc"
rst.open sql,conn,3,1
if Not(rst.bof and rst.eof) then'判别数据表中是否为空记录
NumRecord=rst.recordcount
rst.pagesize= 5
NumPage=rst.Pagecount
if request("page")=empty then
NoncePage=1
else
if Cint(request("page"))<1 then
NoncePage=1
else
NoncePage=request("page")
end if
if Cint(Trim(request("page")))>Cint(NumPage) then NoncePage=NumPage
end if
else
NumRecord=0
NumPage=0
NoncePage=0
end if
%>
<HTML>
.......
......
......
%do while not rs.eof%>
'下面是显示留言
<tr>
<td width="27%" height="30" style="border-style: dotted; border-width: 1px"><font color="#FFFFFF">?<%=rs("name")%>(<%=rs("sex")%>)</font></td>
<td height="30" width="42%" style="border-style: dotted; border-width: 1px"><font color="#FFFFFF">发表于:<%=rs("data")%></font></td>
<td height="30" width="26%" style="border-style: dotted; border-width: 1px"><font color="#FFFFFF">心情:<%=rs("xinqing")%></font></td>
</tr>
<tr>
<td width="27%" height="88" style="border-style: dotted; border-width: 1px"><%=rs("touxiang")%> </td>
<td height="88" colspan="2" align="left" valign="top" style="border-style: dotted; border-width: 1px">
<font color="#FFFFFF">留言内容:<br>
????????<%=rs("neir")%> </font></td>
</tr>
<tr>
<td width="27%" height="47" align="left" valign="top" rowspan="2">
<font color="#FFFFFF">QQ:<%=rs("qq")%><br>
TEL:<%=rs("tel")%><br>
主页:<a href="<%=rs("home")%>">查 看</a></font></td>
<td height="26" colspan="2"><font color="#800000"><%=rs("huifu")%></font></td>
</tr>
<tr>
<td height="19" colspan="2">?? <% if session("password")="wpassword" then %> <a href="reply.asp?id=<%=rs("id")%>" title="只有版主才有回复的权限">回复</a>??
<a href="del.asp?id=<%=rs("id")%>" title="只有版主才有删除留言的权限">删除</a>
<% end if %></td>
</tr>
<tr>
<td width="27%" height="9" bgcolor="#000000"></td>
<td height="9" bgcolor="#000000" colspan="2"></td>
</tr>
<%
rs.movenext
loop
%>
..........
...........
.............
<div style="position: absolute; width: 381px; height: 15px; z-index: 2; left: 277px; top: 21px" id="layer2">
<font color="#FFFFFF"><a href="guestbook1.asp?page=1">首页</a>|<a href="guestbook1.asp?page="&NoncePage-1&">上一页</a>|<a href="guestbook1.asp?page="&NoncePage+1&">下一页</a>|<a href="guestbook1.asp?page="&NumPage&">尾页</a>|此页为:<%=NoncePage%>|目前共有<%=NumRecord%>条留言</font></div>
</BODY></HTML>
运行后结果还是没有分页,但当前页和留言总数显示出来了,
哪位高手指点一下,感激不尽.
