declare @int_allid int declare @int_beginid int,@int_endid int declare @int_pagebegin int, @int_pageend int
select @int_allid=count(*) from tab_discuss where tint_level=0 and tint_tableid=@tint_tableid select @int_recordcount=@int_allid --得出该版面的总贴数
declare cro_fastread cursor scroll for select int_id from tab_discuss where tint_level=0 and tint_tableid=@tint_tableid order by int_id desc --这里定义游标操作,但是不用临时纪录集,而且游标也不需要全部遍历所有纪录集。
fetch absolute @int_beginid from cro_fastread into @int_pagebegin 将他的Id传给一个变量该页开始的Id if @int_endid>@int_allid --这里要注意,如果某一页不足固定页数的纪录时。如只有一页纪录,而且纪录少于我们定义的数目。或者是最后一页时。。。 fetch last from cro_fastread into @int_pageend --直接将游标绝对定位到最后一条纪录,得出他的id号来。。。 else fetch absolute @int_endid from cro_fastread into @int_pageend
select int_id,tint_level,tint_children,var_face,var_subject,datalength(txt_content) as int_len,sint_hits,var_url,var_image,var_user,dat_time,tint_tableid,bit_kernul from tab_discuss where tint_tableid=@tint_tableid and int_rootid between @int_pageend and @int_pagebegin order by int_rootid desc,num_order desc --我们就可以利用该页的第一个id和最后一个id得出中间的id来。。。。(注意。我们这个BBS的数性结构用了一种很巧妙的算法,就是用一个orderNum浮点数即可完成排序。。。)
--开始清场。。。 close cro_fastread deallocate cro_fastread
set rs=cmd.Execute if rs.eof 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
<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>"