一：
1，先获取数据源
 
<%
set rs=server.CreateObject("ADODB.RecordSet")
sql="select * from book"
rs.open sql,conn,1,1
%>
调用到控件中:循环输出：
<%do while not rs.eof%> 
 
    <%=rs("id")%>
    <%=rs("bookname")%>
    <%=rs("price")%>
    <%=rs("publishing")%>
 
<%
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(""&p&"  ")
 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
%>
在页面当中获取返还页码信息