1
CREATE procedure p_splitpage
2@sql nvarchar(4000),
3@page int=1,
4@pagesize int,
5@pageCount int=0 output,
6@recordCount int=0 output
7as
8set nocount on
9declare @p1 int
10
11exec sp_cursoropen @p1 output,@sql,@scrollopt=1,@ccopt=1,@rowcount=@pagecount output
12set @recordCount=@pageCount
13select @pagecount=ceiling(1.0*@pagecount/@pagesize)
14,@page=(@page-1)*@pagesize+1
15exec sp_cursorfetch @p1,16,@page,@pagesize
16exec sp_cursorclose @p1
17GO
18
19
20'通过存储过程调用数据库的数据
21'sql为查询语句，m_pagesize为页面显示行，rst为记录集，totalpages为分多少页，num为多少条记录，curpage为当前页数
22Sub SelectDB(sql,m_pageSize,rst,totalpages,num,curpage)
23if curpage = "" then
24curpage = Trim(Request.Form("pageno"))
25if curpage = "" then
26curpage = Trim(Request.QueryString("pageno"))
27end if
28if curpage = "" then
29curpage = 1
30end if
31end if
32
33Set cmd = Server.CreateObject("ADODB.Command")
34cmd.ActiveConnection = conn
35cmd.CommandType = adCmdStoredProc
36cmd.CommandText = "p_SplitPage"
37
38cmd.Parameters.Append cmd.CreateParameter("@sql", adVarWChar, adParamInput, 4000, sql)
39cmd.Parameters.Append cmd.CreateParameter("@page", adInteger, adParamInput, 4, curpage)
40cmd.Parameters.Append cmd.CreateParameter("@pageSize", adInteger, adParamInput, 4, m_pageSize)
41cmd.Parameters.Append cmd.CreateParameter("@pageCount", adInteger, adParamOutput, 4, totalpages)
42cmd.Parameters.Append cmd.CreateParameter("@recordCount", adInteger, adParamOutput, 4, num)
43
44'Response.Write sql&"<br/>"
45set rst = cmd.Execute
46set rst = rst.NextRecordSet
47
48totalpages = cmd.Parameters("@pageCount").value
49num = cmd.Parameters("@recordCount").value
50
51if totalpages = 0 then totalpages = 1
52End Sub
53
CREATE procedure p_splitpage2
@sql nvarchar(4000),3
@page int=1,4
@pagesize int,5
@pageCount int=0 output,6
@recordCount int=0 output7
as8
set nocount on9
declare @p1 int10
11
exec sp_cursoropen @p1 output,@sql,@scrollopt=1,@ccopt=1,@rowcount=@pagecount output12
set @recordCount=@pageCount13
select @pagecount=ceiling(1.0*@pagecount/@pagesize)14
,@page=(@page-1)*@pagesize+115
exec sp_cursorfetch @p1,16,@page,@pagesize16
exec sp_cursorclose @p117
GO18
19
20
'通过存储过程调用数据库的数据21
'sql为查询语句，m_pagesize为页面显示行，rst为记录集，totalpages为分多少页，num为多少条记录，curpage为当前页数22
Sub SelectDB(sql,m_pageSize,rst,totalpages,num,curpage)23
if curpage = "" then24
curpage = Trim(Request.Form("pageno"))25
if curpage = "" then26
curpage = Trim(Request.QueryString("pageno"))27
end if28
if curpage = "" then29
curpage = 130
end if31
end if32
33
Set cmd = Server.CreateObject("ADODB.Command")34
cmd.ActiveConnection = conn35
cmd.CommandType = adCmdStoredProc36
cmd.CommandText = "p_SplitPage"37
38
cmd.Parameters.Append cmd.CreateParameter("@sql", adVarWChar, adParamInput, 4000, sql)39
cmd.Parameters.Append cmd.CreateParameter("@page", adInteger, adParamInput, 4, curpage)40
cmd.Parameters.Append cmd.CreateParameter("@pageSize", adInteger, adParamInput, 4, m_pageSize)41
cmd.Parameters.Append cmd.CreateParameter("@pageCount", adInteger, adParamOutput, 4, totalpages)42
cmd.Parameters.Append cmd.CreateParameter("@recordCount", adInteger, adParamOutput, 4, num)43
44
'Response.Write sql&"<br/>"45
set rst = cmd.Execute46
set rst = rst.NextRecordSet47
48
totalpages = cmd.Parameters("@pageCount").value49
num = cmd.Parameters("@recordCount").value50
51
if totalpages = 0 then totalpages = 152
End Sub53