收藏本站腾讯微博新浪微博

经典论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

蓝色理想 最新研发动态 网站开通淘帖功能 - 蓝色理想插件 论坛内容导读一页看论坛 - 给官方提建议

论坛活动及任务 地图和邮件任务 请多用悬赏提问 热夏来袭,选一款蓝色理想的个性T恤吧!

手机上论坛,使用APP获得更好体验 急需前端攻城狮,获得内部推荐机会 论坛开通淘帖功能,收藏终于可以分类了!

搜索
查看: 28431|回复: 42

[asp] ASP操作数据库的类,让数据操作变得简单

[复制链接]
发表于 2007-11-1 16:54:33 | 显示全部楼层 |阅读模式
对于ASP的使用者来说,在数据库操作上越简单,就有更多的时间去考虑逻辑上和应用上的代码,效率也会更高。今天俺在这里给大家提供一种数据库操作的思路,这些代码是俺在长期的ASP应用中不断完成和修正的,也已经用它完成了很多项目了,应该说直接拿去用是没有问题的。当然本人能力也有限,希望大家一起来讨论。

说明:此帖代码均是VBScript版本。另外最好你对手写ASP已经有一定的基础。

先简单介绍一下俺这个类的一些特点:

1.可同时操作多个不同类型的数据库。
2.完全不用考虑数据类型的差别,再也不用想字符型字段加不加单引号。
3.调用非常简单,对数据库的主要操作一般只需要一行代码。
4.支持mssql事务回滚。
5.可自动生成和输出sql语句方便调试。


使用方法:

1.修改clsDbctrl.asp文件中的第1行为你自己的数据库位置(修改方法参考下面的CreatConn函数说明)。如需连接多个数据库可自行添加,格式相同。

2.在你新建的asp文件中包含此asp文件。如:
   <!--#include file="Inc/clsDbctrl.asp" -->  或者:
   <!--#include virtual="/Inc/clsDbctrl.asp"-->

3.使用如下代码应用此类:
   一个数据库连接:
<%
OpenConn()        '打开数据库连接
Dim db : Set db = New DbCtrl  '建立对象
'Your Code Here......
Co(db) : CloseConn() '释放对象,关闭数据库连接
%>

或者(一个或者多个数据库连接):
<%
Dim db1 : Set db1 = New DbCtrl : db1.dbConn = Oc(a)
Dim db2 : Set db2 = New DbCtrl : db2.dbConn = Oc(b)
'Your Code Here......
Co(db1) : Co(db2)
%>

4.具体操作的例子可以参考各函数说明内的代码示例。

方法和属性概览(详细用法及例子在下面):

CreatConn    生成数据库连接字符串
Oc           建立数据库连接
Co           释放对象
OpenConn     打开默认数据库连接
CloseConn    关闭默认数据库连接
dbCtrl.dbConn             属性,获取要操作的数据库连接,默认值为Conn
dbCtrl.dbErr              属性,只读,输出捕获的错误信息
dbCtrl.Version            属性,只读,程序版本信息
dbCtrl.AutoId             方法,自动获取唯一序列号
dbCtrl.GetRecord          方法,取得符合条件的纪录集
dbCtrl.GetRecordBySql     方法,根据sql语句取得纪录集
dbCtrl.GetRecordDetail    方法,根据某一条指定纪录的详细数据
dbCtrl.AddRecord          方法,添加一个新的纪录
dbCtrl.UpdateRecord       方法,根据指定条件更新纪录
dbCtrl.DeleteRecord       方法,删除符合条件的纪录
dbCtrl.ReadTable          方法,根据指定条件获取某条纪录中的其他字段的内容
dbCtrl.C                  方法,关闭纪录集对象
dbCtrl.wGetRecord,
dbCtrl.wAddRecord,
dbCtrl.wUpdateRecord,
dbCtrl.wDeleteRecord      这4个方法是取得相应的操作(前面加w)的sql语句



参数约定:

由于ASP没有Arguments对象,不能使用动态参数,所以,在本类的代码中,使用了Array(数组)来达到这一效果。本类中的部分参数可以使用数组(参数说明中有注明),但使用数组时应参照以下格式:


Array("Field1:Value1", "Field2:True", "Field3:100")

对,有点像json的格式,如果涉及到变量,那就这样:

Array("Field1:" & Value1, "Field2:" & Value2, "Field3:" & Value3)


可以这样说,本类中的几乎所有与数据库字段相关的内容都可以用以上的数组格式来设置条件或者是获取内容。而这里最大的特点就是在使用时不用去考虑字段的类型,在字段后跟一个冒号,接着跟上相应的值就行了。如果你经常手写ASP程序的话,你很快就会感受到运用这种方式的魅力,除了数据类型不用考虑之外,它也很方便随时添加和删除条件。如果你还不明白怎么用的话没关系,下面有很多例子可以说明这个问题。

要把ASP的数据库操作封装起来其实并不难,相信大家以前自己也做过类似的代码或是借用过其他人的封装好的代码。但是就如各位知道的一样,使用封装后的代码一旦出错,排错是一个比较麻烦的事情,一般说来,封装后操作越简单的排错也越复杂。俺在写这些代码的时候已经尽我所能考虑到如果出错的话如何去排查错误,在尽可能简化用户操作数据库的代码的同时可以随时输出sql语句排查错误。

