MS-SQL 分页函数+ASP

核心提示： .Parameters.append .CreateParameter("@strWhere", 200, 1, 2000, strWhere) .Parameters.append .CreateParameter("@strOrderBy", 2

.Parameters.append .CreateParameter("@strWhere", 200, 1, 2000, strWhere)

.Parameters.append .CreateParameter("@strOrderBy", 200, 1, 300, strOrderBy)

Set rstobj = .Execute

end with

Set obj = Nothing

end sub

%>

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

'#############定义分页存储过程所要使用的变量##################################################

'1.定义变量，给部分变量设定初始值

dim iPageIndex, iPageSize, iRowCount

dim strWherem, strTableName, SID, strGetField, strWhere, strOrderBy

iPageSize = 12 '一页内显示的记录条数

strTableName = "dataTable" '表名

SID = "id" '主键名

strGetField = "id, field1,field2,field3"

'要显示的字段名

strWhere = "where1=1 and where2=2"

'where子句

strOrderBy = "id desc" '排序

'2,执行getPageInf() 得到(1)iPageIndex:当前页数,(2)iRowCount：总记录数,(3)iPageCount：总页数

Call getPageInfo() 'include_gb/page.asp

'3,先定义rsTobj，再执行getDataRS().sub getDataRS()使用上面定义的表明，字段，where,页数，总记录数语句等，去访问存储过程，并把结果付给rsTobj(集合)

dim rsTobj

Call getDataRS()

'4,rsTobj得到了返回数据，开始循环输出，写到过程里，方便调用

sub showProducts()

if rsTobj.eof Then

response.Write("暂时没有数据")

else

do while not rsTobj.eof

Call showProdTable(rsTobj("id"),rsTobj("NewsName"),rsTobj("Pictures"),rsTobj("abstract"), rsTobj("AddTime"))

rsTobj.moveNext

loop

end if

CloseRS(rsTobj) '关闭链接 include_gb/connSiteData.asp

end sub

'###############################################################