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

　　推荐阅读

　　结合asp和存储过程做的搜索程序

比较复杂，可以支持多种逻辑符，包括 + - and or 空格等，并且根据需要随便增加。可以根据条件选择在那个表中搜索，对速度也做了优化，可以说是很快的。当然因为是以前写的，存在不少毛病。存储过程中用到几乎所有>>>详细阅读

本文标题：一个简单的asp数据库操作类

地址：http://www.17bianji.com/kaifa2/ASP/33150.html

 1/2    1