最后需要说明一点,本文所涉及的ASP数据库操作并不适合大型数据,如你所知,操作大型数据最好还是使用存储过程之类的东东比较好,以后俺会考虑把对存储过程的操作也封装进去。还有一个效率问题,要追求高效率的话,用ASP还是应该考虑COM+等,所以再次声明,本类适用的对象是中小型ASP项目。

好了,下面奉上详细使用说明:

一.数据库连接

考虑到大多数人的使用习惯,在数据库连接上使用了公共过程,所以需要大家在代码里自行修改,如果你已经建立了数据库连接,把这几行注释掉就行了。代码中内置了MSSql,Access,MySQL,Oracle4种数据库的连接方式,当然你也可以自行在源代码中增加或删除。修改例如:
Dim a : a = CreatConn(0, "TestData", "localhost", "username", "userpassword")
Dim b : b = CreatConn(1, "Data/%TestDb%.mdb", "", "", "")

说明一下,第1个参数可以是字符串。如果是使用Access,则第2个参数输入相对路径和绝对路径都是可以的,如有密码也可以在第5个参数中输入,如:
Dim c : c = CreatConn("ACCESS", "E:\MyWeb\Data\%TestDB%.mdb", "", "", "mdbpassword")


相关函数:

原  型:CreatConn(dbType, strDB, strServer, strUid, strPwd)
功  能:建立数据库连接字符串
返回值:String
参  数:
dbType     : Integer or String 连接数据库类型
                  (0 or "MSSQL") - Microsoft SQL Server
                  (1 or "ACCESS") - Microsoft Office Access
                  (2 or "MYSQL") - MySQL Server
                  (3 or "ORACLE") - Oracle Server
strDB        : String        数据库名或数据库地址(Access使用绝对或者相对路径均可)
strServer   : String        数据库服务器地址,Access请留空
strUid        : String        数据库用户名,Access请留空
strPwd      : String        数据库密码

原  型:Oc(connStr)
功  能:打开数据库连接
返回值:Object 数据库连接对象
参  数:
connStr    : String  数据库连接字符串,由CreatConn函数生成

原  型:Co(obj)
功  能:关闭对象
参  数:
obj    : Object  要关闭的对象名称

原  型:OpenConn
功  能:打开默认数据库连接,会自动建立一个名称为Conn的连接对象
参  数:无

原  型:CloseConn
功  能:关闭名称为Conn的默认数据库连接对象
参  数:无

二. 数据库操作

下面就是本数据库操作类的函数功能说明,应该算是手册了,请多看例子的应用。

原  型:dbCtrl.dbConn(objConn)
功  能:获取数据库连接对象
参  数:
objConn  : Object  已经建立的数据库连接对象
举 例:
Dim db : Set db = New DbCtrl
db.dbConn = Oc(CreatConn(1,"E:\WebSite\MySite\Data\%TestDb%.mdb","","",""))
Co(db)

说  明:此属性为可选,如果不指定此属性则默认数据连接为页面上名称为Conn的数据库连接对象

原  型:dbCtrl.AutoID(TableName)
功  能:自动获取唯一序列号(自动编号)
返回值:Integer
参  数:
TableName : String  需要获得唯一序列号的数据表名
举 例:
Dim newId
newId = db.AutoId("TestTable")
Response.Write(newId)


原  型:dbCtrl.GetRecord(TableName,FieldsList,Condition,OrderField,ShowN)
功  能:取得符合条件的纪录集
返回值:Object 纪录集对象
参  数:
TableName  : String  表名称
FieldsList     : String  字段名称,用逗号隔开,留空则为全部字段
Condition     : String or Array  查询条件,如果是数组应遵循前面的参数约定
OrderField   : String  排序方式
ShowN        : Integer 获取纪录的数量,相当于sql中的 Select Top N
举 例:
Dim rs
Set rs = db.GetRecord("TestTable","fId,fName,fAge","fSex='男' And IsActive = 1","fName Asc", 0)
While Not rs.eof
  Response.Write ("Name is:" & rs(1) & " Age is:" & rs(2) & "<br />")
  rs.movenext()
Wend
db.C(rs)

对于以上的例子,用下面的数组方式指定条件是等价的:
Set rs = db.wGetRecord("TestTable","fId,fName,fAge", Array("fSex:男","IsActive:1"), "fName Asc", 0)

另外,你可以用下面的语句来查看这个函数生成的sql语句:
Response.Write(db.wGetRecord("TestTable","fId,fName,fAge", Array("fSex:男","IsActive:1"), "fName Asc", 0))

如你所见,只需要在原来的函数前加一个w即可。

原  型:dbCtrl.GetRecordBySQL(strSelect)
功  能:根据sql语句取得纪录集
返回值:Object 纪录集对象
参  数:
strSelect  :  String  用于生成记录集的SQL语句
举 例:
Dim rs
Set rs = db.GetRecordBySQL("Select a.Id, a.LastName, b.Group From User a InnerJoin Depart b On a.GroupId = b.GroupId")
'Your Code Here ...
db.C(rs)


原  型:dbCtrl.GetRecordDetail(TableName, Condition)
功  能:根据某一条指定纪录的详细数据
返回值:Object 纪录集对象
参  数:
TableName  : String  表名称
Condition     : String or Array  查询条件,如果是数组应遵循前面的参数约定
举 例:
Dim rs, Id
Id = Request.QueryString("id")
Set rs = db.GetRecordDetail("TestTable","Id=" & id)
'Your Code here...
db.C(rs)

说  明:就像你已经看出来的一样,这个最常用在打开某个详细页面(比如新闻内容页面)

