'分页设置
dim curPage,Pages
dim MaxPerPage
MaxPerPage=a(i) '每页显示的记录数量,i的值是你在上文要想办法得到的
Rs.PageSize= MaxPerPage
Pages=RS.PageCount
curPage=Trim(Request.QueryString("Page")) '传递要浏览的页数
if isnumeric(curPage)=false then curPage=1 else curPage=cint(curPage)
If curPage > Pages Then curPage = Pages
If Rs.eof=false Then Rs.AbsolutePage = CurPage
for j=1 to a(i)
if rs.eof=true then exit for
'显示记录语句
rs.movenext
next