经典Asp操作数据库类库

by Posted on

序——"懒"

其实我大多时间是用asp写后台的,而且还是经典asp的那种,可能是习惯的原因,或者懒,又或者我的服务器只支持asp,php的原因.于是我一直都没用nodejs或者jsp写后台. 不用php的原因是.....只是个人觉得 obj.pro 的这种写法在php写成 obj->pro 很别扭....又或者 "string1" + "string2" 写成 "string1"."string2" 的写法很别扭的缘故.好了东扯西扯后只是一个懒字. 但是经典asp操作数据库是一个蛋疼,一直都想自己写一个类库来操作这个数据库.当然一直没写出来的原因也是因为"懒".

于是,昨天爬网找一个类库,希望有帮助.虽然我现在没用过,但是看了一些说明,感觉还行.(只是因为经典asp的代码已经没多少人会更新,而且这个是04年的帖子.也是唯一的贴,也找不到相关的)于是就撇看懒癌自己记录下来,(当然是怕这个帖子的网站有一天会不见了)

当然为表尊重原文的链接也是要打一下的.接下来我就整理一下.

可操作的数据库

  1. Microsoft SQL Server
  2. Microsoft Access
  3. MySql Server
  4. Oracle Server

优点

  1. 可以操作多个不同类型的数据库
  2. 不用考虑数据类型,字符类型的字段也不需要单引号
  3. 使用简单,对数据库主要操作只需一行代码(听着好像挺神的)
  4. 支持MSSql的事务回滚
  5. 可自动生成和输出SQL语句,方便调用

使用方法

  1. 修改文件的第一行,为自己的数据库位置(按照函数说明中CreatConn部分修改)

  2. 用<!--#include file="数据库操作函数"-->或<!--#include virtual="数据库操作函数"-->引入函数

  3. 打开数据库连接

    OpenConn()

  4. 建立对象

    Dim db : Set db = New DbCtrl
'也可以多个数据库连接
Dim db1 : Set db1 = New DbCtrl : db1.dbConn = Oc(a)
Dim db2 : Set db2 = New DbCtrl : db2.dbConn = Oc(b)

  5. 最后关闭数据库连接

    Co(db) : closeConn()
'关闭多个数据库
Co(db1) : Co(db2)

  6. 其他操作函数(概况)

    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语句

  7. 参数约定

    (原文)由于ASP(应该修改为VBScript才对)没有Arguments对象，不能使用动态参数，所以，在本类的代码中，使用了Array(数组)来达到这一效果。(这个技巧在我平时开发中也经常使用,除了可以代替Arguments 之外还可以代替对象, 数组里面保存键值对之类的)本类中的部分参数可以使用数组(参数说明中有注明)，但使用数组时应参照以下格式:

    Array("Field1:Value1","Field2:True","Field3:500") '这就是用数组保存键值对
'如果使用变量,就如下
Array("Field1:" & Value1 , "Field2:" & Value2 , "Field3:" & Value3)

  8. 小结,注意事项

    (原文)要把ASP的数据库操作封装起来其实并不难，相信大家以前自己也做过类似的代码或是借用过其他人的封装好的代码。但是就如各位知道的一样，使用封装后的代码一旦出错，排错是一个比较麻烦的事情，一般说来，封装后操作越简单的排错也越複杂。俺在写这些代码的时候已经尽我所能考虑到如果出错的话如何去排查错误，在尽可能简化用户操作数据库的代码的同时可以随时输出sql语句排查错误。最后需要说明一点，本文所涉及的ASP数据库操作并不适合大型数据，如你所知，操作大型数据最好还是使用存储过程之类的东东比较好，以后俺会考虑把对存储过程的操作也封装进去。还有一个效率问题，要追求高效率的话，用ASP还是应该考虑COM+等，所以再次声明，本类适用的对象是中小型ASP项目。

详细说明

一、数据连接

CreatConn

原型 功能 返回值
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

原型 功能 返回值
Oc(connStr) 打开数据库连接 Object
参数 类型 说明
connStr String 数据库连接字符串，由CreatConn函数生成

Co

原型 功能 返回值
Co(obj) 关闭对象 无
参数 类型 说明
obj Object 要关闭的对象名称

OpenConn

原型 功能 返回值
OpenConn() 打开默认数据库连接，会自动建立一个名称为Conn的连接对像 无

CloseConn

原型 功能 返回值
CloseConn() 关闭名称为Conn的默认数据库连接对像 无

二、数据库操作

dbConn

原型 功能 返回值
dbCtrl.dbConn(objConn) 获取数据库连接对像
此属性为可选，如果不指定此属性
则默认数据连接为页面上名称为
Conn的数据库连接对像		 无
参数 类型 说明
objConn Object 已经建立的数据库连接对像
例
Dim db : Set db = New DbCtrl 
db.dbConn = Oc(CreatConn(1,"E:WebSiteMySiteData%TestDb%.mdb","","","")) 
Co(db)

AutoID

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

GetRecord

原型 功能 返回值
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) 
(我没试过,但是我觉得原作者文章中写错了,这里应该多了个w——db.wGetRecord,
如果这条出错,去掉w吧,我也会在我使用过后,修改这篇文章)

另外，你可以用下面的语句来查看这个函数生成的sql语句： 
Response.Write(db.wGetRecord("TestTable","fId,fName,fAge", Array("fSex:男","IsActive:1"), "fName Asc", 0)) 
如你所见，只需要在原来的函数前加一个w即可。

GetRecordBySQL

原型 功能 返回值
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)

GetRecordDetail

原型 功能 返回值
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) 

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

AddRecord

原型 功能 返回值
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值用的是比较笨的方法，并不能保证在并发数据量大的时候的准确性，慎用。

UpdateRecord

原型 功能 返回值
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)))

DeleteRecord

原型 功能 返回值
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))

ReadTable

原型 功能 返回值
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 ) & " 
性别：" & result( 1 ) & " 
年龄：" &result( 2 ))

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

C

原型 功能 返回值
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。

查看源码

Post Views: 42,431

Published by Conan

One Reply to “经典Asp操作数据库类库”

  1. Pingback： aspDbCtrl原代码 – Conan's Blog

发表回复

您的邮箱地址不会被公开。 必填项已用 * 标注