注册会员,创建你的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