<%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
数据库操作类
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
名称：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
%>