＜%
filepath=request.servervariables("path_info")%＞
＜%page=1
page=request("page")
rs.PageSize = 8 ''每页的记录的条数
if Not IsEmpty(trim(Request("Page"))) then
Page = CInt(Request("Page"))
if Page ＞ rs.PageCount then
rs.AbsolutePage = rs.PageCount
elseif Page ＜= 0 then
Page = 1
else
rs.AbsolutePage = Page
end if
End if
%＞
然后再想显示分页的地方，一般是在记录集循环输出完毕的后面写：