Asp数据操作组件(百万级分页)(修改版)
原文引用:
http://www.17558.net/cmd.asp?act=tb&id=16&key=43840
原文地址:http://www.17558.net/post/16.html
偶是一个底层的ASP技术人员(属于半路出家的那种,以前是一名网络技术人员),最近参与制作一个CRM系统,架够采用ASP+SQL,考虑到以后数据查询效率问题,所以在网上找了一个 Asp数据操作组件(百万级分页) ,实用环境：Asp＋DLL＋MsSQL(这个网上很多地方都可以下载),并且其中结合SQL存储过程,说实话以前SQL存储过程接触的比较少,所以在调试该组件的时候遇到了一些问题,并试着改了一下(作者别生气(^..^)),高手们别笑话我。
原代码如下：
有分页列表数据：
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 & """ "
相关文档：
第二个重要的类,作用是类型转换,类名Con_Convert.在页面代码的开头实例化,对象名为Convert,借用了.net的类型转换的对象名称.
这个类主要解决在类型转换时,如果直接使用类型转换函数,会因为变量为空或者格式不对而导致程序报错,而这种报� ......
<%
Response.Buffer = true
Response.Clear
dim url
Dim fso,fl,flsize
dim Dname
Dim objStream,ContentType,flName,isre,url1
Dim strFileName
strFileName=replace(replace(Request("file"),"\",""),"/","") '传参
strFileName="/files/"&strFileName ' 改成你你文件的存 ......
记得在建立一个文件夹"updata"
saveannounce_upload.asp 上传页
------------------------------------
<html>
<head>
<style type="text/css
">
body {font-size:9pt;}
input {font-size:9pt;}
</style>
<title>文件上传</title>
</head& ......
CREATE PROCEDURE sp_newpage
@tb varchar(50), --表名
@col varchar(50), --按该列来进行分页
@coltype int, --@col列的类型,0-数字类型,1-字符类型,2-日期时间类型
@orderby bit, --排序,0-顺序,1-倒序
@collist varchar(800),--要查询出的字段列表,*表示全部字 ......
只能输入1个数字
表达式 ^\d$
描述 匹配一个数字
匹配的例子 0,1,2,3
不匹配的例子
只能输入n个数字
表达式 ^\d{n}$ 例如^\d{8}$
描述 匹配8个数字
匹配的例子 12345678,22223334,12344321
不匹配的例子
只能输入至少n个数字
表达式 ^\d{n,}$ 例如^\d{8, ......
