この記事では、VB5.0を介してActiveXDLLファイルを作成します。このファイルは、Color Subを投げるプロセスをシミュレートし、ASPでDLLを呼び出す方法のトピックを紹介します。
Dynamic Join Library(DLL)は、アプリケーションの重要な部分の実行をスピードアップする重要な方法ですが、おそらくほとんどの人には知られていないこと、つまりASPファイルはDLLを呼び出してサーバーの実行を高速化することもできます。以下に、ASPファイルでDLLを呼び出す手順を簡単に紹介します。
まず、DLLファイルが必要です。この例は、VB5.0を介してActiveXDLLファイルを作成することです。このファイルは、カラーサブを投げるプロセスをシミュレートします。
VB5.0環境では、新しいプロジェクトを作成し、新しいプロジェクトウィンドウでActiveXDLLアイコンをダブルクリックします。 VBは、プロジェクトにクラスモジュールを自動的に追加し、プロジェクトタイプをActiveXDLLに設定します。 [プロパティ]ウィンドウで、クラスモジュールの名前属性をCLSDICEに変更します。プロジェクトメニューから、プロジェクトのプロパティを選択し、プロジェクト名をmydllに変更します。 [ファイル]メニューから、ClsDiceを保存して、クラスモジュールをmydice.clsとして保存します。次のコードを追加します。
optionexplicit
Privatemax、Pointasinteger
publicPropertygetResult()asinteger
結果=ポイント
Endproperty
publicPropertygetMaxpoint()asinteger
maxpoint = max
Endproperty
publicPropertyletmaxpoint(numasinteger)
max = num
Endproperty
publicsubthrow()
ランダム化
point = int(rnd*max)+1
Endingub
privatesubclass_initialize()
max = 6
Endingub
このクラスモジュールは、2つのプロパティとCLSDICEオブジェクトの方法を定義します。これらのプロパティと方法は、カラーコインを投げるプロセスをシミュレートします。 MaxPointプロパティは、色コインの面の数を表します。プロパティレットステートメントを追加すると、顧客が色コインの顔を変更できます。結果プロパティは、カラーコインの最後の投げのポイント数を表します。スロー方法は、色コインを投げるアクションを表します。 privateubclass_initializeステートメントは、色コインの顔のデフォルト数を6面に設定します。
[ファイル]メニューから、mydll.dllを生成し、適切な場所に保存します。この時点で、独自のDLLファイルを作成しました。
2番目のステップは、ASPファイルのクラスCLSDICEを参照することです。
ASPのすべてのコード(ActiveServerPages)はサーバーで実行され、顧客はHTMLで返された結果のみを表示できます。 「<%」と「%>」タグを使用してスクリプトコードを識別し、クライアントに渡すことはありません。HTMLタグを使用して、コード外のコンテンツを識別します。次のDICE.ASPコードでは、CreateObject関数を使用して、上記で作成されたActivex.dll - Mydll.dllファイルからclsdiceオブジェクトインスタンスを作成します。次の例では、VBScriptスクリプト言語を使用しています。
<! - metadatatype = "typelib" file = "path/mydll.dll" - >