strTableName)
.Parameters.append .CreateParameter("@strWhere", 200, 1, 2000, strWhere)
Set rsCount = .Execute
end with
Set myobj = Nothing
maxCount = rsCount("Total")
rsCount.close:Set rsCount = Nothing
getDataRowCount = maxCount
end function

'单表分页存储过程
sub getDataRS()
dim obj
Set obj = Server.CreateObject("ADODB.Command")
with obj
.ActiveConnection = conn
.CommandText = "USP_GetList"
.CommandType = 4
.Prepared = true
.Parameters.append .CreateParameter("@pageIndex", 3, 1, 4, iPageIndex)
.Parameters.append .CreateParameter("@pageSize", 3, 1, 4, iPageSize)
.Parameters.append .CreateParameter("@SID", 200, 1, 30, SID) ' 2000
.Parameters.append .CreateParameter("@strGetField", 200, 1, 1000, strGetField)
.Parameters.append .CreateParameter("@tableName", 200, 1, 30, strTableName)
.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
'###############################################################