在ASP页里面注册DLL的VBScript CLASS

核心提示：---ROOT1---使用本CLASS可以管理并在asp页里面注册你的DLL*本CLASS在WIN 2K上测试通过*注：使用本CLASS需要先建立一个xml文件，文件如下.打开记事本将如下3行存为*.XML文件**<?xml version="1.0" encoding="gb231

-----------------------------------------------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 AddNode(strPath , blnReg)
　　　　dim objNewNode
　　　　dim strStart
　　　　dim objNode
　　　　strStart = "0"
　　　　set objNode = SelectNode(strPath)
　　　　if objNode is nothing then
　　　　　　if Reg(strPath , true) then
　　　　　　　　strStart = "1"
　　　　　　　　AddNode = true
　　　　　　else
　　　　　　　　AddNode = false
　　　　　　end if
　　　　　　set objNewNode = s_objXml.createElement("Dll")
　　　　　　call objNewNode.setAttribute(s_strAttributeName , strStart)
　　　　　　objNewNode.Text = strPath
　　　　　　call s_objNodeRoot.appendChild(objNewNode)
　　　　　　call s_objXml.save(s_strXmlPath)
　　　　else
　　　　　　if blnReg then
　　　　　　　　if objNode.Attributes.getNamedItem(s_strAttributeName).nodeValue = "1" then
　　　　　　　　　　AddNode = true
　　　　　　　　else
　　　　　　　　　　if Reg(strPath , true) then
　　　　　　　　　　　　objNode.Attributes.getNamedItem(s_strAttributeName).nodeValue = "1"
　　　　　　　　　　　　call s_objXml.save(s_strXmlPath)
　　　　　　　　　　else
　　　　　　　　　　　　AddNode = false
　　　　　　　　　　end if
　　　　　　　　end if
　　　　　　 else
　　　　　　　　 AddNode = false
　　　　　　 end if
　　　　end if
　　end function
　　
　　'----------------------------------------
　　'目的：　　删除所有已经注册，或者没注册的节点
　　'参数：　　blnStart:　　0=未注册的,1=已经注册的
　　'返回：　　执行了删除操作就返回TRUE，否则返回FALSE
　　'----------------------------------------
　　public function ReAllNode(byVal blnStart)
　　　　dim objNode
　　　　dim blnIsChange
　　　　blnStart = CStr(blnStart)
　　　　for each objNode in s_objNodeRoot.childNodes
　　　　　　if objNode.Attributes.getNamedItem(s_strAttributeName).nodeValue = blnStart then
　　　　　　　　call s_objNodeRoot.removeChild(objNode)
　　　　　　　　blnIsChange = true
　　　　　　end if
　　　　next
　　　　if blnIsChange then
　　　　　　ReAllNode = true
　　　　　　call s_objXml.save(s_strXmlPath)
　　　　else
　　　　　　ReAllNode = false
　　　　end if　　 
　　end function
　　
　　'-----------------------------------------
　　'目的：　　删除某一个节点
　　'参数：　　节点内容
　　'返回：　　找不到节点就返回TRUE
　　'-----------------------------------------
　　public function ReNode(strPath)
　　　　dim objNode
　　　　set objNode = SelectNode(strPath)
　　　　if objNode is nothing then
　　　　　　ReNode = true
　　　　else
　　　　　　call s_objNodeRoot.removeChild(objNode)
　　　　　　call s_objXml.save(s_strXmlPath)
　　　　end if
　　end function
　　
　　
　　'-----------------------------------------
　　'目的：　　寻找某个节点
　　'参数：　　strPath:　 节点内容
　　'返回：　　找到就返回该节点，找不到就返回nothing
　　'-----------------------------------------
　　private function SelectNode(ByVal strPath)
　　　　dim objNode
　　　　strPath = UCase(strPath)
　　　　for each objNode in s_objNodeRoot.childNodes
　　　　　　if UCase(objNode.childNodes.item(0).nodeValue) = strPath then
　　　　　　　　Set SelectNode = objNode
　　　　　　　　exit function
　　　　　　end if
　　　　next
　　　　set SelectNode = nothing
　　end function
　　
　　'--------------------------------------------
　　'目的：　　查看DLL文件列表里某个文件注册状态
　　'参数：　　该文件路径
　　'返回：　　1=已经注册
　　'　　　　　0=未注册
　　'　　　　　-1=找不到该文件
　　'--------------------------------------------
　　public function CheckDll(strPath)
　　　　dim objNode
　　　　set objNode = SelectNode(strPath)
　　　　if objNode is nothing then
　　　　　　CheckDll = -1
　　　　else
　　　　　　CheckDll = Cint(objNode.Attributes.getNamedItem(s_strAttributeName).nodeValue)
　　　　end if
　　end function
　　
　　'--------------------------------------
　　'目的：　　将所有未注册的DLL注册
　　'返回：　　如果有某个DLL注册失败就返回TRUE
　　'--------------------------------------
　　public function RegAllNode()
　　　　dim objNode
　　　　for each objNode in s_objNodeRoot.childNodes
　　　　　　if objNode.Attributes.getNamedItem(s_strAttributeName).nodeValue = "0" then
　　　　　　　　if Reg(objNode.childNodes.item(0).nodeValue , true) then
　　　　　　　　　　objNode.Attributes.getNamedItem(s_strAttributeName).nodeValue = 1
　　　　　　　　else
　　　　　　　　　　RegAllNode = true
　　　　　　　　end if
　　　　　　end if
　　　　next
　　end function
　　
　　'-----------------------------------------
　　'目的：　　注册DLL
　　'参数：　　strPath:　　要注册Dll文件路径
　　'　　　　　blnLoding:　　是否等待注册完成才继续执行程序
　　'返回：　　如果blnLoging=TRUE,注册成功就返回True
　　'-----------------------------------------
　　private function Reg(strPath , blnLoding)　　
　　　　dim objShell
　　　　set objShell = CreateObject("Wscript.Shell")
　　　　if objShell.Run("regsvr32.exe /s " & strPath , , blnLoding) = 0 then
　　　　　　Reg = true
　　　　end if
　　　　set objShell = nothing
　　end function
　　
End Class