原  型:dbCtrl.AddRecord(TableName, ValueList)
功  能:添加一个新的纪录
返回值:新记录的Id号(成功) or 0 (失败)
参  数:
TableName : String  表名称
ValueList     : Array  插入表的字段和值,只能是数组且应遵循前面的参数约定
举 例:
Dim fName, fSex, fWorkYear, fBirth
fName = "王二坛"
fSex = "男"
fWorkYear = 12
fBirth = Cdate("1981-10-23")
Dim result
result = db.AddRecord("TestTable",Array("Name:"&fName, "Sex:"&fSex, "WorkYear:"&fWorkYear, "Birthday:"&fBirth, "IsActive:True"))
If result<>0 Then
    Response.Write("添加记录成功!此记录的自动编号Id为" & result)
End If

看见了吧,真的不用考虑字段的类型是什么滴。
如果你想要代码中的字段和值看得更清楚一点,也可以这样写,但凭卿之所好:
result = db.AddRecord("TestTable",Array("Name:" & fName,_
                                        "Sex:" & fSex,_
                                        "WorkYear:" & fWorkYear,_
                                        "Birthday:" & fBirth,_
                                        "IsActive:True"))

另外,你可以用下面的语句来查看这个函数生成的sql语句:
Response.Write(db.wAddRecord("TestTable",Array("Name:"&fName, "Sex:"&fSex, "WorkYear:"&fWorkYear, "Birthday:"&fBirth, "IsActive:True")))

说  明:返回的Id值用的是比较笨的方法,并不能保证在并发数据量大的时候的准确性,慎用。

原  型:dbCtrl.UpdateRecord(TableName, Condition, ValueList)
功  能:根据指定条件更新纪录
返回值:1 (成功) or 0 (失败)
参  数:
TableName  : String  表名称
Condition  : String or Array  更新条件,如果是数组应遵循前面的参数约定
ValueList  : String or Array  更新的字段及值,如果是数组应遵循前面的参数约定
举 例:
Dim fName, fWorkYear
fName = "王三坛"
fWorkYear = 10
Dim result
result = db.UpdateRecord("TestTable", "UId = 1308", Array("Name:"&fName, "WorkYear:"&fWorkYear))
If result<>0 Then
    Response.Write("更新数据成功!")
End If

另外,你可以用下面的语句来查看这个函数生成的sql语句:
Response.Write(db.wUpdateRecord("TestTable", "UId = 1308", Array("Name:"&fName, "WorkYear:"&fWorkYear)))


原  型:dbCtrl.DeleteRecord(TableName,IDFieldName,IDValues)
功  能:删除符合条件的纪录
返回值:1 (成功) or 0 (失败)
参  数:
TableName   : String  表名称
IDFieldName : String  表的Id字段的名称
IDValues      : String or Array  删除条件,可以是由逗号隔开的多个Id号,如果是数组应遵循前面的参数约定
举 例:
Dim ids, result
ids = Request.Form("selectid") '可以假设这里获取的值是 12, 34, 256, 314 (复选框提交的值都这样)
result = db.DeleteRecord("TestTable", "UId", ids)
If result<>0 Then
    Response.Write("删除数据成功!")
End If

当然,你也可以用字符串或者数组指定其它的条件,比如:
result = db.DeleteRecord("TestTable", "UId", "IsActive = 0 And FirstName = 'Tom'")

另外,你可以用下面的语句来查看这个函数生成的sql语句:
Response.Write(db.wDeleteRecord("TestTable", "UId", ids))


原  型:dbCtrl.ReadTable(TableName, Condition, GetFieldNames)
功  能:根据指定条件获取某条纪录中的其他字段的内容
返回值:String (GetFieldNames为单个字段) or Array (GetFieldNames为多个字段)
参  数:
TableName       : String  表名称
Condition          : String or Array 查询条件,如果是数组应遵循前面的参数约定
GetFieldNames  : String  单个字段名或者由逗号隔开的多个字段名
举 例:
Dim uid, result
uid = rs("postid")  '假设这里是页面上某个记录集中的用户id值
result = db.ReadTable("UserTable","UId=" & uid, "UserName")
Response.Write("发布者:" & result)

我不得不说,在实际应用中,这个函数可能是用得最多的,你上面看到的就是一个非常常用的例子,从一个值去获取另外一个表中某字段值等于该值的另外一个字段的值(有点拗口,不过确实就是这个意思)。下面的例子将告诉你如何根据这个值获得多个相应的值。
Dim uid, result
uid = rs("postid")  '假设这里是页面上某个记录集中的用户id值
result = db.ReadTable("UserTable","UId=" & uid, "UserName,UserSex,UserAge")
Response.Write("发布者:" & result(0) & "<br /> 性别:" & result(1) & "<br /> 年龄:" &result(2))

如你所见,就这么简单,输入多个字段名称得到的是一个数组。

原  型:dbCtrl.C(objRs)
功  能:关闭纪录集对象
参  数:
objRs  : Object  页面上的某个记录集对象
举 例:
Dim rs
Set rs = db.GetRecordDetail("TestTable","Id=123" )
'Your Code here...
db.C(rs)

这个函数上面的许多例子都用了,就不多解释了,它等同于rs.close : set rs = nothing。

[[i] 本帖最后由 coldstone 于 2007-11-1 17:20 编辑 ]

ASP_DbCtrl.rar

3.18 KB, 下载次数: 962

