<!--#include file="odbc_connection.asp"-->
<html>
<head>
<title>查看留言</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type="text/css">
<!--
td {
font-size: 9pt;
}
-->
</style>
<style type="text/css">
<!--
a:link {
font-size: 9pt;
color: #000000;
text-decoration: none;
}
a:hover {
font-size: 9pt;
color: #FF0000;
}
a:visited {
font-size: 9pt;
color: #000000;
text-decoration: none;
}
.样式1 {color: #FFFFFF}
-->
</style>
</head>
<body>
<table width="625" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td><table width="96%" height="35" border="0" align="center" cellpadding="0" cellspacing="0" background="../image/zxly.jpg">
<tr>
<td width="86%" height="35" background="images/zxly.jpg">
<div align="center"></div></td>
<td width="14%"><font color="#FF3300"><strong><a href="index.asp">我 要 留 言</a></strong></font></td>
</tr>
</table></td>
</tr>
<tr>
<td>
<%
'ÏÖÔÚ¿ªÊ¼ÏÔʾÒÑÓÐÁôÑÔ
Dim Sql,rs 'ÉùÃ÷±äÁ¿
Sql="Select * From guest "
Sql=Sql & " Order By submit_date desc,guest_id desc" 'ÕâÀïÓÃÁËÁ½¸ö×Ö¶ÎÅÅÐò
SET rs=db.Execute(Sql) '·µ»ØÒ»¸öRecordset¶ÔÏó
If Not rs.Bof And Not rs.Eof Then 'Èç¹ûÓмǼ£¬¾Í½Ó×ÅÖ´ÐÐ
%>
<center>
<table border="0" bordercolor="#8800FF" width="625">
<%
Do While Not rs.Eof 'ÀûÓÃÑ­»·ÒÀ´ÎÏÔʾËùÓмǼ
%>
<tr>
<td width="619" ><table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" class="box1">
<tr bgcolor="#4279c2">
<td width="24%" height="17">
<div align="center"><font color="#FFFFFF">客户姓名及单位：</font></div></td>
<td width="38%"><a href="mailto:<%=rs("email")%>"><font color="#FFFFFF"><%=rs("name")%></font></a></td>
<td width="13%">
<div align="left"><font color="#FFFFFF">联系方式</font></div></td>
<td width="25%"><font color="#FFFFFF"><%=rs("lxfs")%></font></td>
</tr>
<tr bgcolor="#E7F0FF">
<td><div align="center">客户留言主题：</div></td>
<td colspan="3"><%=rs("title")%></td>
</tr>
<tr bgcolor="#E7F0FF">
<td>
<div align="center">客户留言内容：</div></td>
<td colspan="3"><%=rs("body")%></td>
</tr>
<tr bgcolor="#E7F0FF">
<td>
<div align="center">客户留言时间：</div></td>
<td colspan="3"><%=rs("submit_date")%></td>
</tr>
<tr bgcolor="#e6faff">
<td> </td>
<td colspan="3"><% reply=rs("reply")
if reply<>"" then%>
<hr size=1>
<font color="#000000">版主回复：</font><font color=#FF0000><%=reply%></font>
<%end if%></td>
</tr>
<tr>
<td> </td>
<td colspan="3">
<div align="right"><font color="#FF0000"><a href="hfly.asp?id=<%=rs("guest_id")%>">回复留言</a></font> <font color="#000000"><a href="delete.asp?guest_id=<%=rs("guest_id")%>">删除留言</a></font> </div></td>
</tr>
</table></td>
</tr>
<%
rs.MoveNext '½«¼Ç¼ָÕëÒƶ¯µ½ÏÂÒ»Ìõ¼Ç¼
Loop
rs.Close 'Ö´ÐÐÍê±Ï£¬¹Ø±Õrecordset¶ÔÏó
db.Close 'Ö´ÐÐÍê±Ï£¬¹Ø±Õconnection¶ÔÏó
%>
</table>
</center>
<%End If %>
</td>
</tr>
</table>
</body>
</html>
想给上面这个页面加上分页的功能，怎么实现
