오래 전에 문서, 정렬 및 회상
VB를 사용하여 ASP를 캡슐화하고 Sayhello 테스트 프로그램을 설정하십시오.
1. vb6을 열고 새로운 ActiveXDLL을 만듭니다
2. Microsoft ActiveserverPagesObjectLibrary를 프로젝트 참조에 추가하십시오
3. 다음과 같이 코드를 작성하십시오.
'Codestart
'선언 부분
privatemyscriptingContextAsscriptingContext
privatemyApplicationApplication
PrivatemyRequestAsRequest
privatemyResponseAsResponse
privatemyserverasserver
privatemysessionAssession
'다음은 공통 기능을 정의합니다 (VB에서 ASP 객체에 액세스하는 것은 VB에서는 MyApplication이 ASP의 응용 프로그램과 동일하게 사용될 수 있으며 MyRequest는 ASP의 요청과 동일하며 MyResponse는 ASP의 응답과 동일하며 MyServer는 ASP의 서버와 동일합니다.
plapicubonStartPage (passedScriptContextAsscriptingContext)
setMyScriptTontContext = PassEdScriptTontContext입니다
setMyApplication = myScriptingContext.Application
setMyRequest = myScriptingContext.Request
setMySpronse = myScriptingContext.Response
setmyserver = myScriptingContext.Server
setMysession = myScriptingContext.Session
Endsub
publicubonendPage ()
setMyscriptTictingContext = 아무것도 없습니다
setMyApplication = 아무것도
setMyRequest = 아무것도 없습니다
setMyResponse = 아무것도 없습니다
setMyserver = 아무것도 없습니다
setMysession = 아무것도 없습니다
Endsub
'사용자 정의 기능 Sayhello를 만듭니다
publicsubsayhello ()
myresponse.write ( "HelloWorld")
Endsub
'코드 엔드
4. 클래스 이름 변경 : HelloWorld 프로젝트 이름 변경 : TestVBCode
5. TestVBCode.dll 파일을 생성하고 Windows를 사용하여 Regsvr32 Path/TestVBCode.dll을 실행하여 등록하고 사용합니다. (제거되지 않은 구성 요소 명령은 regsvr32/u path/testvbcode.dll입니다)
6. test.asp 파일 만들기, 코드는 다음과 같습니다.
<%
'VB 자체 제작 된 기능 호출 형식
'set 객체 이름 = server.createObject ( "project name.class name")
'개체 이름. 자체 제작 된 기능 이름
setMyTestObj = server.createObject ( "testvbcode.helloworld")
MyTestobj.sayhello
%>
7. test.asp 파일을 실행 한 결과는 다음과 같이 표시됩니다.
Helloworld
위의 예는 VB 프로그래밍 세계의 문을 열 것입니다.
함께합시다, 하하!