发表于 2008-6-3 08:25:48 | 显示全部楼层
楼主好贴,今天刚看到,还没来得及测试,不过给个建议,关于自动编号生成的fuction,应该优化一下,看function的代码,应该跟access的自动编号原理是一样的,就是取该字段的所有数据的最大值之后+1生成新的自动编号,那么你的代码中是要查询table的第一个字段,升序排列循环取值并得到纪录尾的值+1,那么问题就出来了,如果table的第一个字段不是整数型怎么办,所以应该在入口参数里在指定一个autoid的字段名称,而且select的时候select具体字段比select * 要快,因为select * 实际上有个检索所有字段名的过程,而且你后面那个取值循环实在多余,也不利于效率的提升,是想如果记录条数很多是不是就要费时间了?解决办法很简单,就是select的时候order by autoidfeild DESC,按自动编号字段降序排列,那么记录集的第一条不正是当前字段的最大值吗,直接对其+1不就得到一个新的autoid了吗?
回复 支持 1 反对 1

使用道具 举报

发表于 2008-7-9 18:06:47 | 显示全部楼层
不过,我还是不懂,要怎么使用,请问一下,我们一般自已有个conn.asp的文件,那么在这个类里要怎么设置啊????
回复 支持 1 反对 0

使用道具 举报

发表于 2008-6-6 08:39:30 | 显示全部楼层
原帖由 [i]meter 于 2008-6-3 08:25 发表
楼主好贴,今天刚看到,还没来得及测试,不过给个建议,关于自动编号生成的fuction,应该优化一下,看function的代码,应该跟access的自动编号原理是一样的,就是取该字段的所有数据的最大值之后+1生成新的自动编号, ...

就用一个字段保存最后的值就行了
回复 支持 1 反对 0

使用道具 举报

发表于 2008-1-17 15:08:40 | 显示全部楼层
不错的类。。。要是能加存储过程进来就好啦。。。什么时候加。楼主来个表态啊。给我们这些学习的人用用啦,最好有注释。呵呵。谢谢
回复 支持 1 反对 0

使用道具 举报

发表于 2008-1-15 14:09:25 | 显示全部楼层
楼主辛苦了  我正好想找点这样的资料  回个帖子标记下
回复 支持 1 反对 0

使用道具 举报

发表于 2008-1-15 14:08:48 | 显示全部楼层
楼主辛苦了  我正好想找点这样的资料  回个帖子标记下
回复 支持 1 反对 0

使用道具 举报

发表于 2008-1-14 13:39:19 | 显示全部楼层
能不能给个实例的源代码看下,我调用时没成功
Set DB=New Cls_DbCtrl
DB.GetConn=Conn
Response.Write(DB.WGetRecord("AdminUser","",Array("user_name:admin","PassWord:1314520"),"",""))
错误说condition的类型不匹配
回复 支持 1 反对 0

使用道具 举报

发表于 2007-11-2 00:51:26 | 显示全部楼层
非常不错,支持。
回复 支持 1 反对 0

使用道具 举报

发表于 2007-11-2 00:39:35 | 显示全部楼层
能加上存储过程的调用就更不错了。CursorType 和LockType 为什么要用3,查询不用1,1或者0,1?
回复 支持 1 反对 0

使用道具 举报

 楼主| 发表于 2007-11-1 16:57:12 | 显示全部楼层
占楼,帖公共函数用,整理中。
回复 支持 1 反对 0

使用道具 举报

发表于 2007-11-1 16:56:37 | 显示全部楼层
回复 支持 1 反对 0

使用道具 举报

 楼主| 发表于 2007-11-1 16:56:39 | 显示全部楼层
源代码:
<%
'==========================================================================
'文件名称:clsDbCtrl.asp
'功  能:数据库操作类
'作  者:coldstone (coldstone[在]qq.com)
'程序版本:v1.0.5
'完成时间:2005.09.23
'修改时间:2007.10.30
'版权声明:可以在任意作品中使用本程序代码,但请保留此版权信息。
'          如果你修改了程序中的代码并得到更好的应用,请发送一份给我,谢谢。
'==========================================================================

Dim a : a = CreatConn(0, "master", "localhost", "sa", "")        'MSSQL数据库
'Dim a : a = CreatConn(1, "Data/%TestDB%.mdb", "", "", "")        'Access数据库
'Dim a : a = CreatConn(1, "E:\MyWeb\Data\%TestDB%.mdb", "", "", "mdbpassword")
Dim Conn
'OpenConn()        '在加载时就建立的默认连接对象Conn,默认使用数据库a
Sub OpenConn : Set Conn = Oc(a) : End Sub
Sub CloseConn : Co(Conn) : End Sub

Function Oc(ByVal Connstr)
        On Error Resume Next
        Dim objConn
        Set objConn = Server.CreateObject("ADODB.Connection")
        objConn.Open Connstr
        If Err.number <> 0 Then
                Response.Write("<div id=""DBError"">数据库服务器端连接错误,请与网站管理员联系。</div>")
                'Response.Write("错误信息:" & Err.Description)
                objConn.Close
                Set objConn = Nothing
                Response.End
        End If
        Set Oc = objConn
End Function

Sub Co(obj)
        On Error Resume Next
        Set obj = Nothing
End Sub

