<%set rs1 = server.CreateObject("adodb.recordset") sql="[book] order by book_id desc" rs1.PageSize = 5 '这里设定每页显示的记录数 rs1.CursorLocation = 3 rs1.Open sql,conn,2,1 '这里执行你查询SQL并获得结果记录集 pre = true last = true page = trim(safeRequest("page",1)) if len(page) = 0 then intpage = 1 pre = false else if cint(page) =< 1 then intpage = 1 pre = false else if cint(page) >= rs1.PageCount then intpage = rs1.PageCount last = false else intpage = cint(page) end if end if end if if not rs1.eof then rs1.AbsolutePage = intpage end if for i=1 to rs1.PageSize if rs1.EOF or rs1.BOF then exit for %>

No:<%=rs1("book_id")%>       <%=outhtml(rs1("book_title"))%>
[">mail] [>QQ] [">web] [<%=month(rs1("book_date"))%>-<%=day(rs1("book_date"))%>]	.gif" width="77" height="77"> <%=outhtml(rs1("book_name"))%>
<%=outhtml(rs1("book_bz"))%>
管理员回复： <%if isnull(rs1("book_rs")) then rrs="暂无回复" else rrs=outhtml(rs1("book_rs")) end if %><%=rrs%>

<% rs1.movenext next %> <%if rs1.pagecount > 0 then%> <%else%> <%end if%>

当前页<%=intpage%>/<%=rs1.PageCount%>	当前页0/0	首页| <%if pre then%> 上页| <%end if%> <%if last then%> 下页 |<%end if%> 尾页|转到第 <% for i = 1 to rs1.PageCount if i = intpage then%> <%=i%> <%else%> <%=i%> <% end if next %> 页