Mikel
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 "
”
Response.End
Else
Response.Write “
数据库连接正常！
”
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过去,就可以用.不需要改什么,当然了,路径问题是一定要考虑的，自己看吧.
