--T-sql
set ANSI_NULLS ON
set QUOTED_IDENTIFIER ON
go
ALTER Procedure [dbo].[product_page]
@rowsTotal INT OUTPUT, --输出总记录数
@TableNames VARCHAR(1000), --表名,可以是多个表,但不能用别名
@PrimaryKey VARCHAR(100), --主键,可以为空,但@Order为空时该值不能为空
@Fields VARCHAR(1000), --要取出的字段,可以是多个表的字段,可以为空,为空表示select *
@PageSize INT, --每页记录数
@CurrentPage INT, --当前页,0表示第1页
@Filter VARCHAR(200) = '', --条件,可以为空,不用填 where
@Group VARCHAR(200) = '', --分组依据,可以为空,不用填 group by
@Order VARCHAR(200) = '' --排序,可以为空,为空默认按主键升序排列,不用填 order by
AS
BEGIN
DECLARE @SortColumn VARCHAR(200)
DECLARE @Operator CHAR(2)
DECLARE @SortTable VARCHAR(200)
DECLARE @SortName VARCHAR(200)
DECLARE @tempCount NVARCHAR(1000)
SET @tempCount = 'SELECT @rowsTotal = COUNT(*) FROM '+@TableNames+' WHERE '+@Filter+' '
execute sp_executesql @tempCount,N'@rowsTotal int output',@rowsTotal output
IF @Fields = ''
SET @Fields = '*'
IF @Filter = ''
SET @Filter = 'WHERE 1=1'
ELSE
SET @Filter = 'WHERE ' + @Filter
IF @Group <>''
SET @Group = 'GROUP BY ' + @Group
IF @Order <> ''
BEGIN
DECLARE @pos1 INT, @pos2 INT
SET @Order = REPLACE(REPLACE(@Order, ' asc', ' ASC'), ' desc', ' DESC')
IF CHARINDEX(' DESC', @Order) > 0
IF CHARINDEX(' ASC', @Order) > 0
BEGIN
IF CHARINDEX(' DESC', @Order) < CHARINDEX(' ASC', @Order)
SET @Operator = '<='
ELSE
SET @Operator = '>='
END
ELSE
SET @Operator = '<='
ELSE
SET @Operator = '>='
SET @SortColumn = REPLACE(REPLACE(REPLACE(@Order, ' ASC', ''), ' DESC', ''), ' ', '')
SET @pos1 = CHARINDEX(',', @SortColumn)
IF @pos1 > 0
SET @SortColumn = SUBSTRING(@SortColumn, 1, @pos1-1)
SET @pos2 = CHARINDEX('.', @SortColumn)
IF @pos2 > 0
BEGIN
SET @SortTable = SUBSTRING(@SortColumn, 1, @pos2-1)
IF @pos1 > 0
SET @SortName = SUBSTRING(@SortColumn, @pos2+1, @pos1-@pos2-1)
ELSE
SET @SortName = SUBSTRING(@SortColumn, @pos2+1, LEN(@SortColumn)-@pos2)
END
ELSE
BEGIN
SET @SortTable = @TableNames
SET @SortName = @SortColumn
END
END
ELSE
BEGIN
SET @SortColumn = @PrimaryKey
SET @SortTable = @TableNames
SET @SortName = @SortColumn
SET @Order = @SortColumn
SET @Operator = '>='
END
DECLARE @type varchar(50)
DECLARE @prec int
SELECT @type=t.name, @prec=c.prec
FROM sysobjects o
JOIN syscolumns c on o.id=c.id
JOIN systypes t on c.xusertype=t.xusertype
WHERE o.name = @SortTable AND c.name = @SortName
IF CHARINDEX('char', @type) > 0
SET @type = @type + '(' + CAST(@prec AS varchar) + ')'
DECLARE @TopRows INT
SET @TopRows = @PageSize * @CurrentPage + 1
print @TopRows
print @Operator
EXEC('
DECLARE @SortColumnBegin ' + @type + '
SET ROWCOUNT ' + @TopRows + '
SELECT @SortColumnBegin=' + @SortColumn + ' FROM ' + @TableNames + ' ' + @Filter + ' ' + @Group + ' ORDER BY ' + @Order + '
SET ROWCOUNT ' + @PageSize + '
SELECT ' + @Fields + ' FROM ' + @TableNames + ' ' + @Filter + ' AND ' + @SortColumn + '' + @Operator + '@SortColumnBegin ' + @Group + ' ORDER BY ' + @Order + '
')
END
———————————————————————————————————————————————————————
Asp codes
<%
dim currentPage,MaxPerPage,totalPut,Mycount,strfile
if not isempty(request.QueryString("page")) then
currentPage=cint(request.QueryString("page"))
else
currentPage=1
end if
call BeginConn()
MaxPerPage=1
sqltable="Help_buy inner join Help_customer on Help_customer.id = Help_buy.cusid"
sqlkey = "Help_buy.id"
sqlselect = "Help_buy.id,Help_buy.ordernum,Help_buy.ordertime,Help_buy.allprice,Help_buy.allnum,Help_customer.cusunits,Help_buy.ischeck,Help_buy.checktime"
sqlwhere = "Help_buy.shopid = "&shop_id&""
if ordertype <> "" then sqlwhere = sqlwhere & " and Help_buy.ordertype = '"&ordertype&"' "
sqlorder = "Help_buy.id desc"
Set MyComm = Server.CreateObject("ADODB.Command")
with MyComm
.ActiveConnection = ConnStr 'MyConStr是数据库连接字串
.CommandText = "product_page" '指定存储过程名
.CommandType = 4 '表明这是一个存储过程
.Prepared = true '要求将SQL命令先行编译
'返回值(记录总量)
'.Parameters.Append .CreateParameter("RETURN",2,4)
'出参(总记录数)
.Parameters.Append .CreateParameter("@rowsTotal",3,2)
'入参(数据表或多表)
.Parameters.append .CreateParameter("@TableNames",200,1,1000,sqltable)
'入参(主键)
.Parameters.append .CreateParameter("@PrimaryKey",200,1,100,sqlkey)
'入参(查询字段)
.Parameters.append .CreateParameter("@Fields",200,1,1000,sqlselect)
'入参(每页条数)
.Parameters.append .CreateParameter("@PageSize",3,1,4,MaxPerPage)
'入参(当前页号)
.Parameters.append .CreateParameter("@CurrentPage",3,1,4,currentPage)
'入参(条件)
.Parameters.append .CreateParameter("@Filter",200,1,200,sqlwhere)
'入参(分组)
.Parameters.append .CreateParameter("@Group",200,1,200,null)
'入参(排序)
.Parameters.append .CreateParameter("@Order",200,1,200,sqlorder)
Set rs = .Execute
end with
if rs.state <> 0 then '取到数据,得到存储过程输出值
rs.close '注意:若要取得参数值,需先关闭记录集对象
rscount = MyComm(0)
'pagecount = MyComm(1)
rs.open
set MyComm = nothing
end if
totalPut = rscount
if (currentpage-1)*MaxPerPage>totalput then
if (totalPut mod MaxPerPage)=0 then
currentpage= totalPut / MaxPerPage
else
currentpage= totalPut / MaxPerPage + 1
end if
end if
if totalPut mod MaxPerPage=0 then
Mycount= totalPut / MaxPerPage
else
Mycount= totalPut / MaxPerPage+1
end if
if not rs.eof then
strfile = "?ordertype="&ordertype&"&"
do while not rs.eof
%>