分頁技術Page

一：

1，先獲取數據源

  <!--#include file="conn.asp"-->
<%
set rs=server.CreateObject("ADODB.RecordSet")
sql="select * from book"
rs.open sql,conn,1,1
%>

調用到控件中:循環輸出：

<%do while not rs.eof%> 
  <tr bordercolor="#000000">
    <td><%=rs("id")%></td>
    <td><%=rs("bookname")%></td>
    <td><%=rs("price")%></td>
    <td><%=rs("publishing")%></td>
  </tr>
<%
rs.movenext
loop
%> 

二：分頁

<%
'1、獲取要用於分頁顯示的記錄集合
set rs=server.CreateObject("ADODB.RecordSet")
sql="select * from book"
rs.open sql,conn,1,1

'2、設置每頁顯示多少條記錄
i=10
rs.pagesize=i
'4、獲取用戶點擊的頁碼
'page=request.QueryString("page")

if page="" then
 page=1'如果頁碼爲空，則將頁碼設置爲第一頁
end if

'5、將當前頁，設置爲，用戶點擊的那一頁
rs.absolutepage=page
%>

返回用戶點擊頁碼：

 <%
 '3、提供頁碼鏈接
 for p=1 to rs.pagecount
  response.Write("<a href=02.asp?page="&p&">"&p&"</a>&nbsp;&nbsp;")
 next 
 %>

三：顯示共幾頁，當前第幾頁，當前第幾條記錄信息

共<%=rs.pagecount%>頁，當前第<%=page%>頁，共有條<%=rs.recordcount%>記錄，當前爲
 <%
 if page<>rs.pagecount then
  response.write(page*i-9&"-"&page*i)
 else
  response.write(page*i-9&"-"&rs.recordcount)
 end if
 %> 
  條記錄

四：詳細

<%
set rs=server.CreateObject("ADODB.RecordSet")
sql="select * from book"
rs.open sql,conn,1,1
i=10
rs.pagesize=i
page=request.QueryString("page")
if page="" then
 page=1
else
 page=cint(page)
end if
rs.absolutepage=page
%>

在頁面當中獲取返還頁碼信息