敬业的IT人 >> 网站建设 >> Web编程 >> Asp >> 在ASP页里面注册DLL的VBScript CLASS

在ASP页里面注册DLL的VBScript CLASS

敬业的IT人 互联网 佚名 2008-4-14 12:25:44
-----------------------------------------------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:\web\cw31072\dll\test\MyClass.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:\web\cw31072\dll\test\MyClass.dll</Dll>
*    'F:\web\cw31072\dll\test\MyClass.dll就是你DLL文件的路径
*    '是否已经注册="1"就是该DLL已经注册过,=“0”就是还没有注册呢!
*******************************************************************************************

Class Regsvr32

    private s_objxml(标准化越来越近了)
    private s_objNodeRoot
    private s_strxml(标准化越来越近了)Path
    private s_strAttributeName
    
    '------------------------------------
粤ICP备06119539号
Copyright CiscoSky.Org,Some Rights Reserved.
Email:me1228#tom.com