给你举个例子吧:
<%
rs.PageSize=15
pagecount=rs.PageCount
page=int(request.QueryString ("page"))
if page<=0 then page=1
    if request.QueryString("page")="" then
    page=1
end if
rs.AbsolutePage=page
for i=1 to rs.pagesize
if rs.eof then exit for
%>
循环的内容..........
<%
rs.movenext
next
%>

后面要显示的样式你就自己看着办吧

谢谢