ASP数据库连接类

baacloud免费翻墙vpn注册使用

ASP数据库连接类
本帖发表在我是网管论坛,帖子地址:http://bbs.54master.com/119846,1,1
多数人定义conn文件的时候,都是这样.但在这样我并没有说不对.(如下代码)
conn.asp
[Copy to clipboard] [ – ]
CODE:
<% dim conn dim connstr dim db db="database/data_asp.mdb" Set conn = Server.CreateObject("ADODB.Connection") connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db) conn.Open connstr %>
其实我们可以更好的利用conn这个文件做数据初始化的操作.今天把以前写过一个连接数据库类文件拿出来与大家分享一下,让我们一起慢慢接触ASP里的类的调用.
文档目录:
[Copy to clipboard] [ – ]
CODE:
Data:数据库文件夹
Inc :系统文件夹
inc/Fel_AsenSystem.asp:数据库类文件
Conn.asp :连接数据库文件
Index.asp:首页
很简单,我们来简单看一下Fel_AsenSystem.asp文件的代码:
[Copy to clipboard] [ – ]
CODE:
<% '文 件 名:Fel_AsenSysTem.asp '文件功能:封装类库代码 '开 发 组:Dreams Creation 项目开发组 '开发模块:数据库类 '组 成 员:特蓝克斯 '作 者:特蓝克斯 '创建时间:2006-04-20 '完成时间:?-?-? %>
<% '/*******************数据库类*******************/ Class Fel_DataBase Private ConnStr Public Property Let ConnValue(ByVal Val) ConnStr = Val End Property Public Property Get ConnValue() ConnValue = ConnStr End Property Public Function OpenConnection(DbType) Dim TempConn On Error Resume Next Set TempConn = Server.CreateObject("ADODB.Connection") TempConn.Open ConnValue Set OpenConnection = TempConn Set TempConn = Nothing If Err Then Err.Clear Response.Write "

“& DbType &”连接出错,请检查数据库连接字符串!


Response.End
Else
Response.Write “

Fellow Ver1.00 连接数据库类文件
数据库连接正常!


End If
End Function
End Class
%>
定义一个数据库类Class Fel_DataBase而这里在conn文件实例化数据库类
conn.asp
[Copy to clipboard] [ – ]
CODE:
<% '文 件 名:Conn.asp '文件功能:连接数据库文件 '开 发 组:Dreams Creation 项目开发组 '开发模块:数据库类 '组 成 员:特蓝克斯 '作 者:特蓝克斯 '创建时间:2006-04-20 %>
<% Dim DbPath Dim Conn,Rs Dim Db Dim IsSqlDataBase Dim SqlUsername,SqlPassword,SqlDatabaseName,SqlLocalName Set Db = New Fel_DataBase '实例化数据库 IsSqlDataBase = 0 '主数据库类型,"1"SQL,"0"为ACCESS '====ACCESS版 数据库参数===== Const InstallDir= "/" Rem 网站安装目录,根目录用“/”,请用"/"开头及结尾:如安装在asen_conn目录下,则值为:“/asen_conn/” DbPath = InstallDir & "Data/Data.mdb" 'Access版主数据库文件的位置(请用绝对路径) '====SQL版 数据库参数===== SqlUsername ="asen" '主数据库登录用户 SqlPassword ="asen" '主数据库登录密码 SqlDatabaseName="Fellow_cms" '主数据库名 SqlLocalName="(local)" '数据库服务器,本机用“(local)” Sub OpenConn() '连接数据库函数 if IsObject(Conn) then Exit Sub if IsSqlDataBase=1 then Db.ConnValue = "Provider = Sqloledb; User ID = " & SqlUsername & "; Password = " & SqlPassword & "; Initial Catalog = " & SqlDatabaseName & "; Data Source = " & SqlLocalName & ";" else Db.ConnValue="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(DbPath) end If Set Conn=Db.OpenConnection("主数据库") End Sub Sub CloseAllObj() On Error Resume Next Set Db = Nothing Conn.Close:Set Conn = Nothing end Sub %>
实例化对象为
[Copy to clipboard] [ – ]
CODE:
Set Db = New Fel_DataBase '实例化数据库
代码很简单,只是提供一个这样思路给大家,要尽量合理的利用conn文件,等在以后的时间里我在给大家讲一下模板及缓存的时候,在介绍详细一些.这里代码COPY过去,就可以用.不需要改什么,当然了,路径问题是一定要考虑的,自己看吧.

赞(0) 打赏
分享到: 更多 (0)

觉得文章有用就打赏一下文章作者

支付宝扫一扫打赏

微信扫一扫打赏