数据库_select_通用分页的使用示例

  Set ListComm = Server.CreateObject("ADODB.Command")
  with ListComm
   .ActiveConnection = conn           'MyConStr是数据库连接字串
   .CommandText      = "proc_ListPageInt"     '指定存储过程名
   .CommandType      = 4                 '表明这是一个存储过程
   .Prepared         = false     '要求将SQL命令先行编译
   .Parameters.append .CreateParameter("@tblName", 200,1, 200,viewName) '表名
   .Parameters.append .CreateParameter("@fldName", 200,1, 500,colNames) '列名集合 例如："id,classid, classname, title,hits, author,  modtime"
   .Parameters.append .CreateParameter("@pageSize", 3,1,4,rows)  '每页记录条数
   .Parameters.append .CreateParameter("@page", 3,1,4,page)   '第几页
   .Parameters.append .CreateParameter("@pageCount", 3,2,4,0)   '输出 总页数
   .Parameters.append .CreateParameter("@Counts", 3,2,4,0)    '输出 总行数
   .Parameters.append .CreateParameter("@fldSort", 200,1, 200,sidxs) '排序 字段
   .Parameters.append .CreateParameter("@Sort", 3,1,4,sord)   '排序 升序/降序
   .Parameters.append .CreateParameter("@strCondition", 200,1, 1000,imask) '查询条件
   .Parameters.append .CreateParameter("@ID", 200,1, 150,keyid)  'key （标识列）
   .Parameters.append .CreateParameter("@Dist", 3,1, 4,0)    '未用，不记得是啥了，呵呵
    Set rs = .Execute
  end with
  rownum=0
  if rs.state = 0 then       
     recordcount = -1
  else
     rs.close   
     rownum = ListComm("@Counts")
     pagenum  = ListComm("@pageCount")
     if cint(page)>=cint(pagenum) then page=pagenum
  end if
  Set ListComm = Nothing
  if rownum>0 then
   '有获取到数据
   rs.open
    for i=1 to rows
    '你的代码
     rs.movenext
   next
    rs.close
  else
   '没有获取到数据
  end if