ASP 호출 dll 및 패키지 dll 인 스 턴 스

VB6 를 열 고 ActiveX DLL 2 를 새로 만 듭 니 다.프로젝트 참조 에 Microsoft Active Server Pages Object Library 를 추가 하여 3 을 선택 하고 코드 를 입력 하 십시오.

 
'Code Start 
'     
Private MyScriptingContext As ScriptingContext 
Private MyApplication As Application 
Private MyRequest As Request 
Private MyResponse As Response 
Private MyServer As Server 
Private MySession As Session 
'        （ VB   ASP  ，  VB    MyApplication   ASP  Application、MyRequest   ASP  Request、 MyResponse   ASP  Response、 MyServer   ASP  Server、 MySession   ASP  Session   ） 
Public Sub OnStartPage(PassedScriptingContext As ScriptingContext) 
Set MyScriptingContext = PassedScriptingContext 
Set MyApplication = MyScriptingContext.Application 
Set MyRequest = MyScriptingContext.Request 
Set MyResponse = MyScriptingContext.Response 
Set MyServer = MyScriptingContext.Server 
Set MySession = MyScriptingContext.Session 
End Sub 
Public Sub OnEndPage() 
Set MyScriptingContext = Nothing 
Set MyApplication = Nothing 
Set MyRequest = Nothing 
Set MyResponse = Nothing 
Set MyServer = Nothing 
Set MySession = Nothing 
End Sub 
'       SayHello 
Public Sub SayHello() 
MyResponse.Write ("Hello World") 
End Sub 
'Code End 

4.클래스 이름 을 HelloWorld 로 바 꿉 니 다.프로젝트 이름 을 TestVBCode 5 로 바 꾸 고 TestVBCode.DLL 파일 을 생 성 하 며 Windows 에서 등록 구성 요소 명령 Regsvr 32 경 로 를 실행 합 니 다.\TestVBCode.DLL 을 등록 하면 사용 할 수 있 습 니 다.(구성 요소 마 운 트 해제 명령 은 Regsvr 32/u 경로\TestVBCode.DLL)6,Test.asp 파일 을 만 들 고 코드 는 다음 과 같 습 니 다

 
<% 
'VB         
'Set    =Server.CreateObject("   .  ") 
'   .      
Set MyTestObj = Server.CreateObject("TestVBCode.HelloWorld") 
MyTestObj.SayHello 
%> 

7,Test.asp 파일 을 실행 한 결과 다음 과 같 습 니 다:Hello World=================================================================이 인 스 턴 스 를 통 해 밖으로 확장 하면 됩 니 다.예 를 들 어

 
Public Sub connstr2() 
Set conn = MyServer.CreateObject("ADODB.Connection") 
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & MyServer.MapPath("codata.mdb") 
Set rs = conn.Execute("select * from news") 
Do While Not rs.EOF 
MyResponse.Write (rs("news_title") & "<br>") 
rs.MoveNext 
Loop 
rs.Close 
Set conn = Nothing 
End Sub 

이것 은 데이터베이스 로 연 결 된 코드 로 패키지 입 니 다.물론 ADO 참조 사항 을 추가 해 야 합 니 다.