在ASP页里面注册DLL的VBScript CLASS

【 tulaoshi.com - ASP 】

  -----------------------------------------------ROOT1---------------------------------------

*******************************************************************************************
*使用本CLASS可以管理并在ASP页里面注册你的DLL
*本CLASS在WIN 2K上测试通过
*注：使用本CLASS需要先建立一个XML文件。文件如下.打开记事本将如下3行存为*.XML文件
*
*    <?xml version="1.0" encoding="gb2312" standalone="yes"?
*    <Dll列表
*    </Dll列表
*
*------------------------------------------------------------------------------------------
*范例：
*    dim objRegsvr32
*    set objRegsvr32 = new Regsvr32
*    with objRegsvr32
*        if .LoadXml("../MyDll.xml") then
*            call Response.Write("XML文件加载错误")
*            set objRegsvr32 = nothing
*            Response.End
*        end if
*        select case .AddNode("F:webcw31072dlltestMyClass.dll" , true) '添加新条目并注册DLL
*            case 1
*                call Response.Write("条目已经添加进XML文件！并成功注册DLL啦！")
*            case 0
*                call Response.Write("条目已经添加进XML文件！但注册DLL时失败！")
*            case -1
*                call Response.Write("XML文件里已经有该条目！该DLL也已经注册的了！")
*        end select
*        ..........................
*    end with
*            
*    '本CLASS非常简单，里面还有些方法，我就不举例了,看看就知道了。日后你可以打开
*    '该XML文件看你曾经注册过和待注册的DLL列表。
*    'XML文件里每个条目如下：<Dll 是否已经注册="1"F:webcw31072dlltestMyClass.dll</Dll
*    'F:webcw31072dlltestMyClass.dll就是你DLL文件的路径
*    '是否已经注册="1"就是该DLL已经注册过，=“0”就是还没有注册呢！
*******************************************************************************************

Class Regsvr32

    private s_objXml
    private s_objNodeRoot
    private s_strXmlPath
    private s_strAttributeName
    
    '------------------------------------
    '目的：    加载DLL配置xml文件
    '参数：    XML文件地址
    '返回：    加载失败就返回TRUE
    '------------------------------------    
    public function LoadXml(strPath)
        set s_objXml = CreateObject("MSXML2.DOMdocument")
        s_objXml.async = false
        s_objXml.load(strPath)
        if s_objXml.parse