當前位置:開發者網絡 >> 技術教程 >> ASP教程 >> ASP技巧 >> 內容
精彩推薦
分類最新教程
分類熱點教程
    
asp對像化之:數據庫操作類
作者:麵條
日期: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 

%> 
相關文章: