请教高手:如何让留言本记录分页显示? - ASP技术论坛

静静听风

等　级：新手上路
帖　子：25
专家分：0
注　册：2007-12-13

楼主

问题点数：0 回复次数：4

请教高手:如何让留言本记录分页显示?

'下面是我加在留言本首页的代码
<%
      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>

运行后结果还是没有分页,但当前页和留言总数显示出来了,
哪位高手指点一下,感激不尽.

搜索更多相关主题的帖子: 留言本　记录　

2007-12-16 17:09

yms123

等　级：版主
威　望：209
帖　子：12488
专家分：19042
注　册：2004-7-17

第 3 楼

得分:0

[url]http://bbs.[/url]
楼主可以使用我写的这个分页类。

2007-12-16 18:31

yms123

等　级：版主
威　望：209
帖　子：12488
专家分：19042
注　册：2004-7-17

第 5 楼

得分:0

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">

<%
’声明数据库记录集对象
Dim rsano
’创建数据库记录集对象
Set rsano=Server.CreateObject("ADODB.Recordset")
’设定数据库记录集游标类型
rsano.cursortype=3
’打开记录集对象
rsano.Open "select * From ANOUCE ORDER BY AnnounceTheDate DESC",con
’设定每页显示记录数
rsano.pagesize=25
’得到请求的页号
page=clng(request("page"))
IF request("page")<>"" then
page=clng(request("page"))
Else
page=1
End IF
IF page<1 Then page=1
If page>rsano.pagecount Then page=rsano.pagecount
rsano.absolutepage=page
%>
<title><%=oWebI.WebName%>-网站公告页面</title>

<style type="text/css">

</style>
<STYLE type=text/css>
A {
TEXT-TRANSFORM: none; TEXT-DECORATION: none
}
UNKNOWN {
TEXT-DECORATION: underline
}
.style22 {font-size: 12px}
.style16 {font-size: 14px}
BODY {
}
</STYLE>
</head>

<BODY>

<table width="294" height="46" border="0" cellspacing="0">
<tr>
<td width="338"><div align="center" class="style22">公告标题</div></td>
<td width="95"><div align="center" class="style22">发布日期</div></td>
</tr>
<%
’定义循环变量
dim iPage
For iPage=1 to rsano.Pagesize
’recno=(page-1)*rsano.pagesize+ipage记录编号计算公式
Response.Write("<tr>")
Response.write("<td><span class=style16><a href=announceview.asp?anbh="&rsano.Fields(0).Value&" target=_self>"&rsano.Fields(1).Value&"</a></span></td>")
Response.Write("<td><span class=style22>"&FormatDateTime(rsano.Fields(4).Value,2)&"</span></td>")
Response.Write("</tr>")
rsano.MoveNext
IF rsano.EOF Then
Exit For
End If
Next
%>
</table>
<table width="293" border="0">
<tr>
<%
’翻页控制代码
IF page<>1 Then
Response.Write("<td><span class=style22><a href=announce.asp?page=1>第一页</a></span></td>")
Response.Write("<td><span class=style22><a href=announce.asp?page="&(page-1)&">上一页</a></span></td>")
Else
Response.Write("<td><span class=style22>第一页</span></td>")
Response.Write("<td><span class=style22>上一页</span></td>")
End IF
IF page<>rsano.pagecount then
Response.Write("<td><span class=style22><a href=announce.asp?page=" & (page+1) & ">下一页</a></span></td>")
Response.Write("<td><span class=style22><a href=announce.asp?page=" & rsano.pagecount & ">最后一页</a></span></td>")
Else
Response.Write("<td><span class=style22>下一页</span></td>")
Response.Write("<td><span class=style22>最后一页</span></td>")
End IF
%>
<td><span class=style22>共<%=rsano.pagecount%>页</span></td>
<td><span class=style22>当前第<%=page%>页</span></td>
</tr>
</table>
<%
’网页对象析构代码
rsano.Close
con.Close
Set rsano=Nothing
Set con=Nothing
%>
</body>
</html>
这个分页代码够简单的了，其实哪个分页类的内容对于楼主可能复杂了一些。但是那个类的调用应该很简单的，几部代码就完成了调用，用起来是没有问题的。

2007-12-16 21:03