実際、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
プライベートセッション セッションとして
スタートページの Public Sub (ScriptingContext として渡された 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 rsresult(strsql As String) As Recordset
接続として mycnn を暗くする
myset をレコードセットとして暗くする
文字列としての Dim strconnstring
'strconnstring = "プロバイダ=sqloledb.1;
パスワード=;" & "ユーザーID=sa;" & "初期カタログ=vlog;" & "データソース=hpe60;
接続タイムアウト=15"
strconnstring = "ドライバー={SQLサーバー};サーバー=ヤン;uid=sa;pwd=;
データベース=dcss"
'mycnn.ConnectionString = strconnstring
mycnn.Open strconnstring
myset.ActiveConnection = mycnn
myset.Open strsql、mycnn、3、adCmdText
rsresult = myset を設定します
End Function
Public Function datasource() As 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")