·您的位置: 首页 » 资源教程 » 编程开发 » ASP » 在ASP页里面注册DLL的VBSCRIPT CLASS

在ASP页里面注册DLL的VBSCRIPT CLASS

类别: ASP教程  评论数:0 总得分:0
***************************************************************************
*使用本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:webcw31072dlltestMyClass.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:webcw31072dlltestMyClass.dll</Dll>
* \'F:webcw31072dlltestMyClass.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
-= 资 源 教 程 =-
文 章 搜 索
关键词:
类型:
范围:
纯粹空间 softpure.com
Copyright © 2006-2008 暖阳制作 版权所有
QQ: 15242663 (拒绝闲聊)  Email: faisun@sina.com
 纯粹空间 - 韩国酷站|酷站欣赏|教程大全|资源下载|免费博客|美女壁纸|设计素材|技术论坛   Valid XHTML 1.0 Transitional
百度搜索 谷歌搜索 Alexa搜索 | 粤ICP备19116064号-1