當(dāng)前位置:首頁文章首頁 IT學(xué)院 IT技術(shù)

asp數(shù)據(jù)庫操作類的簡單實(shí)例分享

作者:  來源:  發(fā)布時間:2011-6-16 15:01:18  點(diǎn)擊:

 本文跟大家一起分享學(xué)習(xí)的是關(guān)于一個簡單的asp數(shù)據(jù)庫操作類的實(shí)例,希望對大家有所幫助。

<%
'%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
'數(shù)據(jù)庫操作類
'%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
'名稱:Class_DBOperate
'版本:0.2
'作者:qihangnet
'更新:2005年6月14日
'作用:簡化數(shù)據(jù)庫操作的流程
'授權(quán):免費(fèi)使用
'%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

Class Class_DBOperate

'************************************
'變量定義
'************************************
'Conn ---------- 數(shù)據(jù)庫連接對象
'Conn_Str ------ 數(shù)據(jù)庫連接字符串

Private Conn,Conn_Str

'************************************
'實(shí)例 初始化/終止
'************************************

Private Sub Class_Initialize()
Set Conn = Server.CreateObject("ADODB.Connection")
End Sub

Private Sub Class_Teriminate()
Set Conn = Nothing
End Sub

'************************************
'屬性
'************************************

'輸出數(shù)據(jù)庫連接字符串
' 返回值類型:string

Property Get ConnectString
ConnectString = Conn_Str
End Property

'設(shè)置數(shù)據(jù)庫連接字符串(數(shù)據(jù)庫連接字符串)
' 參數(shù):str --- string

Property Let ConnectString(str)
Conn_Str = str
End Property

'************************************
'事件
'************************************

'數(shù)據(jù)庫打開
Public Sub DB_Open() 。
Conn.ConnectionString = Conn_Str
Conn.Open
End Sub

'數(shù)據(jù)庫關(guān)閉
Public Sub DB_Close()
Conn.Close
End Sub

'************************************
'方法
'************************************

'數(shù)據(jù)庫查詢(sql語句)
' 參數(shù)及類別:sql ---- string
' 返回值類型:記錄集
' 前提:數(shù)據(jù)庫狀態(tài)為打開

Public Function DB_Select(sql)
Set DB_Select = Conn.Execute(sql)
End Function

'數(shù)據(jù)庫執(zhí)行(SQL語句)
' 參數(shù)及類別:sql ---- string
' 返回值類型:整形
' 返回值含義:受影響行數(shù)
' 前提:數(shù)據(jù)庫狀態(tài)為打開

Public Function DB_Excute(sql)
Dim rs_affected
Conn.Execute sql,rs_affected
DB_Excute = rs_affected
End Function

End Class
%>

相關(guān)軟件

文章評論

軟件按字母排列: A B C D E F G H I J K L M N O P Q R S T U V W X Y Z