一个简单的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 %> |
