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