- 浏览: 6877870 次
- 性别:
- 来自: 上海
最新评论
-
autosuggestion:
实现一个智能提示功能需要JavaScript、ajax、数据库 ...
自动提示结果 -
岁月之眸:
...
Java读TXT文件 -
yujian58:
写的好。
在线客服技术方案 -
QQ1067184821:
你好,能不能发个完整的给我呢?1067184821@qq.co ...
Extjs3.2+Json lib动态树与GridPanel简单展现 -
chenhua0725:
能不能发一个完成的包给我呢,谢谢了,83667664@qq.c ...
Extjs3.2+Json lib动态树与GridPanel简单展现
先简单介绍一下俺这个类的一些特点:
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。
发表评论
-
一个用ASP生成html的新方法
2008-12-07 19:59 820标签: 目前已经有很多生成html的新闻系统,但是都是用的模板 ... -
ASP读取文本并在特定的字符后面写入一段字符串
2008-12-08 10:09 1126http://www.corange.cn/archives/ ... -
是否支持XmlHttp组件的判断
2008-12-08 15:09 1072<% On Error Resume Next Resp ... -
ASP对XML文档中文本的增加、删除、修改、查看
2008-12-08 15:11 1001<% '------------------------ ... -
实践xml缓存技术构建高性能web站点
2008-12-08 20:48 781打造一个高性能稳定的web站点一直是站长和程序员的梦想,本文用 ... -
asp获取文件md5值
2008-12-08 20:49 1282网上asp加密字符的MD5很 ... -
利用ASP获得图象的实际尺寸的示例
2008-12-12 16:32 896<!--#includevirtual=" ... -
asp阻止灌水留言的方法(随机生成的4位认证码)(
2008-12-17 23:34 1054原理:在每次提交留言的时候,要输入随机生成的4位认证码. 以下 ... -
ASP实现SQL语句日期格式的加减运算
2008-12-18 10:09 1442需要按时间查询,可是查询出来的结果显示的不正确。举个例子来说, ... -
ASP循环导入导出数据处理 不使用缓存
2009-01-13 11:30 978<% '//数据处理部分 dimContent ... -
asp之自动闭合HTML/ubb标签函数+简单注释
2009-01-13 11:34 1096程序代码 FunctioncloseUBB(strCont ... -
aspjpeg 半透明描边的实现函数
2009-01-13 22:36 1341'参数说明 'big 原图路径 ... -
Session对象的集合
2009-01-15 18:13 1048Session StaticObjects 集合 Static ... -
根据IP跳转到用户所在城市
2009-01-20 12:38 1507根据IP跳转到用户所在城市自动识别IP,并跳转到来访问者所在的 ... -
asp实现关键词不区分大小写搜索并高亮显示
2009-03-04 13:25 1299用ASP做搜索很容易,但要实现智能搜索这类就比较累一点,其实任 ... -
远程连接access数据库的几个方法
2009-06-03 21:16 903远程连接access数据库的几个方法: 1.建立VPN(Vir ... -
ASP-server.URLEncode反函数:urldecode
2009-06-08 08:50 1489如果有空格就用%20代替,如果有其它字符就用%ASCII代替, ... -
ASP动态包含文件的改进方法,ASP动态include
2009-06-10 12:30 1789ASP 本身不支持动态包含文件,现在的动态包含是通过 FSO ... -
ASP读取数据库中数据到数组的类
2009-06-10 12:31 1740DbPath = "test.mdb"’数 ... -
ASP中双引号单引号和&连接符使用技巧
2009-06-18 10:11 1375ASP中双引号单引号和&连接符使用技巧 一、ASP中处 ...
相关推荐
数据库操作类。 可以节省很多代码,保持数据库字段名和变量名一致即可。
asp.net数据库操作类asp.net数据库操作类asp.net数据库操作类asp.net数据库操作类asp.net数据库操作类asp.net数据库操作类asp.net数据库操作类asp.net数据库操作类asp.net数据库操作类asp.net数据库操作类asp.net...
asp net Access数据库操作通用类asp net Access数据库操作通用类asp net Access数据库操作通用类asp net Access数据库操作通用类asp net Access数据库操作通用类asp net Access数据库操作通用类asp net Access数据库...
ASP数据库操作类.chm <br>欢迎访问我的博客: http://workhelper.blogbus.com
一款ASP连接数据库的通用操作类一款ASP连接数据库的通用操作类
ASP操作数据库ASP操作数据库
简单上网asp操作数据库源码 ASP ACCESS 数据库
ASP操作数据库简单实例 ASP与数据库的连接、读取等操作源码,比较简单,易于理解......
Asp.net(c#)数据库操作类 。
ASP.NET操作数据库实例ASP.NET操作数据库实例ASP.NET操作数据库实例ASP.NET操作数据库实例
ASP.NET 数据库操作大全 很全面的介绍了数据库的操作
比较简单的asp对sqlserver数据库操作类。类似三层架构的操作。包括执行sql语句,存储过程;过程参数用2维数组定义。
一个ASP专用的数据库操作类,DbCtrl让数据操作更加方便快捷,asp方面的数据库操作类倒是不太多哦,本类可为学习asp的各种数据操作提供参考,也很适合学习。
ASP操作数据库教程
asp.net(C#)通用数据库操作类,下载后在您的程序中就可以使用。
ASP.NET数据库操作源码,实现对数据库的增,删,改,查。数据帮定等操作.
server sql数据库的操作类,添加操作类调用简单