一个简单的asp数据库操作类

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