一种理论上最快的Web数据库分页方法(3)
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>("&int_size&"字节)</font> <font color=ff0000>("&arrRs(2,i)&")</font></li>"
level=arrRs(1,i)
next
Response.Write "</ul>"
'---------显示树性结构完毕!-------------
%>
</div>
<div align="left">
<!--分页开始 -->
<!-- #include file="include\tablepage.asp" -->
<!--分页结束-->
</div>
<!-- 清场与除错 -->
<%
rs.close
set rs=nothing
set cmd=nothing
if err.number<>0 then Response.Redirect "bug.asp"
内容版权声明:除非注明,否则皆为本站原创文章。