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

<%

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

'数据库操作类

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

'名称：Class_DBOperate

'版本：0.2

'作者：qihangnet

'作用：简化数据库操作的流程

'授权：免费使用

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

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

%>

（编辑：银川站长网）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!