一种理论上最快的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" 

内容版权声明:除非注明,否则皆为本站原创文章。

转载注明出处:http://www.heiqu.com/3227.html