| asp对象化之:数据库操作类__教程 |
|
| 日期：2007-5-20 0:37:28 人气：37 [大 中 小] |
|
|
|
|
|
<%
’────────────────────────────────
’功能说明：db类是实现数据库连接的类，里面留有数据库连接字符串接口
’包括模块：无，一般都是被其他模块包括
’调用方法：1、如果使用原有数据库连接，则不用更改数据库连接字符串ConnStr
’ 具体操作为：Set DBC=New DataBaseClass
’ DBC.ConnStr="其他连接字符串"
’ 2、方法使用：Set Conn=DBC.OpenConnection()得到一个连接对象
’────────────────────────────────
Class dbclass
’────────────────────────────────
’定义变量
Private IConnStr
’────────────────────────────────
’ ConnStr属性
Public Property Let ConnStr(Val)
IConnStr = Val
End Property
’────────────────────────────────
’ ConnStr属性
Public Property Get ConnStr()
ConnStr = IConnStr
End Property
’────────────────────────────────
’ 类初始化
Private Sub Class_initialize()
End Sub
’────────────────────────────────
’ 类注销
Private Sub Class_Terminate()
ConnStr = Null
End Sub
’────────────────────────────────
’ 建立一个连接
Public Function OpenConnection()
Dim TempConn
’On Error Resume Next
Set TempConn = Server.CreateObject("ADODB.Connection")
TempConn.Open ConnStr
Set OpenConnection = TempConn
Set TempConn = Nothing
if Err.Number <> 0 then
Response.Write("")
Response.End
end if
End Function
End Class
%> |
|
|
| 出处：本站原创 作者：佚名 |
|
|
