<%
'%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
'數據庫操作類
'%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
'名稱：Class_DBOperate
'版本：0.2
'作者：qihangnet
'更新：2005年6月14日
'作用：簡化數據庫操作的流程
'授權：免費使用
'%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
Class Class_DBOperate
'************************************
'變量定義
'************************************
'Conn ---------- 數據庫連接對象
'Conn_Str ------ 數據庫連接字符串
Private Conn,Conn_Str
'************************************
'實例 初始化/終止
'************************************
Private Sub Class_Initialize()
Set Conn = Server.CreateObject("ADODB.Connection")
End Sub
Private Sub Class_Teriminate()
Set Conn = Nothing
End Sub
'************************************
'屬性
'************************************
'輸出數據庫連接字符串
' 返回值類型：string
Property Get ConnectString
ConnectString = Conn_Str
End Property
'設置數據庫連接字符串（數據庫連接字符串）
' 參數：str --- string
Property Let ConnectString(str)
Conn_Str = str
End Property
'************************************
'事件
'************************************
'數據庫打開
Public Sub DB_Open() 。
Conn.ConnectionString = Conn_Str
Conn.Open
End Sub
'數據庫關閉
Public Sub DB_Close()
Conn.Close
End Sub
'************************************
'方法
'************************************
'數據庫查詢（sql語句）
' 參數及類別：sql ---- string
' 返回值類型：記錄集
' 前提：數據庫狀態為打開
Public Function DB_Select(sql)
Set DB_Select = Conn.Execute(sql)
End Function
'數據庫執行（SQL語句）
' 參數及類別：sql ---- string
' 返回值類型：整形
' 返回值含義：受影響行數
' 前提：數據庫狀態為打開
Public Function DB_Excute(sql)
Dim rs_affected
Conn.Execute sql,rs_affected
DB_Excute = rs_affected
End Function
End Class
%>
