<%if session("admin")="" then Response.Redirect("login.asp") end if%> <% exec="select * from book order by id desc" set rs=server.createobject("adodb.recordset") rs.open exec,conn,1,3 %> <% rs.PageSize=4'第页要显示的条数 '开始判断是否有要搜索的结果 if rs.eof and rs.bof then Response.Write("") Response.end end if '判断结束 pagecount=rs.PageCount '总条数 page=int(request.QueryString ("page")) if page<=0 then page=1 if page>pagecount then page=pagecount if request.QueryString("page")="" then page=1 end if rs.AbsolutePage=page %>

管理员:<%=session("admin")%>

<%for i=1 to rs.PageSize%> <%if rs.EOF then exit for end if%>

呢称：	<%=rs("name")%>	">回复	">删除
QQ：	<%=rs("qq")%>
Email：	<%=rs("email")%>
主题：	<%=rs("title")%>
内容：	<%=rs("content")%>
回复：	<%if rs("back")<>"" then Response.Write(""&rs("back")&"") else Response.Write("暂无回复") end if%>
发布时间：	<%=rs("date")%>

<%rs.movenext next%>

共有<%=rs.pagecount%>页第<%=page%>页每页<%=rs.pagesize%>条共有<%=rs.recordcount%>条第一页上一页下一页最后一页