Function CreatConn(ByVal dbType, ByVal strDB, ByVal strServer, ByVal strUid, ByVal strPwd)
        Dim TempStr
        Select Case dbType
                Case "0","MSSQL"
                        TempStr = "driver={sql server};server="&strServer&";uid="&strUid&";pwd="&strPwd&";database="&strDB
                Case "1","ACCESS"
                        Dim tDb : If Instr(strDB,":")>0 Then : tDb = strDB : Else : tDb = Server.MapPath(strDB) : End If
                        TempStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&tDb&";Jet OLEDB:Database Password="&strPwd&";"
                Case "3","MYSQL"
                        TempStr = "Driver={mySQL};Server="&strServer&";Port=3306;Option=131072;Stmt=; Database="&strDB&";Uid="&strUid&";Pwd="&strPwd&";"
                Case "4","ORACLE"
                        TempStr = "Driver={Microsoft ODBC for Oracle};Server="&strServer&";Uid="&strUid&";Pwd="&strPwd&";"
        End Select
        CreatConn = TempStr
End Function


Class dbCtrl
        Private debug
        Private idbConn
        Private idbErr
       
        Private Sub Class_Initialize()
                debug = true                                        '调试模式是否开启
                idbErr = "出现错误:"
                If IsObject(Conn) Then
                        Set idbConn = Conn
                End If
        End Sub
       
        Private Sub Class_Terminate()
                Set idbConn = Nothing
                If debug And idbErr<>"出现错误:" Then Response.Write(idbErr)
        End Sub
       
        Public Property Let dbConn(pdbConn)
                If IsObject(pdbConn) Then
                        Set idbConn = pdbConn
                Else
                        Set idbConn = Conn
                End If
        End Property
       
        Public Property Get dbErr()
                dbErr = idbErr
        End Property
       
        Public Property Get Version
                Version = "ASP Database Ctrl V1.0 By ColdStone"
        End Property

        Public Function AutoID(ByVal TableName)
                On Error Resume Next
                Dim m_No,Sql, m_FirTempNo
                Set m_No=Server.CreateObject("adodb.recordset")
                Sql="SELECT * FROM ["&TableName&"]"
                m_No.Open Sql,idbConn,1,1
                If m_No.EOF Then
                        AutoID=1
                Else
                        Do While Not m_No.EOF
                                m_FirTempNo=m_No.Fields(0).Value
                                m_No.MoveNext
                                  If m_No.EOF Then
                                                AutoID=m_FirTempNo+1
                                  End If
                        Loop
                End If
                If Err.number <> 0 Then
                        idbErr = idbErr & "无效的查询条件!<br />"
                        If debug Then idbErr = idbErr & "错误信息:"& Err.Description
                        Response.End()
                        Exit Function
                End If
                m_No.close
                Set m_No = Nothing
        End Function

        Public Function GetRecord(ByVal TableName,ByVal FieldsList,ByVal Condition,ByVal OrderField,ByVal ShowN)
                On Error Resume Next
                Dim rstRecordList
                Set rstRecordList=Server.CreateObject("adodb.recordset")
                        With rstRecordList
                        .ActiveConnection = idbConn
                        .CursorType = 1
                        .LockType = 1
                        .Source = wGetRecord(TableName,FieldsList,Condition,OrderField,ShowN)
                        .Open
                        If Err.number <> 0 Then
                                idbErr = idbErr & "无效的查询条件!<br />"
                                If debug Then idbErr = idbErr & "错误信息:"& Err.Description
                                .Close
                                Set rstRecordList = Nothing
                                Response.End()
                                Exit Function
                        End If       
                End With
                Set GetRecord=rstRecordList
        End Function
       
        Public Function wGetRecord(ByVal TableName,ByVal FieldsList,ByVal Condition,ByVal OrderField,ByVal ShowN)
                Dim strSelect
                strSelect="select "
                If ShowN > 0 Then
                        strSelect = strSelect & " top " & ShowN & " "
                End If
                If FieldsList<>"" Then
                        strSelect = strSelect & FieldsList
                Else
                        strSelect = strSelect & " * "
                End If
                strSelect = strSelect & " from [" & TableName & "]"
                If Condition <> "" Then
                        strSelect = strSelect & " where " & ValueToSql(TableName,Condition,1)
                End If
                If OrderField <> "" Then
                        strSelect = strSelect & " order by " & OrderField
                End If
                wGetRecord = strSelect
        End Function

        Public Function GetRecordBySQL(ByVal strSelect)
                On Error Resume Next
                Dim rstRecordList
                Set rstRecordList=Server.CreateObject("adodb.recordset")
                        With rstRecordList
                        .ActiveConnection =idbConn
                        .CursorType = 1
                        .LockType = 1
                        .Source = strSelect
                        .Open
                        If Err.number <> 0 Then
                                idbErr = idbErr & "无效的查询条件!<br />"
                                If debug Then idbErr = idbErr & "错误信息:"& Err.Description
                                .Close
                                Set rstRecordList = Nothing
                                Response.End()
                                Exit Function
                        End If       
                End With
                Set GetRecordBySQL = rstRecordList
        End Function

        Public Function GetRecordDetail(ByVal TableName,ByVal Condition)
                On Error Resume Next
                Dim rstRecordDetail, strSelect
                Set rstRecordDetail=Server.CreateObject("adodb.recordset")
                With rstRecordDetail
                        .ActiveConnection =idbConn
                        strSelect = "select * from [" & TableName & "] where " & ValueToSql(TableName,Condition,1)
                        .CursorType = 1
                        .LockType = 1
                        .Source = strSelect
                        .Open
                        If Err.number <> 0 Then
                                idbErr = idbErr & "无效的查询条件!<br />"
                                If debug Then idbErr = idbErr & "错误信息:"& Err.Description
                                .Close
                                Set rstRecordDetail = Nothing
                                Response.End()
                                Exit Function
                        End If
                End With
                Set GetRecordDetail=rstRecordDetail
        End Function

        Public Function AddRecord(ByVal TableName, ByVal ValueList)
                On Error Resume Next
                DoExecute(wAddRecord(TableName,ValueList))
                If Err.number <> 0 Then
                        idbErr = idbErr & "写入数据库出错!<br />"
                        If debug Then idbErr = idbErr & "错误信息:"& Err.Description
                        'DoExecute "ROLLBACK TRAN Tran_Insert"        '如果存在添加事务(事务滚回)
                        AddRecord = 0
                        Exit Function
                End If
                AddRecord = AutoID(TableName)-1
        End Function
       
        Public Function wAddRecord(ByVal TableName, ByVal ValueList)
                Dim TempSQL, TempFiled, TempValue
                TempFiled = ValueToSql(TableName,ValueList,2)
                TempValue = ValueToSql(TableName,ValueList,3)
                TempSQL = "Insert Into [" & TableName & "] (" & TempFiled & ") Values (" & TempValue & ")"
                wAddRecord = TempSQL
        End Function

        Public Function UpdateRecord(ByVal TableName,ByVal Condition,ByVal ValueList)
                On Error Resume Next
                DoExecute(wUpdateRecord(TableName,Condition,ValueList))
                If Err.number <> 0 Then
                        idbErr = idbErr & "更新数据库出错!<br />"
                        If debug Then idbErr = idbErr & "错误信息:"& Err.Description
                        'DoExecute "ROLLBACK TRAN Tran_Update"        '如果存在添加事务(事务滚回)
                        UpdateRecord = 0
                        Exit Function
                End If
                UpdateRecord = 1
        End Function

        Public Function wUpdateRecord(ByVal TableName,ByVal Condition,ByVal ValueList)
                Dim TmpSQL
                TmpSQL = "Update ["&TableName&"] Set "
                TmpSQL = TmpSQL & ValueToSql(TableName,ValueList,0)
                TmpSQL = TmpSQL & " Where " & ValueToSql(TableName,Condition,1)
                wUpdateRecord = TmpSQL
        End Function

        Public Function DeleteRecord(ByVal TableName,ByVal IDFieldName,ByVal IDValues)
                On Error Resume Next
                Dim Sql
                Sql = "Delete From ["&TableName&"] Where ["&IDFieldName&"] In ("
                If IsArray(IDValues) Then
                        Sql = Sql & "Select ["&IDFieldName&"] From ["&TableName&"] Where " & ValueToSql(TableName,IDValues,1)
                Else
                        Sql = Sql & IDValues
                End If
                Sql = Sql & ")"
                DoExecute(Sql)
                If Err.number <> 0 Then
                        idbErr = idbErr & "删除数据出错!<br />"
                        If debug Then idbErr = idbErr & "错误信息:"& Err.Description
                        'DoExecute "ROLLBACK TRAN Tran_Delete"        '如果存在添加事务(事务滚回)
                        DeleteRecord = 0
                        Exit Function
                End If
                DeleteRecord = 1
        End Function
       
        Public Function wDeleteRecord(ByVal TableName,ByVal IDFieldName,ByVal IDValues)
                On Error Resume Next
                Dim Sql
                Sql = "Delete From ["&TableName&"] Where ["&IDFieldName&"] In ("
                If IsArray(IDValues) Then
                        Sql = Sql & "Select ["&IDFieldName&"] From ["&TableName&"] Where " & ValueToSql(TableName,IDValues,1)
                Else
                        Sql = Sql & IDValues
                End If
                Sql = Sql & ")"
                wDeleteRecord = Sql
        End Function

        Public Function ReadTable(ByVal TableName,ByVal Condition,ByVal GetFieldNames)
                On Error Resume Next
                Dim rstGetValue,Sql,BaseCondition,arrTemp,arrStr,TempStr,i
                TempStr = "" : arrStr = ""
                '给出SQL条件语句
                BaseCondition = ValueToSql(TableName,Condition,1)
                '读取数据
                Set rstGetValue = Server.CreateObject("ADODB.Recordset")
                Sql = "Select "&GetFieldNames&" From ["&TableName&"] Where "&BaseCondition
                rstGetValue.Open Sql,idbConn,1,1
                If rstGetValue.RecordCount > 0 Then
                        If Instr(GetFieldNames,",")>0 Then
                                arrTemp = Split(GetFieldNames,",")
                                For i = 0 To Ubound(arrTemp)
                                        If i<>0 Then arrStr = arrStr &Chr(112)&Chr(112)&Chr(113)
                                        arrStr = arrStr & rstGetValue.Fields(i).Value
                                Next
                                TempStr = Split(arrStr,Chr(112)&Chr(112)&Chr(113))
                        Else
                                TempStr = rstGetValue.Fields(0).Value
                        End If
                End If
                If Err.number <> 0 Then
                        idbErr = idbErr & "获取数据出错!<br />"
                        If debug Then idbErr = idbErr & "错误信息:"& Err.Description
                        rstGetValue.close()
                        Set rstGetValue = Nothing
                        Exit Function
                End If
                rstGetValue.close()
                Set rstGetValue = Nothing
                ReadTable = TempStr
        End Function

        Public Function C(ByVal ObjRs)
                ObjRs.close()
                Set ObjRs = Nothing
        End Function
       
        Private Function ValueToSql(ByVal TableName, ByVal ValueList, ByVal sType)
                Dim StrTemp
                StrTemp = ValueList
                If IsArray(ValueList) Then
                        StrTemp = ""
                        Dim rsTemp, CurrentField, CurrentValue, i
                        Set rsTemp = Server.CreateObject("adodb.recordset")
                        With rsTemp
                                .ActiveConnection = idbConn
                                .CursorType = 1
                                .LockType = 1
                                .Source ="select * from [" & TableName & "] where 1 = -1"
                                .Open
                                For i = 0 to Ubound(ValueList)
                                        CurrentField = Left(ValueList(i),Instr(ValueList(i),":")-1)
                                        CurrentValue = Mid(ValueList(i),Instr(ValueList(i),":")+1)
                                        If i <> 0 Then
                                                Select Case sType
                                                        Case 1
                                                                StrTemp = StrTemp & " And "
                                                        Case Else
                                                                StrTemp = StrTemp & ", "
                                                End Select
                                        End If
                                        If sType = 2 Then
                                                StrTemp = StrTemp & "[" & CurrentField & "]"
                                        Else
                                                Select Case .Fields(CurrentField).Type
                                                        Case 7,133,134,135,8,129,200,201,202,203
                                                                If sType = 3 Then
                                                                        StrTemp = StrTemp & "'"&CurrentValue&"'"
                                                                Else
                                                                        StrTemp = StrTemp & "[" & CurrentField & "] = '"&CurrentValue&"'"
                                                                End If
                                                        Case 11
                                                                If UCase(cstr(Trim(CurrentValue)))="TRUE" Then
                                                                        If sType = 3 Then
                                                                                StrTemp = StrTemp & "1"
                                                                        Else
                                                                                StrTemp = StrTemp & "[" & CurrentField & "] = 1"
                                                                        End If
                                                                Else
                                                                        If sType = 3 Then
                                                                                StrTemp = StrTemp & "0"
                                                                        Else
                                                                                StrTemp = StrTemp & "[" & CurrentField & "] = 0"
                                                                        End If
                                                                End If
                                                        Case Else
                                                                If sType = 3 Then
                                                                        StrTemp = StrTemp & CurrentValue
                                                                Else
                                                                        StrTemp = StrTemp & "[" & CurrentField & "] = " & CurrentValue
                                                                End If
                                                End Select
                                        End If
                                Next
                        End With
                        If Err.number <> 0 Then
                                idbErr = idbErr & "生成SQL语句出错!<br />"
                                If debug Then idbErr = idbErr & "错误信息:"& Err.Description
                                rsTemp.close()
                                Set rsTemp = Nothing
                                Exit Function
                        End If
                        rsTemp.Close()
                        Set rsTemp = Nothing
                End If
                ValueToSql = StrTemp
        End Function

        Private Function DoExecute(ByVal sql)
                Dim ExecuteCmd
                Set ExecuteCmd = Server.CreateObject("ADODB.Command")
                With ExecuteCmd
                        .ActiveConnection = idbConn
                        .CommandText = sql
                        .Execute
                End With
                Set ExecuteCmd = Nothing
        End Function
