先建一个查询：

set rs=server.CreateObject("adodb.recordset")

rs.open "select * from aaa",conn,1,1

 

定义一个变量，决定一页显示多少条记录：

 dim page

 page=0

 if (not rs.eof and not rs.bof) then 

 page=1

 if (request.QueryString("page") <> "") then

 page=request.QueryString("page")

 end if

 rs.pagesize=5  '这里一页显示5条记录。

 rs.absolutepage=page

 end if

 

开始循环显示记录集：

  <%

   dim i

   i=1

   do while (not rs.eof and i<=rs.pagesize)

   response.write(rs("id"))

   i=i+1

   rs.movenext

   loop

   %>

 

然后是分页：

<a href="*.asp?page=<%response.Write("1")%>">第一页</a> 

 

<%if (page > 1) then%>

<a href="*.asp?page=<%response.Write(page-1)%>">上一页</a>

<%else%>

没有上一页

<%end if%>

           

<%if (cint(page) < cint(rs.pagecount) and cint(page) >= 1) then%>

<a href="*.asp?page=<%response.Write(page+1)%>">下一页</a>

<%else%>

没有下一页

<%end if%>

 

<a href="*.asp?page=<%response.Write(rs.pagecount)%>">最后一页</a>

 

当前第<%=page%>页

一共<%=rs.pagecount%>页

一共<%=rs.recordcount %>条记录

 

 

 rs.pagecount、rs.movenext、rs.absolutepage等说明请参考：