Membros registrados, crie seu banco de dados de desenvolvimento da web, ------------------------------------------- ------ raiz1 ------------------------------------------- --------------------------------------------------
**************************************************** ***************************************
*Use esta classe para gerenciar e registrar sua DLL na página ASP
*Esta aula é testada no Win 2k
*Nota: use esta classe para criar um arquivo XML primeiro. O arquivo é o seguinte.
*
*<?
*<Lista DLL>
*</dll List>
*
*--------------------------------------------------- -------------------------------------------------------- -------------------------------------------------------- -------------------------------------------------------- -----
*exemplo:
*Dim objretsvr32
*Definir objregsvr32 = new Regsvr32
*Com objregsvr32
*se .loadxml ("../ mydll.xml") então
*Chamada Response.Write ("Erro de carregamento de arquivo xml")
*defina objregsvr32 = nada
*Response.end
*final se
*Selecione case .addnode ("f: /web/cw31072/dll/test/myclass.dll", true) ‘Adicione novas entradas e registre dll
*Caso 1
*Call Response.Write ("A entrada foi adicionada ao arquivo XML! E DLL registrada com sucesso!")
*Caso 0
*Call Response.Write ("A entrada foi adicionada ao arquivo XML! Mas falhou quando registrou DLL!")
*Caso -1
*Call Response.Write ("Já existe essa entrada no arquivo XML! A DLL também foi registrada!")
*END SELECT
*..........................
*terminar com
*
*'Ben Class é muito simples, existem algumas maneiras, então não vou dar um exemplo, basta olhar para ela. Você pode abri -lo no futuro
*'O arquivo XML depende da lista DLL que você registrou e para ser registrada.
*'Os arquivos XML em cada entrada são os seguintes: <dl registrou = "1"> f: /web/cw31072/dll/test/myclass.dll </dll>
*'f: /web/cw31072/dll/test/myclass.dll é o caminho do seu arquivo dll
*'Se ele foi registrado = "1" é que a DLL foi registrada, = "0" ainda não está registrado!
**************************************************** ***************************************
Classe Regsvr32
Private S_OBJXML
Privado S_OBJNODEROOT
Private S_STRXMLPATH
Private S_STRAtTributeName
'--------------------------------------------------- -------------------------------------------------------- -------------------------------
'Objetivo: Carregar o arquivo XML de configuração da DLL
'Parâmetro: endereço do arquivo xml
'Retorno: retorne a True se não conseguir carregar
'--------------------------------------------------- -------------------------------------------------------- -------------------------------
Função pública loadxml (strpath)
set s_objxml = createObject ("msxml2.document")
s_objxml.async = false
s_objxml.load (strpath)
Se s_objxml.parseerror.errorcode <> 0 então
Definir S_OBJXML = nada
loadxml = true
função de saída
final se
Definir S_OBJNODEROOT = S_OBJXML.DOCUMENTELEMENT
S_STRXMLPATH = strpath
S_STRATTIBLIBUDENAME = "Se ele foi registrado"
Função final
'-------------------------------------------
'Objetivo: Adicione um projeto DLL
Parâmetros: STRATH: endereço do arquivo dll
'Blnreg: se deve registrá -lo depois de adicionar
'Retorno: se o registro for necessário, o registro será bem -sucedido, o registro falha, a falha do registro retorna 0, o projeto já possui o projeto e o registro retornará -1
'-------------------------------------------
Função pública Addn