物件導向的asp編程之五--adodb的類封裝

<Script language="vbscript" runat="server">
'****************************************************************
' Script Compont Object Model
' Design for Active Server Pages
' Copyright 2004 Version 2.0
' Made by 尹曙光
' ****************************************************************
'
' ADODB的類封裝
'
'*****************************************************************
'#################################################################
Function CreateCAdoConnection()
set CreateCAdoConnection=new CAdoConnection
End Function
Class CAdoConnection

Public objAdoConnection

'===============================================================
Public Property Get ConnectionString
ConnectionString=objAdoConnection.ConnectionString
End Property
Public Property Let ConnectionString(ByVal connString)
objAdoConnection.ConnectionString=connString
End Property

'===============================================================
Private Sub Class_Initialize ' Setup Initialize event.
On Error Resume Next
set objAdoConnection=Server.CreateObject("ADODB.Connection")
objAdoConnection.ConnectionTimeout = 15
objAdoConnection.CommandTimeout = 30
objAdoConnection.CursorLocation = 3
End Sub
Private Sub Class_Terminate ' Setup Terminate event.
CloseDbConn()
Set objAdoConnection=nothing
End Sub
'Open Adodb.Connection
Public Sub OpenDbConn(dbLink)
On Error Resume Next
objAdoConnection.ConnectionString=dbLink
OpenDbConn2()
End Sub

Public Sub OpenDbConn2()
On Error Resume Next
CloseDbConn()
objAdoConnection.Open()
if err.number>0 then