 |
|
|
 首页 |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
*************************************************************************** *使用本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 返回类别: 教程 上一教程: ASP和SQL结合处理时间应用 下一教程: 加亮显示ASP文章原代码 您可以阅读与"在ASP页里面注册DLL的VBSCRIPT CLASS"相关的教程: · 利用ASP在客户端注册DLL文件 · 怎样在ASP里面创建统计图表 · 用VB编写ACTIVEX DLL实现ASP编程 · 用VB将ASP代码封装成DLL · 纯ASP(VBSCRIPT)写的全球IP地址搜 |
  |
| 快精灵印艺坊 版权所有 |
首页 会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店
|
||
