一個分頁預存程序

來源:互聯網
上載者:User
預存程序|分頁 /*****聽以前的同事說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>



相關文章

E-Commerce Solutions

Leverage the same tools powering the Alibaba Ecosystem

Learn more >

Apsara Conference 2019

The Rise of Data Intelligence, September 25th - 27th, Hangzhou, China

Learn more >

Alibaba Cloud Free Trial

Learn and experience the power of Alibaba Cloud with a free trial worth $300-1200 USD

Learn more >

聯繫我們

該頁面正文內容均來源於網絡整理,並不代表阿里雲官方的觀點,該頁面所提到的產品和服務也與阿里云無關,如果該頁面內容對您造成了困擾,歡迎寫郵件給我們,收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容,歡迎發送郵件至: info-contact@alibabacloud.com 進行舉報並提供相關證據,工作人員會在 5 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。