ASPファイル内でDLLを呼び出す方法

ダイナミック リンク ライブラリ (DLL) は、アプリケーションの主要な部分の実行を高速化する重要な方法ですが、ほとんどの人が知らないかもしれないことが 1 つあります。それは、ASP ファイルもアプリケーションの実行を高速化できるということです。 DLL を呼び出してサーバーにアクセスする ASP ファイルで DLL を呼び出す手順を簡単に紹介します。
まず、DLL ファイルが必要です。この例では、VB5.0 を通じて ActiveX DLL ファイルが作成されます。このファイルは、サイコロを振るプロセスをシミュレートします。
VB5.0 環境では、新しいプロジェクトを作成し、新しいプロジェクト ウィンドウで ActiveX DLL アイコンをダブルクリックすると、VB によってクラス モジュールがプロジェクトに自動的に追加され、プロジェクト タイプが ActiveX DLL に設定されます。 Properties ウィンドウで、クラス モジュールの name 属性を clsDice に変更します。 「プロジェクト」メニューから「プロジェクトのプロパティ」を選択し、プロジェクト名を「MyDLL」に変更します。 [ファイル] メニューから、[clsDice の保存] を選択して、クラス モジュールを myDice.cls として保存します。次のコードを追加します:

Option Explicit

Private Max, Point As Integer

Public Property Get Result() As Integer

Result = Point

End Property

Public Property Get Maxpoint() As Integer

Maxpoint = Max

End プロパティ

Public Property Let Maxpoint(num As Integer)

Max = num

End Property

Public Sub Throw()

Randomize

Point = Int(Rnd * Max) + 1

End Sub

Private Sub Class_Initialize()

Max = 6

End Sub

このクラスモジュールは、clsDiceオブジェクトの2つのプロパティと1つのメソッドを定義します。これらのプロパティとメソッドは、サイコロを振るプロセスをシミュレートします。その中で、Maxpoint 属性はサイコロの面の数を表し、Property Let ステートメントを追加すると、顧客はサイコロの面の数を変更できます。Throw メソッドは、サイコロの最終的な数を表します。サイコロを投げるアクション; Private Sub Class_Initialize ステートメントは、デフォルトの面の数は 6 です。

「ファイル」メニューから「MYDLL.DLLの生成」を選択し、適切な場所に保存します。この時点で、独自の DLL ファイルが作成されました。

2 番目のステップは、ASP ファイル内の clsDice クラスを参照することです。

ASP（Active Server Pages）のすべてのコードはサーバー上で実行され、顧客はHTML形式で返された結果のみを表示できます。 「<%」タグと「%>」タグを使用してスクリプト コードを識別し、コードの外側では HTML タグを使用してコンテンツを識別します。以下の Dice.asp のコードでは、CreateObject 関数 を使用して、上で作成した ActiveX.DLL--MYDLL.DLL ファイルからの clsDice オブジェクト インスタンスを作成しています。次の例では、VBScript スクリプト言語を使用しています。 。



'METADATA タグで指定されたタイプ ライブラリを読み込みます。パスは、マシン上で mydll.dll が保存されているパスです







< ;%

On Error Resume Next '予期しないエラーが発生してもプログラムは実行を継続できます

If Request.Form("T1")="" then

Session("point") = 6

Else

Session( "point")=Request.Form("T1")

End If

'Session("point") を使用してサイコロの面の数を保存します

Set dice1=Server.Createobject("MyDLL. clsDice")

'set ステートメントを使用して dice1 オブジェクトを作成します。ここで、MyDLL は上記の dll ファイルを作成するときのプロジェクト名 (注: ファイルの名前ではありません)、clsDice はクラス モジュールの名前です。この時点で、Maxpoint、Result、および Throw 属性 (メソッド) を使用して dice1 オブジェクトを操作できます。

If Request.ServerVariables("Request_Method")="POST" then

dice1.Maxpoint = Session("point") 'サイコロの面の数を設定します

dice1.Throw 'サイコロを投げます

%> ;

サイコロの面の数が>when

結果は次のようになります: <% = dice1.Result %>Point

'結果を返します

<%

Else

dice1.Maxpoint = Session("point")

%>

サイコロの目の数が>の場合/ p>

<%

End If

%>



上記のコードは WINDOWS NT4.0+SP3+IIS4.0+IE5.0+VB5.0 上で正常にコンパイルされ実行されますが、まだ多くの欠陥がありますが、私の当初の目的は、ASP で DLL を呼び出す方法を紹介することでしたので、完璧なものではありませんでした。

以上がASPファイル内でDLLを呼び出す方法の詳細内容です。詳細については、PHP 中国語 Web サイトの他の関連記事を参照してください。