ずっと前の文書は、整理され、思い出させました
VBを使用してASPをカプセル化し、Sayhelloテストプログラムを確立する
1. VB6を開き、新しいActiveXDLLを作成します
2. Microsoft ActiveServerPagesObjectLibraryをプロジェクト参照に追加します
3.次のようにコードに記入してください。
'Codestart
'宣言部分
privatemyscriptingContextextasscriptingContext
privatemyApplicationAsapplication
privatemyRequestasRequest
privatemyresponseasResponse
privatemyserverasserver
privatemysessionsassession
'以下は共通の関数を定義しています（VBのASPオブジェクトへのアクセス、つまりVBでは、myApplicationを使用してASPのアプリケーションと同等であり、myRequestはASPのリクエストと同等です。MyResponseはASPの応答と同等です。
publicsubonStartPage（passedscriptingContextAsscriptingContext）
setMyscriptingContext = passedScriptingContext
setMyApplication = myscriptingContext.Application
setMyRequest = myscriptingContext.Request
setMyResponse = myscriptingContext.response
setMyServer = myscriptingContext.server
setMysession = myscriptingContext.session
Endingub
publicsubonendpage（）
setMyscriptingContext = Nothing
setMyApplication = Nothing
setMyRequest =何もない
setMyResponse = Nothing
setMyServer =何もない
setMysession =何もない
Endingub
'カスタム関数Sayhelloを作成します
publicsubsayhello（）
myResponse.write（ "Helloworld"）
Endingub
'コードエンド
4。クラス名を変更してください：HelloWorldプロジェクト名を変更してください：testVBCode
5。TESTVBCODE.DLLファイルを生成し、Windowsを使用してREGSVR32 PATH/TESTVBCODE.DLLを実行して登録して使用します。 （Uninstallコンポーネントコマンドはregsvr32/u path/testvbcode.dllです）
6. test.aspファイルを作成すると、コードは次のとおりです
<％
'VB自己構築機能コールフォーマット
'オブジェクト名= server.createObject（ "project name.class name"）を設定します
'オブジェクト名。自己構築された関数名
setmytestobj = server.createObject（ "testvbcode.helloworld"）
mytestobj.sayhello
％>
7. test.aspファイルを実行した結果は、次のように表示されます。
こんにちは世界
上記の例は、VBプログラミングの世界への扉を開きます
一緒に来て、ハハ！