目前已超过了纪录个数或纪录集为空！"
Response.End
end if

dim arrRs
arrRs=rs.getrows '可以利用getRows将纪录集迅速保存到一个二维的数组中来提高速度。

recordcount=cmd.Parameters("int_recordcount")
'注意，当纪录不足以刚好整除单位页纪录时，我们也要将其定义为一页，如纪录数目为2页多一个纪录，此时我们的页数也要为3页纪录。
if (recordcount mod pagesize)=0 then
pagecount=recordcount\pagesize
else
pagecount=recordcount\pagesize+1
end if

<--分页开始 -->
<!-- #include file="include\tablepage.asp" -->固定的分页函数，其实无非是pagenow+1或pagenow-1,pagenow,pagecount
<!--分页结束-->

<div align="left" class="pblank" >
<%
'---------显示树性结构！-------------
level=0
Response.Write "<ul>"
for i=0 to ubound(arrRs,2)
if arrRs(1,i)>level then
Response.Write "<ul>"
end if
if arrRs(1,i)<level then
for j=arrRs(1,i) to level-1
Response.Write "</ul>"
next
end if
int_size=arrRs(5,i)
if int_size=0 then
str_size=" <无内容>"
else
str_size=""
end if
Response.Write "<li><img src=face\"&arrRs(3,i)&"><a href=showTitle.asp?int_id="&arrRs(0,i)&"&tint_tableid="&tint_tableid&" class=ptitle target=BoardAnnounce>"&server.HTMLEncode(arrRs(4,i))&"</a> "&str_size
if arrRs(7,i)<>"" then Response.Write " <连接> "
if arrRs(8,i)<>"" then Response.Write " <图像> "
Response.Write " -【"&arrRs(9,i)&"】 <font color=444444>"&arrRs(10,i)&"</font>　[<font color=920092>ID:"&arrRs(0,i)&"　点击:"&arrRs(6,i)&"次</font>]　<font color=444444>

上一页  [1] [2] [3] [4] 下一页

在google里搜索更多一种理论上最快的Web数据库分页方法

	Web www.51ec.org

上一篇信息学院： 关于存储过程分页

下一篇信息学院： 关于分页办法