一种理论上最快的Web数据库分页方法(2)

　　 
　　open cro_fastread　--打开游标 
　　select @int_beginid=(@int_pagenow-1)*@int_pagesize+1　得出该页的第一个纪录Id 
　　select @int_endid = @int_beginid+@int_pagesize-1　　　得出该页的最后一个纪录的Id 
　　 
　　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" 

cmd.Parameters.Append cmd.CreateParameter("tint_tableid",adInteger,adParamInput,,tint_tableid) 
cmd.Parameters.Append cmd.CreateParameter("int_pagenow",adInteger,adParamInput,,pagenow) 
cmd.Parameters.Append cmd.CreateParameter("int_pagesize",adInteger,adParamInput,,pagesize) 
cmd.Parameters.Append cmd.CreateParameter("int_recordcount",adInteger,adParamOutput) 

set rs=cmd.Execute 
if rs.eof then 
　　Response.Write "目前已超过了纪录个数或纪录集为空！" 
　　Response.End 
end if 

dim arrRs 
arrRs=rs.getrows　　 '可以利用getRows将纪录集迅速保存到一个二维的数组中来提高速度。