End Class
%>

[[i] 本帖最后由 coldstone 于 2007-11-2 00:54 编辑 ]

评分

参与人数 1威望 +2 收起 理由
帅青蛙 + 2 鼓励原创

查看全部评分

回复 支持 1 反对 0

使用道具 举报

 楼主| 发表于 2007-11-2 00:55:29 | 显示全部楼层
原帖由 [i]kv163 于 2007-11-2 00:39 发表
能加上存储过程的调用就更不错了。CursorType 和LockType 为什么要用3,查询不用1,1或者0,1?

谢谢提醒,调试完了忘了改回来。
回复 支持 反对

使用道具 举报

发表于 2007-11-2 01:07:13 | 显示全部楼层
楼主使用“:”作为换行标识,阅读起来有点不太习惯,呵呵。
此刻正在测试~
回复 支持 反对

使用道具 举报

发表于 2007-11-2 02:28:36 | 显示全部楼层
有个问题不是很明白

        Private Sub Class_Initialize()
                Set Rs = Server.CreateObject("ADODB.RecordSet")
        End Sub
        '查询数据库()
        Public Function Query(StrSql)
                Rs.Open StrSql,Conn,1,1
                set Query = Rs.Clone
                Rs.Close
        End Function

比如查询数据库。
构造函数已经声明一个Rs对象了。
在Query返回的时候又声明一个。
调用的时候又声明一个
Set rs = clsDB.Query(sql)
这样反复的声明对象不占资源??
回复 支持 反对

