<%
'%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
'数据库操作类
'%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
'名称：Class_DBOperate
'版本：0.2
'作者：qihangnet
'更新：2005年6月14日
'作用：简化数据库操作的流程
'授权：免费使用
'%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
ClassClass_DBOperate
'************************************
'变量定义
'************************************
'Conn----------数据库连接对象
'Conn_Str------数据库连接字符串
PrivateConn,Conn_Str
'************************************
'实例初始化/终止
'************************************
PrivateSubClass_Initialize()
SetConn=Server.CreateObject("ADODB.Connection")
EndSub
PrivateSubClass_Teriminate()
SetConn=Nothing
EndSub
'************************************
'属性
'************************************
'输出数据库连接字符串
'返回值类型：string
PropertyGetConnectString
ConnectString=Conn_Str
EndProperty
'设置数据库连接字符串（数据库连接字符串）
'参数：str---string
PropertyLetConnectString(str)
Conn_Str=str
EndProperty
'************************************
'事件
'************************************
'数据库打开
PublicSubDB_Open()。
Conn.ConnectionString=Conn_Str
Conn.Open
EndSub
'数据库关闭
PublicSubDB_Close()
Conn.Close
EndSub
'************************************
'方法
'************************************
'数据库查询（sql语句）
'参数及类别：sql----string
'返回值类型：记录集
'前提：数据库状态为打开
PublicFunctionDB_Select(sql)
SetDB_Select=Conn.Execute(sql)
EndFunction
'数据库执行（SQL语句）
'参数及类别：sql----string
'返回值类型：整形
'返回值含义：受影响行数
'前提：数据库状态为打开
PublicFunctionDB_Excute(sql)
Dimrs_affected
Conn.Executesql,rs_affected
DB_Excute=rs_affected
EndFunction
EndClass
%>
【一个简单的asp数据库操作类】相关文章：