ASP는 dll을 호출하고 dll 인스턴스를 캡슐화합니다. dll로 캡슐화하면 실행 효율성을 제공하고 코드를 암호화할 수 있습니다. VB6을 열고 새 ActiveX DLL을 만듭니다.
2. 프로젝트 참조에 Microsoft Active Server Pages 개체 라이브러리 선택 항목을 추가합니다.
3. 다음과 같이 코드를 입력하세요.
다음과 같이 코드 코드를 복사합니다.
'코드 시작
'선언 부분
비공개 MyScriptingContext를 ScriptingContext로 사용
비공개 MyApplication을 애플리케이션으로
개인 MyRequest를 요청으로
비공개 MyResponse를 응답으로
개인 MyServer를 서버로 사용
비공개 MySession을 세션으로 사용
'다음은 일반적인 기능을 정의합니다(VB에서 ASP 개체에 액세스하기 위해, 즉 VB에서는 MyApplication을 ASP의 Application과 동일하게 사용하고 MyRequest를 ASP의 Request와 동일하게 사용하고 MyResponse를 ASP의 Response와 동일하게 사용할 수 있음). MyServer는 ASP의 Server와 동일하며 MySession은 ASP의 세션 사용과 동일합니다.
공개 하위 OnStartPage(PassedScriptingContext As ScriptingContext)
MyScriptingContext = PassedScriptingContext 설정
MyApplication = MyScriptingContext.Application 설정
MyRequest = MyScriptingContext.Request 설정
MyResponse = MyScriptingContext.Response 설정
MyServer = MyScriptingContext.Server로 설정
MySession = MyScriptingContext.Session 설정
서브 끝
공개 서브 OnEndPage()
MyScriptingContext = 없음 설정
MyApplication = 없음으로 설정
MyRequest = 없음으로 설정
MyResponse = 없음으로 설정
MyServer = 없음 설정
MySession = 없음 설정
서브 끝
'사용자 정의 함수 SayHello 만들기
공개 서브 SayHello()
MyResponse.Write(Hello World)
서브 끝
'코드 끝
4. 클래스 이름을 HelloWorld로 변경하고 프로젝트 이름을 TestVBCode로 변경합니다.
5. TestVBCode.DLL 파일을 생성하고 Windows 실행 등록 구성 요소 명령 Regsvr32 path/TestVBCode.DLL을 사용하여 사용할 수 있도록 등록합니다. (구성 요소를 제거하는 명령은 Regsvr32 /u path/TestVBCode.DLL입니다.)
6. Test.asp 파일을 생성합니다. 코드는 다음과 같습니다.
다음과 같이 코드 코드를 복사합니다.
<%
'VB 자체 구축 함수 호출 형식
'설정 개체 이름=Server.CreateObject(프로젝트 이름.클래스 이름)
'개체 이름.자체 생성 함수 이름
MyTestObj = Server.CreateObject(TestVBCode.HelloWorld) 설정
MyTestObj.SayHello
%>
7. Test.asp 파일을 실행한 결과는 다음과 같습니다.
안녕하세요 세계
================================================= =========
더 복잡한 애플리케이션의 경우 이 예를 통해 외부로 확장할 수 있습니다.
좋다:
다음과 같이 코드 코드를 복사합니다.
공개 하위 connstr2()
conn = MyServer.CreateObject(ADODB.Connection) 설정
conn.Open 드라이버={Microsoft Access Driver(*.mdb)};dbq= & MyServer.MapPath(codata.mdb)
Set rs = conn.Execute(뉴스에서 * 선택)
rs.EOF가 아닌 동안 수행
MyResponse.Write(rs(news_title) & <br>)
rs.이동다음
고리
RS.닫기
conn = 없음 설정
서브 끝
이는 데이터베이스 연결 코드로 캡슐화됩니다. 물론 여기에 ADO 참조를 추가해야 합니다.