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 참조 사항 을 추가 해 야 합 니 다.

좋은 웹페이지 즐겨찾기