您现在的位置: 军旅同心-旅游自驾-军旅文学 >> 读书赏析 >> 学习园地 >> 电脑网络 >> 技术文章 >> 正文
一个分页存储过程
作者:采集员 文章来源:来源于网络 点击数: 更新时间:2005-9-10 14:04:17
/*****听以前的同事说asp页面上的分页太慢了(如果数据多了),
就想了这么个笨办法。有些地方还要考虑----比如select top 22 * from cat_list
where T_id not in (select T_id from #change)是否有效率问题;数据不能重复等等
不过灵活性挺好。希望各位高手再给帮忙改正;多谢chair3的帮助---这个存储过程还可以在加入几个变量,随便大家改吧:)*****/


CREATE  proc page
@pagenum int
as
SET NOCOUNT ON             /*-----这一句很重要哦:)),不然它只会认 insert #change......这个数据集:))*/
declare @sql nvarchar(500)  --声明动态sql执行语句
declare @pagecount int      --当前页数

--取得当前数据库的记录总数
declare @row_num int  
begin      
select @row_num=count(*) from cat_list

--创建临时表,作为数据过滤
create table #change (T_id int)

--判断当前页数
if @row_num>6  --大于页面显示记录数,则分页
begin
set  @row_num=@pagenum*6
  
  if @row_num=6
select top 6 * from cat_list
else
begin
set  @row_num=(@pagenum-1)*6
set @pagecount=@row_num
set @sql=N'insert #change (T_id) select top '+cast(@pagecount as char(100))+' T_id from cat_list where T_id not in (select T_id from #change)'
exec sp_executesql @sql
select top 6 * from cat_list where T_id not in (select T_id from #change)
  end
end
else    --只现实全部的数据
select * from cat_list
end
GO



客户端这样调用:
<!--#include file="conn.asp"-->
<!--#include file="adovbs.inc"-->
<%    dim T_com
                                        dim T_rs'declare datamanage recordset
                                        

dim parameters
set T_com=server.createobject("adodb.command")
T_com.ActiveConnection=conn
T_com.CommandText="page"
T_com.CommandType=adCmdStoredProc
'T_com.Prepared=true
set parameters=T_com.CreateParameter("@pagenum",adInteger,adParamInput)
T_com.Parameters.Append parameters
dim page
page=request.QueryString("page")
    if page="" then
        page=1
    end if
T_com("@pagenum")=page
set T_rs=T_com.Execute

do while not T_rs.eof
response.Write T_rs("c_name")
T_rs.movenext
loop
%>
<a href="a.asp?page=<%=page+1%>">ddddd</a>


更多
免责声明:作品版权归所属媒体与作者所有!!本站刊载此文不代表同意其说法或描述,仅为提供更多信息。如果您认为我们侵犯了您的版权,请告知!本站立即删除。有异议请联系我们。
文章录入:烟灰缸    责任编辑:烟灰缸 
网友评论:(只显示最新10条。评论内容只代表网友观点,与本站立场无关!)
| 设为首页 | 加入收藏 | 联系站长 | 友情链接 | 网站地图 | 版权申明 | 网站公告 | 管理登录 |