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

文章导读：在新的一年中，各位网友都进入紧张的学习或是工作阶段。网学的各位小编整理了ASP-一个简单的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
%>