vbscript -----------------------------------------------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_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
'---------------------------------------------
'目的： 添加一個DLL項目
'參數： strPath: DLL檔案地址
' blnReg: 添加後是否將其註冊
'返回： 如果要求添加後註冊，註冊成功就返回1,註冊失敗返回0,已經有該項目並注過冊就返回-1
'---------------------------------------------
public function AddN
