Há muito tempo o documento, resolvido e relembrando
Use VB para encapsular asp e estabelecer um programa de teste Sayhello
1. Abra o VB6 e crie um novo ActiveXDLL
2. Adicione o Microsoft ActiveServerPagesObjectLibrary à referência do projeto
3. Preencha o código da seguinte maneira:
'Codestart
Parte da declaração
PrivatemyscriptingContextSriptingContext
PrivatemyApplicationAsApplication
PrivatemyrequestasRequest
PrivatemyResponseasResponse
PrivatemySyServerServer
PrivatemySessionAssession
'A seguir, define uma função comum (acessando o objeto ASP em VB, isto é, em VB, a MyApplication pode ser usada para ser equivalente à aplicação no ASP, o MyRequest é equivalente a solicitar em ASP, a myResponse equivalente a uma resposta no ASP, o MyServer é equivalente ao servidor em servidor, a mysess é equivalente a que seja equivalente ao equivalente a que seja o equivalente a que o MyServer) seja equivalente a que a myResssamento seja equivalente a sessões, o que é equivalente a uma resposta no ASP.
PublicsUsBonsTartPage (PassedScriptingContextasscriptingContext)
SetMyScriptingContext = PassedScriptingContext
SetMyApplication = myscriptingContext.Application
SetMyRequest = myscriptingContext.request
SetMyResponse = myscriptingContext.Response
SetMyServer = myscriptingContext.server
SetMySession = myscriptingContext.Session
Endsub
PublicsBonendPage ()
SetMysCriptingContext = nada
SetMyApplication = nada
Setmyrequest = nada
SetMyResponse = nada
SetMyServer = nada
SetMySession = nada
Endsub
'Crie função personalizada SayHello
PublicsubSayhello ()
MyResponse.write ("Helloworld")
Endsub
'CodeEND
4. Altere o nome da classe para: Helloworld Alterar o nome do projeto para: testvbcode
5. Gere o arquivo testvbcode.dll e use o Windows para executar o RegSvr32 Path/testVBCode.dll para registrá -lo e usá -lo. (O comando desinstala componente é regsvr32/u path/testvbcode.dll)
6. Crie o arquivo test.asp, o código é o seguinte
<%
'Formato de chamada de função auto-construída VB
'Definir nome do objeto = server.createObject ("nome do projeto.
'Nome do objeto. Nome da função auto-construída
SetMyTestObj = server.createObject ("testvbcode.helloworld")
MyTestobj.sayhello
%>
7. Os resultados da execução do arquivo test.asp são exibidos da seguinte forma:
Helloworld
O exemplo acima abrirá a porta para o seu mundo de programação VB
Vamos nos unir, haha!