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