如何分页
偶在一个页面里加了一个读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>
<%i=i+1
if i> =MaxPerPage then Exit Do
rs.movenext
loop
rs.close
set rs=nothing%>
<%end sub%>
<%
Function showpage(totalnumber,maxperpage,filename)
Dim n
If totalnumber Mod maxperpage=0 Then
n= totalnumber \ maxperpage
Else
n= totalnumber \ maxperpage+1
End If
Response.Write " <form method=Post action= "&filename& "> "
Response.Write " <p align= 'center ' class= 'contents '> "
If CurrentPage <2 Then
Response.Write " <font class= 'contents '> 首页 上一页 </font> "
Else
Response.Write " <a href= "&filename& "?page=1 class= 'contents '> 首页 </a> "
Response.Write " <a href= "&filename& "?page= "&CurrentPage-1& " class= 'contents '> 上一页 </a> "
End If
If n-currentpage <1 Then
Response.Write " <font class= 'contents '> 下一页 尾页 </font> "
Else
Response.Write " <a href= "&filename& "?page= "&(CurrentPage+1)& " class= 'contents '> "
Response.Write "下一页 </a> <a href= "&filename& "?page= "&n& " class= 'contents '> 尾页 </a> "
End If
Response.Write " <font class= 'contents '> 页次： </font> <font class= 'contents '> "&CurrentPage& " </font> <font class= 'contents '> / "&n& "页 </font> "
Response.Write " <font class= 'contents '> 共有 "&totalnumber& "条 "
Response.Write " <font class= 'contents '> 转到： </font> <input type= 'text ' name= 'page ' size=2 maxlength=10 class=smallInput value= "¤tpage& "> "
Response.Write " <input type= 'submit ' class= 'contents ' value= 'GO ' name= 'cndok '> </form> "
End Function
%>
