Este artigo cria um arquivo ActiveXDLL através do VB5.0. Este arquivo simula um processo de lançamento de um sub color e apresenta o tópico de como ligar para a DLL no ASP.
A Biblioteca de Junção Dynamic (DLL) é uma maneira importante de acelerar a execução das partes importantes de um aplicativo, mas uma coisa provavelmente não é conhecida pela maioria das pessoas, ou seja, o arquivo ASP também pode chamar o DLLs para acelerar a execução do servidor. Abaixo, apresentarei brevemente as etapas de chamar DLLs em um arquivo ASP.
Primeiro de tudo, deve haver um arquivo DLL. Este exemplo é criar um arquivo ActiveXDLL através do VB5.0. Este arquivo simula um processo de lançamento de um sub.
No ambiente VB5.0, crie um novo projeto e clique duas vezes no ícone ActiveXDLL na janela do novo projeto. O VB adicionará automaticamente um módulo de classe ao projeto e definirá o tipo de projeto como ActiveXDLL. Na janela Propriedades, altere o atributo de nome do módulo de classe para CLSDICE. No menu do projeto, selecione Propriedades do projeto e altere o nome do projeto para MyDLL. No menu Arquivo, selecione Salvar clsdice para salvar o módulo de classe como mydice.cls. Adicione o seguinte código:
OptionExplicit
Privatemax, Pointasinteger
PublicPropertyGetResult () Asinteger
Resultados = ponto
EndProperty
PublicPropertyGetMaxPoint () Asinteger
Maxpoint = max
EndProperty
PublicPropertyletMaxPoint (NumAsInteger)
Max = num
EndProperty
Publicsubthrow ()
Randomizar
Ponto = int (rnd*max) +1
Endsub
Privatesubclass_initialize ()
Max = 6
Endsub
Este módulo de classe define duas propriedades e um método do objeto CLSDICE. Essas propriedades e métodos simulam o processo de lançar a moeda de cores. A propriedade MaxPoint representa o número de faces da moeda de cores. Adicionar a declaração PropertyLet permitirá que o cliente modifique as faces da moeda de cores; A propriedade de resultado representa o número de pontos do último arremesso da moeda de cores; O método de arremesso representa a ação de jogar a moeda de cores; A instrução privatesubclass_initialize define o número padrão de faces da moeda colorida para 6 faces.
No menu Arquivo, selecione Gere mydll.dll e salve -o no local apropriado. Neste ponto, criamos nosso próprio arquivo DLL.
A segunda etapa é consultar o clsdice da classe no arquivo ASP.
Todo o código do ASP (ActiveServerPages) é executado no servidor e os clientes só podem visualizar os resultados retornados no HTML. Ele usa as tags "<%" e "%>" para identificar o código do script e não o passa de volta ao cliente e usa tags HTML para identificar o conteúdo fora do código. No código DICE.asp a seguir, a função CreateObject é usada para criar uma instância do objeto CLSDICE, que vem do arquivo ActiveX.dll-mydll.dll criado acima. O exemplo a seguir usa a linguagem de script VBScript.
<!-metadatatype = "typElib" file = "path/mydll.dll"->