asp對象化之:資料庫操作類

對象|資料|資料庫 <% 
’────────────────────────────────  
’功能說明：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("<script>alert(’[系統錯誤]\n\n資料庫連接錯誤！請檢查系統參數設定>>網站常量設定,或者/inc/const.asp檔案!’);</script>")   
        Response.End 
    end if 
End Function  
End Class 

%>