コンポーネントを使用してデータベース操作をカプセル化する (1)

実際、ASP プログラムを作成するときに誰もが最も心配するのは、データベース接続情報が一部の人に見られ、何らかの損害が発生することです。次に、vb6.0 を使用して、データベース接続情報を非表示にするダイナミック リンク ライブラリ (.dll) を作成します。
vb6.0 を起動し、新規作成 --> アクティブ DLL プロジェクトを作成します。 「プロジェクト」-->「参照」をクリックし、「Microsoft Active Server Pages Object Library」を選択します。
および「microsoft activeX データ オブジェクト 2.1 ライブラリ」の 2 つのアイテム。クラス モジュールの名前を dcss に変更し、プロジェクトの名前を yygwy に変更し、プロジェクト ファイル yygwy.vbp とクラス ファイル dcss.cls を保存します。
dcss.cls に次のように書きます。
ScriptingContext としてのプライベート myscriptingcontext
アプリケーションとしてのプライベート myapplication
リクエストとしてのプライベート myrequest
応答としてのプライベート myresponse
サーバーとしてのプライベート myserver
Private mysession As Session

Public Sub onstartpage(passedscriptingcontext As ScriptingContext)
myscriptingcontext = passscriptingcontext を設定します
myapplication = myscriptingcontext.Application を設定します。
myrequest = myscriptingcontext.Request を設定します。
myresponse = myscriptingcontext.Response を設定します。
myserver = myscriptingcontext.Server を設定します
mysession = myscriptingcontext.Session を設定します
End Sub

Public Sub oneendpage()
myscriptingcontext = なしを設定します
myapplication = なしを設定します
myrequest = なしを設定します
myresponse = なしを設定します
myserver = なしを設定します
mysession = なしを設定します
End Sub

'上記のステートメントは必須です。
' 2 つのパブリック関数

Public Function datasource() を Variant として

データソース = "ドライバー = {SQL サーバー};サーバー = yang;uid = sa;pwd =; データベース = dcss"
End Function は

、dcss.dll ファイルをコンパイルして生成します。 regsvr32 パスdcss.dll を登録します。
global.asa ファイルを Visual interdev で開きます。 もちろん、他のファイルでも使用できます。
set dcss=server.CreateObject("yygwy.dcss")
oconn=dcss.datasource()
application("strconn")=oconn は、

他のページで次のように呼び出すことができます。
set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open application("strconn")