ASP chama a dll e encapsula a instância da dll. O encapsulamento na dll pode fornecer eficiência de execução e criptografar o código. Abra o VB6 e crie uma nova DLL ActiveX
2. Adicione a seleção da Biblioteca de Objetos do Microsoft Active Server Pages à referência do projeto
3. Preencha o código da seguinte forma:
Copie o código do código da seguinte forma:
'Início do código
'Parte da declaração
MyScriptingContext privado como ScriptingContext
MyApplication privado como aplicativo
MyRequest privado como solicitação
MyResponse privado como resposta
MyServer privado como servidor
MySession privada como sessão
'O seguinte define funções comuns (para acessar objetos ASP em VB, ou seja, em VB você pode usar MyApplication para ser equivalente a Application em ASP, MyRequest para ser equivalente a Request em ASP, MyResponse para ser equivalente a Response em ASP, e MyServer é equivalente a Server em ASP, MySession é equivalente ao uso de Session em ASP)
Public Sub OnStartPage (PassedScriptingContext As ScriptingContext)
Definir MyScriptingContext = PassedScriptingContext
Definir MyApplication = MyScriptingContext.Application
Definir MyRequest = MyScriptingContext.Request
Definir MyResponse = MyScriptingContext.Response
Definir MyServer = MyScriptingContext.Server
Definir MySession = MyScriptingContext.Session
Finalizar sub
Sub OnEndPage público()
Definir MyScriptingContext = Nada
Definir MyApplication = Nada
Definir MyRequest = Nada
Definir MyResponse = Nada
Definir MeuServidor = Nada
Definir Minha Sessão = Nada
Finalizar sub
'Cria uma função personalizada SayHello
Sub público SayHello()
MyResponse.Write (Olá, mundo)
Finalizar sub
'Fim do código
4. Altere o nome da classe para: HelloWorld e altere o nome do projeto para: TestVBCode
5. Gere o arquivo TestVBCode.DLL e use o comando do componente de registro de execução do Windows Regsvr32 path/TestVBCode.DLL para registrá-lo para uso. (O comando para desinstalar o componente é Regsvr32 /u path/TestVBCode.DLL)
6. Crie o arquivo Test.asp, o código é o seguinte
Copie o código do código da seguinte forma:
<%
'Formato de chamada de função autoconstruída em VB
'Definir nome do objeto = Server.CreateObject (nome do projeto. nome da classe)
'Nome do objeto. Nome da função autoconstruída
Definir MyTestObj = Server.CreateObject(TestVBCode.HelloWorld)
MyTestObj.SayHello
%>
7. Os resultados da execução do arquivo Test.asp são os seguintes:
Olá mundo
================================================= =========
Para aplicativos mais complexos, você pode expandir por meio deste exemplo.
como:
Copie o código do código da seguinte forma:
Subconstr2 público()
Definir conexão = MyServer.CreateObject(ADODB.Connection)
conn.Open driver={Driver do Microsoft Access (*.mdb)};dbq= & MyServer.MapPath(codata.mdb)
Defina rs = conn.Execute (selecione * nas notícias)
Faça enquanto não rs.EOF
MyResponse.Write (rs(news_title) & <br>)
rs.MoveNext
Laço
rs.Fechar
Definir conexão = Nada
Finalizar sub
Isso é encapsulado com o código de conexão do banco de dados. É claro que as referências ADO precisam ser adicionadas aqui.