単純な ASP データベース操作クラス

<%
'%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
'データベース操作クラス
'%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
'名前: Class_DBPerate
'バージョン: 0.2
'作者: キハンネット
'更新: 2005 年 6 月 14 日
'機能: データベース操作のプロセスを簡素化します。
'認可: 自由に使用できます
'%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

クラス Class_DBOperate

'************ * **************************
'変数の定義
「************************************
'Conn ---------- データベース接続オブジェクト
'Conn_Str ------ データベース接続文字列

Private Conn,Conn_Str

'********************************** ** ***
'インスタンスの初期化/終了
'************************************

プライベートサブクラス_Initialize()
Set Conn = Server.CreateObject("ADODB.Connection")
End Sub

Private Sub Class_Terminate()
SetConn=なし
End Sub

'************************************
'財産
'************************************

'出力データベース接続文字列
'戻り値の型: string

Property Get ConnectString
接続文字列 = Conn_Str
End プロパティ

'データベース接続文字列 (データベース接続文字列) を設定します
' パラメータ: str --- string

プロパティ Let ConnectString(str)
Conn_Str = str
終了プロパティ

'************************************
'イベント
'************************************

'データベースが開きます
Public Sub DB_Open() 。
Conn.ConnectionString = Conn_Str
接続オープン
End Sub

'データベースは閉じています
パブリックサブ DB_Close()
接続を閉じる
End Sub

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

'データベースクエリ（SQL文）
'パラメータとカテゴリ: SQL ---- 文字列
'戻り値の型: レコードセット
' 前提条件: データベースのステータスがオープンである

Public Function DB_Select(sql)
DB_Select = Conn.Execute(sql) を設定します。
End Function

'データベース実行（SQL文）
'パラメータとカテゴリ: SQL ---- 文字列
'戻り値の型: 整数
'戻り値の意味: 影響を受ける行の数
' 前提条件: データベースのステータスがオープンである

Public Function DB_Excute(sql)
暗い rs_affected
Conn.SQL を実行、rs_affected
DB_Excute = rs_affected
終了関数

終了クラス
%>