ずっと前の文書は、整理され、思い出させました
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プログラミングの世界への扉を開きます
一緒に来て、ハハ!