文件名称:
Asp数据操作组件(百万级分页)(修改版)
开发工具:
文件大小: 19kb
下载次数: 1
上传时间: 2009-09-15
详细说明： 在网上找了一个 Asp数据操作组件(百万级分页) ,实用环境：Asp＋DLL＋MsSQL(这个网上很多地方都可以下载),并且其中结合SQL存储过程,说实话以前SQL存储过程接触的比较少,所以在调试该组件的时候遇到了一些问题,并试着改了一下(作者别生气(^..^)),高手们别笑话我。 原代码如下： 有分页列表数据： cls.tblName="Tablename" '表名 cls.fldName="Id" '排序关键字段 cls.PageIndex=Reque st("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 试了试目前的问题确实解决了，这个组件我也是刚刚使用，希望对大家能有点帮助！ ...展开收缩
(系统自动生成,下载前可以参看下载内容)
下载文件列表
相关说明
- 本站资源为会员上传分享交流与学习,如有侵犯您的权益,请联系我们删除.
- 本站是交换下载平台，提供交流渠道，下载内容来自于网络，除下载问题外，其它问题请自行百度。
- 本站已设置防盗链，请勿用迅雷、QQ旋风等多线程下载软件下载资源，下载后用WinRAR最新版进行解压.
- 如果您发现内容无法下载，请稍后再次尝试；或者到消费记录里找到下载记录反馈给我们.
- 下载后发现下载的内容跟说明不相乎，请到消费记录里找到下载记录反馈给我们，经确认后退回积分.
- 如下载前有疑问，可以通过点击"提供者"的名字，查看对方的联系方式，联系对方咨询.
