*使用本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就是你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 = "是否已经注册" end function |
