then
Response.Write "目前已超过了纪录个数或纪录集为空！"
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页码：[1] [2] [3] [4] [5] [6] [7] [8] 第5页、共8页 |
