<%

'%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

'数据库操作类

'%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

'名称：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

%>