原代码如下：
有分页列表数据：
cls.tblName="Tablename" '表名
cls.fldName="Id" '排序关键字段
cls.PageIndex=Request("P")*1 '当前页码
cls.PageSize=20 '每页列数
cls.OrderType=1 '排序方式，0 、1
cls.strWhere=StrW '查询条件，不带Where
cls.ListUrl="?Y="&Y&"&M="&M&"&D="&D&"&Sn="&Sn&"&P=" 分页URL
Set Rs=cls.Result
do while not rs.eof
rs.movenext
loop
分页数据 cls.page
在原文的使用说明中，在翻页代码中对表查询默认是全部字段也就是*，这样是不是会浪费资源，而无法查询需要的字段，于是我在DLL代码中新加入一个变量名 为zdName，作为传递可控制查询条件的变量，同时在SQL存储过程中也加入相应的接受变量@zdName 字符型。
在这个小问题解决后，又在使用上发现cls.strWhere付给它的变量StrW 如果条件变量其中带有类似 例如 a='b'则执行SQL存储过程时候会提示错误，后来发现是DLL代码中：
sql = "exec GetList " & tblName & "," & fldName & "," & PageSize & "," & PageIndex & "," & OrderType & ",'" & strWhere & "' "
这个地方是否写的不够严谨，在StrW中如果含有单引，那么将无法执行，所以我在DLL的VB代码改成
If InStr(strWhere, "'") <> 0 Then
sql = "exec GetList " & tblName & "," & fldName & ","
& PageSize & "," & PageIndex & "," & OrderType &
",""" & strWhere & """ "
Else
sql = "exec
GetList " & tblName & "," & fldName & "," & PageSize
& "," & PageIndex & "," & OrderType & ",'" &
strWhere & "' "
End If
试了试目前的问题确实解决了，这个组件我也是刚刚使用，希望对大家能有点帮助！
修改版下载：Asp数据操作组件(百万级分页)(修改版)