使用道具 举报

 楼主| 发表于 2007-11-2 08:35:51 | 显示全部楼层
声明对象是肯定要占资源的,及时释放就行了。
回复 支持 反对

使用道具 举报

发表于 2007-11-2 09:34:06 | 显示全部楼层
不錯,
回复 支持 反对

使用道具 举报

发表于 2007-11-2 09:42:22 | 显示全部楼层
我关心的是速度是否能变快。
回复 支持 反对

使用道具 举报

发表于 2007-11-2 22:16:11 | 显示全部楼层
I love it ,推荐加精。
回复 支持 反对

使用道具 举报

发表于 2007-11-2 23:59:23 | 显示全部楼层

回复 #12 002269 的帖子

真是傻人说傻话。速度快不快关键于你的SQL语句和数据库。这个类只是简化操作

看你注册日期是2004年,上了3年的蓝色,说话和个菜鸟似的。
回复 支持 反对

使用道具 举报

发表于 2007-11-3 08:42:38 | 显示全部楼层
真是好帖,强帖,收藏了先
回复 支持 反对

使用道具 举报

发表于 2007-11-3 08:50:54 | 显示全部楼层
楼主看来也是用ASP的强人啊
回复 支持 反对

使用道具 举报

发表于 2007-11-3 16:35:09 | 显示全部楼层
原帖由 [i]kv163 于 2007-11-2 23:59 发表
真是傻人说傻话。速度快不快关键于你的SQL语句和数据库。这个类只是简化操作

