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

'************************************
'事件(www.iocblog.net 文章来源)
'************************************

'数据库打开
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
%>

 (www.iocblog.net 文章来源)