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
return
我们再看看Asp页面里的程序操作。。。
pagenow=cint(request("pagenow")) --当前的页面。
if pagenow=0 then pagenow=1 pagesize=10
set cmd=server.CreateObject("adodb.command") cmd.ActiveConnection=strconn cmd.CommandType=4 cmd.CommandText="pro_pageview"
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>"
