一:构思
在设计Web 数据库时,如果我们要编历每一条纪录,那么只有采取分页模式才可以使Web 数据库尽快,尽好的呈现给终端用户,也不会因为8秒原则而使用户失去浏览该页的兴趣。但是即使采取分页的办法,当出现多纪录的 数据库时,也难免会使我们的用户感到翻页时速度太慢。就如同我的上篇文章说的那样,几乎上一片文章的三种分页方法都有一些缺陷。那么,我们如何做到能让 数据库每次就取我们需要的纪录,这个很好实现,有游标返回多个纪录集就可以实现,但是如果让 数据库的一端不会因为要刚好检索一页的纪录而大耗资源就很难了。最后,经过我的不断改写程序与测试,终于编写出了我认为理论上最快的Web 数据库分页方法。
二:具体实现的存储过程
我们结合一个BBS问题来谈谈这种方法。如何让一个BBS每次每页只现实需要的一页纪录呢?而我们需要提供给数据库有那些参数呢?可能会有以下参数。
第一:就是我们需要的当前的页数。
第二:当前定义的每一页的纪录集数目。这样你就可以根据需要在页面程序中修改每一页的纪录数。当然,如果你不考虑程序的可扩展性,你也可以在数据库里直接规定每一页有N条纪录即可。
第三:一个输出参数:就是从数据库里得出当前表中总纪录数目的多少。(注意,他不是一个页的纪录数目)他相当于ADO分页法中的Recordcount。如果你不需要总纪录数目可以不用返回他。
具体存储过程的 代码。。。
CREATE PROCEDURE dbo.PRO_pageview
(
@tint_tableid tinyint=1, --这个是BBS的当前版面Id,你可以不用管他。。
@int_pagenow int=0,
@int_pagesize int=0,
@int_recordcount int=0 output --就是得出BBS某个版面的总贴数。。
)
AS
set nocount on
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 --这里定义游标操作,但是不用临时纪录集,而且游标也不需要全部遍历所有纪录集。
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将纪录集迅速保存到一个二维的数组中来提高速度。
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"
%>
三:特点
我们来看看他和传统的三种方法的区别与特点
第一:每次只传回一页纪录,而且只形成一个纪录集,而且 客户端可以采用速度最快的火线游标来完成页面输出。而不必像传统的游标法用rs.nextrecordset纪录来输出纪录。
第二:数据库没有用到临时表,这样比转储纪录集的速度大大提高。
第三:采用一个滚动游标,而且游标只经过二个操作就完成定位。速度也大大提高。
当我采用了这种分页方法时,已经可以明显的感觉出分页速度的提高了。当然,在处理树型结构,数据库运算时,我采用了许多方法尽可能的提高速度,如:采用二分区间法来编历树型结构,全部采用存储过程来实现一切sql操作,采用触发器和数据库游标来完成数据库算法,这样就尽量避免过多的 网络传输。任何操作只和数据库进行一次参数传递就可以完成。
在设计Web 数据库时,如果我们要编历每一条纪录,那么只有采取分页模式才可以使Web 数据库尽快,尽好的呈现给终端用户,也不会因为8秒原则而使用户失去浏览该页的兴趣。但是即使采取分页的办法,当出现多纪录的 数据库时,也难免会使我们的用户感到翻页时速度太慢。就如同我的上篇文章说的那样,几乎上一片文章的三种分页方法都有一些缺陷。那么,我们如何做到能让 数据库每次就取我们需要的纪录,这个很好实现,有游标返回多个纪录集就可以实现,但是如果让 数据库的一端不会因为要刚好检索一页的纪录而大耗资源就很难了。最后,经过我的不断改写程序与测试,终于编写出了我认为理论上最快的Web 数据库分页方法。
二:具体实现的存储过程
我们结合一个BBS问题来谈谈这种方法。如何让一个BBS每次每页只现实需要的一页纪录呢?而我们需要提供给数据库有那些参数呢?可能会有以下参数。
第一:就是我们需要的当前的页数。
第二:当前定义的每一页的纪录集数目。这样你就可以根据需要在页面程序中修改每一页的纪录数。当然,如果你不考虑程序的可扩展性,你也可以在数据库里直接规定每一页有N条纪录即可。
第三:一个输出参数:就是从数据库里得出当前表中总纪录数目的多少。(注意,他不是一个页的纪录数目)他相当于ADO分页法中的Recordcount。如果你不需要总纪录数目可以不用返回他。
具体存储过程的 代码。。。
CREATE PROCEDURE dbo.PRO_pageview
(
@tint_tableid tinyint=1, --这个是BBS的当前版面Id,你可以不用管他。。
@int_pagenow int=0,
@int_pagesize int=0,
@int_recordcount int=0 output --就是得出BBS某个版面的总贴数。。
)
AS
set nocount on
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 --这里定义游标操作,但是不用临时纪录集,而且游标也不需要全部遍历所有纪录集。
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将纪录集迅速保存到一个二维的数组中来提高速度。
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"
%>
三:特点
我们来看看他和传统的三种方法的区别与特点
第一:每次只传回一页纪录,而且只形成一个纪录集,而且 客户端可以采用速度最快的火线游标来完成页面输出。而不必像传统的游标法用rs.nextrecordset纪录来输出纪录。
第二:数据库没有用到临时表,这样比转储纪录集的速度大大提高。
第三:采用一个滚动游标,而且游标只经过二个操作就完成定位。速度也大大提高。
当我采用了这种分页方法时,已经可以明显的感觉出分页速度的提高了。当然,在处理树型结构,数据库运算时,我采用了许多方法尽可能的提高速度,如:采用二分区间法来编历树型结构,全部采用存储过程来实现一切sql操作,采用触发器和数据库游标来完成数据库算法,这样就尽量避免过多的 网络传输。任何操作只和数据库进行一次参数传递就可以完成。