<%
'%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
'數(shù)據(jù)庫操作類
'%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
'名稱：class_dboperate
'版本：0.2
'更新：2005年6月14日
'作用：簡化數(shù)據(jù)庫操作的流程
'授權(quán)：免費(fèi)使用
'%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

class class_dboperate

'************************************
'變量定義
'************************************
'conn ---------- 數(shù)據(jù)庫連接對象
'conn_str ------ 數(shù)據(jù)庫連接字符串

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

'************************************
'屬性
'************************************

'輸出數(shù)據(jù)庫連接字符串
' 返回值類型：string

property get connectstring 
connectstring = conn_str
end property

'設(shè)置數(shù)據(jù)庫連接字符串（數(shù)據(jù)庫連接字符串）
' 參數(shù)：str --- string

property let connectstring(str) 
conn_str = str
end property

'************************************
'事件
'************************************

'數(shù)據(jù)庫打開
public sub db_open() 。
conn.connectionstring = conn_str
conn.open
end sub

'數(shù)據(jù)庫關(guān)閉
public sub db_close() 
conn.close
end sub

'************************************
'方法
'************************************

'數(shù)據(jù)庫查詢（sql語句）
' 參數(shù)及類別：sql ---- string
' 返回值類型：記錄集
' 前提：數(shù)據(jù)庫狀態(tài)為打開

public function db_select(sql)
set db_select = conn.execute(sql)
end function

'數(shù)據(jù)庫執(zhí)行（sql語句）
' 參數(shù)及類別：sql ---- string
' 返回值類型：整形
' 返回值含義：受影響行數(shù)
' 前提：數(shù)據(jù)庫狀態(tài)為打開

public function db_excute(sql)
dim rs_affected
conn.execute sql,rs_affected
db_excute = rs_affected
end function

end class
%>