<%hyperpage=5
if not rs.eof then
rs.movefirst
rs.pagesize=hyperpage
if trim(request("page"))<>"" then
currentpage=clng(request("page"))
if currentpage>rs.pagecount then
currentpage=rs.pagecount
end if
else
currentpage=1
end if
if currentpage<>1 then
if (currentpage-1)*hyperpage<totalhy then
rs.move(currentpage-1)*hyperpage
dim bookmark
bookmark=rs.bookmark
end if
end if
if (totalhy mod hyperpage)=0 then
totalpages=totalhy\hyperpage
else
totalpages=totalhy\hyperpage+1
end if
i=0
do while not rs.eof and i<hyperpage
%>
文章条数分页条数没实现,比如100篇文章,我打算每页分20,但是一页就显示了100篇文章。但数字却可以实现,比如 本分类共<100>篇文章,共分<5>页,