在ASP页里面注册DLL的VBScript CLASS
2024-05-04 11:06:17
供稿：网友
注册会员，创建你的web开发资料库，-----------------------------------------------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
