如何分页
偶在一个页面里加了一个读mdb现实出来的小程序，但不知道如何使它分页，如每10行就分，请详解，谢谢！

---------------连接代码
<!--   #include   file= "Conn.asp "   -->
<%
SQL   =   "Select   *   From   Main   Order   by   ID   desc "
Set   Rs   =   Server.CreateObject( "ADODB.RecordSet ")
Rs.Open   SQL,   Conn,   1,   1
%>
---------------以下为实现循环显示代码
<%
Do   While   Not   Rs.EOF
%>
<tr>
<td   width= "78 "   bgcolor= "#E6F0FF ">
<%=Rs( "name ")%> </td>
<td   width= "383 "   bgcolor= "#E6F0FF ">
<%=Rs( "dept ")%> </td>
<td   width= "96 "   bgcolor= "#E6F0FF ">
<%=Rs( "RegDate ")%> </td>
<%
Rs.MoveNext
Loop
CloseDataBase
%>

------解决方案--------------------
<!-- #include file= "Conn.asp " -->
<% '开始分页
Const MaxPerPage=10
dim totalPut
dim CurrentPage
dim TotalPages
dim j
dim sql
if Not isempty(request( "page ")) then
currentPage=Cint(request( "page "))
else
currentPage=1
end if
set rs=server.createobject( "adodb.recordset ")
rs.open "Select * From Main Order by ID desc ",conn,1,1

if err.number <> 0 then
response.write "数据库中无数据 "
end if

if rs.eof And rs.bof then
Response.Write " <p align= 'center ' class= 'contents '> 您还没有添加信息！ </p> "
else
totalPut=rs.recordcount

if currentpage <1 then
currentpage=1
end if

if (currentpage-1)*MaxPerPage> totalput then
if (totalPut mod MaxPerPage)=0 then
currentpage= totalPut \ MaxPerPage
else
currentpage= totalPut \ MaxPerPage + 1
end if
end if

if currentPage=1 then
showContent
showpage totalput,MaxPerPage, "你保存的文件名 " '此处要做相应的修改
else
if (currentPage-1)*MaxPerPage <totalPut then
rs.move (currentPage-1)*MaxPerPage
dim bookmark
bookmark=rs.bookmark
showContent
showpage totalput,MaxPerPage, "你保存的文件名 " '此处要做相应的修改
else
currentPage=1
showContent
showpage totalput,MaxPerPage, "你保存的文件名 " '此处要做相应的修改
end if
end if
end if


%>
<%

sub showContent
dim i
i=0%>
<%do while not rs.eof%>
<tr>
<td width= "78 " bgcolor= "#E6F0FF ">
<%=Rs( "name ")%> </td>
<td width= "383 " bgcolor= "#E6F0FF ">
<%=Rs( "dept ")%> </td>
<td width= "96 " bgcolor= "#E6F0FF ">
<%=Rs( "RegDate ")%> </td>