asp對像化之:數據庫操作類

- 中國WEB開發者網絡 (http://www.webasp.net)
-- 技術教程 (http://www.webasp.net/article/)
--- asp對像化之:數據庫操作類 (http://www.webasp.net/article/18/17895.htm)
-- 作者:麵條
-- 發佈日期: 2005-04-24
<% 
』────────────────────────────────  
』功能說明: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 

%> 

webasp.net