MS-SQL 分页函数+ASP

共需要两个存储过程，第一个是负责分页的

1. CREATEPROCEDURE[dbo].[USP_GetList]
2. (
3. @pageIndexint=1--当前页码0表示返回所有符合内容
4. ,@pageSizeint=10--页尺寸
5. ,@SIDnvarchar(30)=''--主键字段
6. ,@strGetFieldnvarchar(1000)='*'--需要返回的列
7. ,@strTableNamenvarchar(30)=''--表名
8. ,@strWherenvarchar(2000)=''--查询条件(注意:条件中要带where)
9. ,@strOrderBynvarchar(300)=''--排序
10. --,@MemberIDint=0--会员ID
11. )
12. AS
13. SETNOCOUNTON
15. DECLARE@strSQLnvarchar(4000)
16. DECLARE@startPosint
17. DECLARE@endPosint
19. DECLARE@numint
21. SET@startPos=@pageSize*(@pageIndex-1)+1
22. SET@endPos=@startPos+@pageSize-1
24. --页大小*(页数-1)
25. SET@num=@pageSize*(@PageIndex-1)
27. IF@PageIndex!=0
28. BEGIN
29. IF@strWhere!=''
30. SET@strSQL='SELECTTOP'+cast(@pageSizeasnvarchar(10))+''+@strGetField+'FROM'+@strTableName+'WHERE('+cast(@SIDasnvarchar(30))+'NOTIN(SELECTTOP'+cast(@numasnvarchar(20))+''+cast(@SIDasnvarchar(30))+'FROM'+@strTableName+'where'+@strWhere+'ORDERBY'+cast(@strOrderByasnvarchar(255))+'))and'+@strwhere+'ORDERBY'+cast(@strOrderByasvarchar(255))+''
31. else
32. SET@strSQL='SELECTTOP'+cast(@pageSizeasnvarchar(10))+''+@strGetField+'FROM'+@strTableName+'WHERE('+cast(@SIDasnvarchar(30))+'NOTIN(SELECTTOP'+cast(@numasnvarchar(20))+''+cast(@SIDasnvarchar(30))+'FROM'+@strTableName+'ORDERBY'+cast(@strOrderByasnvarchar(255))+'))ORDERBY'+cast(@strOrderByasvarchar(255))+''
33. --SET@strSQL='SELECTTOP页大小*FROMUsersWHERE(IDNOTIN(SELECTTOP(页大小*(当前页-1))IDFROMUsersORDERBYIDDESC))ORDERBYIDDESC'
34. END
35. ELSE
36. BEGIN
37. IF@strWhere!=''
38. SET@strSQL='select'+@strGetField+'from'+@strTableName+'where'+@strWhere+'orderby'+@strOrderBy
39. ELSE
40. SET@strSQL='select'+@strGetField+'from'+@strTableName+'orderby'+@strOrderBy
41. END
42. --print(@strSQL)
43. EXEC(@strSQL)
44. GO

第二个存储过程

1. CREATEPROCEDURE[dbo].[USP_GetTotal]
2. (
3. @strTableNamenvarchar(30)='',
4. @strWherenvarchar(2000)=''--查询条件(注意:条件中要带where)
5. )
6. AS
7. SETNOCOUNTOFF
9. DECLARE@strSQLnvarchar(2500)
11. IF@strWhere!=''
12. SET@strSQL='selectcount(*)asTotalfrom['+@strTableName+']where'+@strWhere
13. ELSE
14. SET@strSQL='selectcount(*)asTotalfrom['+@strTableName+']'
16. EXEC(@strSQL)
17. GO

下面是调用这个存储过程的两个函数。可以放到一个包含文件里

,注意，下面的函数里面使用的一些变量，是全局的变量，不是参数传入的，所以需要在调用函数钱，给全局变量赋值。

1. <%
2. '取记录总数存储过程
3. publicfunctiongetDataRowCount(strTableName,strWhere)
4. dimmaxCount
5. dimmyobj
6. dimrsCount
7. maxCount=0
8. Setmyobj=Server.CreateObject("ADODB.Command")
9. withmyobj
10. .ActiveConnection=conn
11. .CommandText="USP_GetTotal"
12. .CommandType=4
13. .Prepared=true
14. .Parameters.append.CreateParameter("@strTableName",200,1,30,strTableName)
15. .Parameters.append.CreateParameter("@strWhere",200,1,2000,strWhere)
16. SetrsCount=.Execute
17. endwith
18. Setmyobj=Nothing
19. maxCount=rsCount("Total")
20. rsCount.close:SetrsCount=Nothing
21. getDataRowCount=maxCount
22. endfunction
26. '单表分页存储过程
27. subgetDataRS()
28. dimobj
29. Setobj=Server.CreateObject("ADODB.Command")
30. withobj
31. .ActiveConnection=conn
32. .CommandText="USP_GetList"
33. .CommandType=4
34. .Prepared=true
35. .Parameters.append.CreateParameter("@pageIndex",3,1,4,iPageIndex)
36. .Parameters.append.CreateParameter("@pageSize",3,1,4,iPageSize)
37. .Parameters.append.CreateParameter("@SID",200,1,30,SID)'2000
38. .Parameters.append.CreateParameter("@strGetField",200,1,1000,strGetField)
39. .Parameters.append.CreateParameter("@tableName",200,1,30,strTableName)
40. .Parameters.append.CreateParameter("@strWhere",200,1,2000,strWhere)
41. .Parameters.append.CreateParameter("@strOrderBy",200,1,300,strOrderBy)
42. Setrstobj=.Execute
43. endwith
44. Setobj=Nothing
45. endsub
48. %>

下面是调用这组分页存储过程的实例

1. '#############定义分页存储过程所要使用的变量##################################################
2. '1.定义变量，给部分变量设定初始值
3. dimiPageIndex,iPageSize,iRowCount
4. dimstrWherem,strTableName,SID,strGetField,strWhere,strOrderBy
5. iPageSize=12'一页内显示的记录条数
6. strTableName="dataTable"'表名
7. SID="id"'主键名
8. strGetField="id, field1,field2,field3"
9. '要显示的字段名
10. strWhere="where1=1 and where2=2"
11. 'where子句
12. strOrderBy="iddesc"'排序
14. '2,执行getPageInf()得到(1)iPageIndex:当前页数,(2)iRowCount：总记录数,(3)iPageCount：总页数
15. CallgetPageInfo()'include_gb/page.asp
17. '3,先定义rsTobj，再执行getDataRS().subgetDataRS()使用上面定义的表明，字段，where,页数，总记录数语句等，去访问存储过程，并把结果付给rsTobj(集合)
18. dimrsTobj
19. CallgetDataRS()
20. '4,rsTobj得到了返回数据，开始循环输出，写到过程里，方便调用
21. subshowProducts()
22. ifrsTobj.eofThen
23. response.Write("暂时没有数据")
24. else
25. dowhilenotrsTobj.eof
26. CallshowProdTable(rsTobj("id"),rsTobj("NewsName"),rsTobj("Pictures"),rsTobj("abstract"),rsTobj("AddTime"))
27. rsTobj.moveNext
28. loop
29. endif
30. CloseRS(rsTobj)'关闭链接include_gb/connSiteData.asp
31. endsub
32. '###############################################################