Miembros registrados, cree su base de datos de desarrollo web, ------------------------------------------ ------ Root1 ------------------------------------------- ------------------------------------------------
*********************************************** ****************************************
*Use esta clase para administrar y registrar su DLL en la página ASP
*Esta clase se prueba en Win 2K
*Nota: Use esta clase para crear un archivo XML primero. El archivo es el siguiente.
*
*<?
*<Lista de dll>
*</lista de dll>
*
*------------------------------------------------- -------------------------------------------------- -------------------------------------------------- -------------------------------------------------- -----
*ejemplo:
*Dim objRetsvr32
*Establecer objregsvr32 = nuevo regsvr32
*Con objregsvr32
*if .loadxml ("../ mydll.xml") entonces
*Llame a respuesta.write ("Error de carga de archivo XML")
*Establecer objregsvr32 = nada
*Respuesta.
*finalizar si
*Seleccione el caso .addnode ("f: /web/cw31072/dll/test/myclass.dll", true) ‘Agregar nuevas entradas y registrar DLL
*Caso 1
*Llame a respuesta.write ("¡La entrada se ha agregado al archivo XML! ¡Y DLL registrado con éxito!")
*Caso 0
*Llame a respuesta.write ("¡La entrada se ha agregado al archivo XML! ¡Pero falló cuando se registró DLL!")
*Caso -1
*Llame a respuesta.write ("¡Ya hay esta entrada en el archivo XML! ¡La DLL también se ha registrado!")
*Fin Seleccione
*..........................
*terminar con
*
*'La clase Ben es muy simple, hay algunas maneras, así que no doy un ejemplo, solo miralo. Puedes abrirlo en el futuro
*'El archivo XML depende de la lista DLL que haya registrado y que se registre.
*'Los archivos XML en cada entrada son los siguientes: <dl ha registrado = "1"> f: /web/cw31072/dll/test/myclass.dll </dll>
*'f: /web/cw31072/dll/test/myclass.dll es la ruta de su archivo DLL
*'Si ha sido registrado = "1" es que la DLL ha sido registrada, = "0" aún no está registrado!
*********************************************** ****************************************
clase RegSvr32
Privado s_objxml
Privado s_objnoderoot
Privado s_strxmlpath
S_strattributeename privado
'------------------------------------------------- -------------------------------------------------- -----------------------------
'Objetivo: Cargar el archivo XML de configuración de DLL
'Parámetro: dirección de archivo XML
'Regreso: volver a verdadero si no se carga
'------------------------------------------------- -------------------------------------------------- -----------------------------
Función pública loadxml (strpath)
establecer s_objxml = createObject ("msxml2.document")
s_objxml.async = falso
s_objxml.load (strpath)
Si s_objxml.parseError.errrocode <> 0 entonces
establecer s_objxml = nada
loadxml = verdadero
función de salida
final si
establecer s_objnoderoot = s_objxml.documentelement
s_strxmlpath = strpath
s_strattributeName = "si ha sido registrado"
función final
'-------------------------------------------
'Objetivo: agregue un proyecto DLL
'Parámetros: Strpath: dirección de archivo DLL
'blnreg: si registrarlo después de agregar
'Devolución: si se requiere el registro, el registro es exitoso, el registro falla, la falla del registro devuelve 0, el proyecto ya tiene el proyecto y el registro devolverá -1
'-------------------------------------------
Addn de función pública