谁能帮我为这段程序添加分页显示数据记录代码?
<%
Set Cnn = Server.CreateObject("ADODB.Connection")
StrCnn = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" &
Server.MapPath("bbs.mdb;")
Cnn.Open StrCnn
set rs=Server.CreateObject("ADODB.recordset")
sql = "SELECT * FROM message "
rs.open sql,cnn,1,1%>
<table width="600" border="1" bgcolor="#00CCFF" bordercolor="#FFFFFF">
<tr>
<%for i=0 to rs.fields.count-1%>
<td><b><%=rs(i).name%></b></td>
<%next%>
</tr>
<%do while not rs.eof%>
<tr>
<%for i=0 to rs.fields.count-1%>
<td><%=rs(i)%></td>
<%next%>
</tr>
<%rs.movenext
loop %>
</table><br>
共有<%=rs.recordcount%>条记录
<%rs.close
cnn.close%>
<%Response.Write Server.MapPath("bbs.mdb")
Response.Write "数据库连接成功: " & Cnn.State & "<br>"%>