看你注册日期是2004年,上了3年的蓝色,说话和个菜鸟似的。


本人是学机械工程的,我承认你是高手,你心里爽了吧,小朋友。。。
回复 支持 反对

使用道具 举报

发表于 2007-11-3 17:32:26 | 显示全部楼层
大有收获~~~

高手!!我正学习中!!!!
回复 支持 反对

使用道具 举报

发表于 2007-11-3 20:22:15 | 显示全部楼层
方便是方便了,

不过。。。。

执行效率如何?
回复 支持 反对

使用道具 举报

发表于 2007-11-3 20:32:09 | 显示全部楼层
原帖由 [i]kv163 于 2007-11-2 23:59 发表
真是傻人说傻话。速度快不快关键于你的SQL语句和数据库。这个类只是简化操作

看你注册日期是2004年,上了3年的蓝色,说话和个菜鸟似的。



俺虽然初来贵地,但是很中肯地告诉你一句:

ASP这样搞法肯定不行的,尤其是你写大型系统的时候

按我的经验:

1,不要封装成类

2,写成函数封到DLL里面

3,SQL语句尽量写成存储过程

4,把记录读到数组里

这样处理后,速度怎样,看看我写的统计系统,你就明白了:
http://www.luyanshao.com/statshow2.asp?page=13

[[i] 本帖最后由 apollosun123 于 2007-11-3 20:39 编辑 ]
回复 支持 反对

使用道具 举报

 楼主| 发表于 2007-11-3 21:32:00 | 显示全部楼层
原帖由 [i]apollosun123 于 2007-11-3 20:22 发表
方便是方便了,

不过。。。。

执行效率如何?

正如我在开头就说的一样,效率上确实没有多少优势,因为我并没有把存储过程封装进去。同意你的部分说法,比如使用存储过程和封到dll里能提高效率。
但是你也说对了,我想要的就是方便。所以这里提供的就是一种方便处理数据的方式和思路给中小型数据库用户参考,比如使用虚拟主机的网站和适合办公环境的中小型开发项目。让他们从数据操作中解放出来。
回复 支持 反对

使用道具 举报

发表于 2007-11-5 08:25:16 | 显示全部楼层
class是面向对象中的概念,一般封装成class时,讲究封装抽象(如,接口,一般的class都会实现一个接口),封装抽象主要就是实现扩展能力,也就是不通过修改class的代码来实现class的扩展。

很多人贴出来的asp 代码中的class都还只是面向过程的,既然是面向过程的,又何必套个class上去?
回复 支持 反对

使用道具 举报

 楼主| 发表于 2007-11-5 16:36:54 | 显示全部楼层
原帖由 [i]cjj 于 2007-11-5 08:25 发表
class是面向对象中的概念,一般封装成class时,讲究封装抽象(如,接口,一般的class都会实现一个接口),封装抽象主要就是实现扩展能力,也就是不通过修改class的代码来实现class的扩展。

很多人贴出来的as ...

非常赞同。谢谢指教。
其实这个类可以把其中的function剥离出来直接作为过程来使用,当然那样使用起来更简单。俺这里封装成class的主要目的不是要面向对象,而是比较多的考虑了尽量不污染用户可能自定义的一些函数,用class比较保险。
回复 支持 反对

使用道具 举报

发表于 2007-11-10 09:07:03 | 显示全部楼层
个人在做大型新闻网站的时候和OA办公的时候
感觉ASP用类封装起来速度比直接写Sub&Function慢得多
它不是编译型的语言
而且实例化一个类以后又要占用系统资源
回复 支持 反对

使用道具 举报

发表于 2007-11-18 15:54:26 | 显示全部楼层
简化数据操作,方便程序开发,感谢楼主给大家带来这个贴子。
回复 支持 反对

使用道具 举报

发表于 2007-11-21 08:24:24 | 显示全部楼层
感谢楼主提供的clashh,支持你把存储过程加进来
回复 支持 反对

使用道具 举报

发表于 2007-11-25 14:37:59 | 显示全部楼层
这是VBScript版本,请哪位牛人请改为JS版共享
回复 支持 反对

使用道具 举报

发表于 2007-12-13 12:54:10 | 显示全部楼层

哈哈顶

楼主,什么时候把贮存过程也放进去!!不错!开放的!
回复 支持 反对

使用道具 举报

发表于 2007-12-13 15:03:12 | 显示全部楼层

不熟识该习惯!

操作起来还是麻烦的!!
回复 支持 反对

使用道具 举报

发表于 2007-12-13 15:28:20 | 显示全部楼层
还不错!以后习惯可能会更好了!!

[[i] 本帖最后由 tdxian 于 2007-12-13 16:11 编辑 ]
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|小黑屋|Archiver|手机版|blueidea.com ( 湘ICP备12001430号 )  

GMT+8, 2020-11-1 03:59 , Processed in 0.124688 second(s), 11 queries , Gzip On, Memcache On.

Powered by Discuz! X3.2 Licensed

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表