程序代码：

<!--#include file="header.asp"-->
<div id="about">
  <h1>
  <p>最新客户服务项目</p>
  </h1>
<!--#include file="conn.asp"-->
<%
dim rs1,sql,allpage,allcount,page
set rs1=server.createobject("adodb.recordset")
sql="select * from Guest order by G_id desc"
rs1.open sql,conn,1,1
'每页多少条
rs1.pagesize=10
'总页数
allpage=rs1.pagecount
'总的记录条数
allcount=rs1.recordcount
page=request.QueryString("page")
'如果为空或者小于1那么page=1，如果当前页大于总页数那么page=总页数
if page="" or page<1 then page =1
if page>allpage then page=allpage
'当前页
rs1.absolutepage = page

 %>
<table width="900" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td width="54"><strong>ID</strong></td>
    <td width="81"><strong>姓名</strong></td>
    <td width="120"><strong>电话</strong></td>
    <td width="366"><strong>内容</strong></td>
    <td width="279"><strong>时间</strong></td>
  </tr>
<%
for i=1 to rs1.pagesize

 if rs1.eof then exit for 
%>
  <tr>
    <td height="30"><%= rs1("G_id") %></td>
    <td><%= rs1("G_username") %></td>
    <td><%= rs1("G_userphone") %></td>
    <td><%= rs1("G_usercontent") %></td>
    <td><%= rs1("G_time") %></td>
  </tr>
<%
rs1.movenext
next
%>
<p id="fy">总共有<%=allcount%>条记录|
   当前第<%=page%>页/共<%=allpage%>页|

 <a href="index.asp"> 首页|</a>

 <a href="index.asp?page=<%=page-1%>">上一页|</a>

 <a href="index.asp?page=<%=page+1%>">下一页|</a>

 <a href="index.asp?page=<%=allpage%>">尾页</a>
</p>
</table>
</div>
<!--#include file="footer.asp"-->