*使用本CLASS可以管理并在ASP页里面注册你的DLL

　　*本CLASS在WIN 2K上测试通过

　　*注：使用本CLASS需要先建立一个XML文件。文件如下.打开记事本将如下3行存为*.XML文件

　　*范例：

　　* 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文件里每个条目如下：F:\web\cw31072\dll\test\MyClass.dll

　　* ’F:\web\cw31072\dll\test\MyClass.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.parseError.errorCode <> 0 then
　　set s_objXml = nothing
　　LoadXml = true
　　exit function
　　end if
　　set s_objNodeRoot = s_objXml.documentElement
　　s_strXmlPath = strPath
　　s_strAttributeName = "是否已经注册"