在ASP頁(yè)里面注冊(cè)DLL的VBScript CLASS
2024-05-04 11:06:17
供稿：網(wǎng)友
注冊(cè)會(huì)員，創(chuàng)建你的web開發(fā)資料庫(kù)，-----------------------------------------------root1---------------------------------------
*******************************************************************************************
*使用本class可以管理并在asp頁(yè)里面注冊(cè)你的dll
*本class在win 2k上測(cè)試通過
*注：使用本class需要先建立一個(gè)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文件加載錯(cuò)誤")
* set objregsvr32 = nothing
* response.end
* end if
* select case .addnode("f:/web/cw31072/dll/test/myclass.dll" , true) '添加新條目并注冊(cè)dll
* case 1
* call response.write("條目已經(jīng)添加進(jìn)xml文件！并成功注冊(cè)dll啦！")
* case 0
* call response.write("條目已經(jīng)添加進(jìn)xml文件！但注冊(cè)dll時(shí)失敗！")
* case -1
* call response.write("xml文件里已經(jīng)有該條目！該dll也已經(jīng)注冊(cè)的了！")
* end select
* ..........................
* end with
*
* '本class非常簡(jiǎn)單，里面還有些方法，我就不舉例了,看看就知道了。日后你可以打開
* '該xml文件看你曾經(jīng)注冊(cè)過和待注冊(cè)的dll列表。
* 'xml文件里每個(gè)條目如下：<dll 是否已經(jīng)注冊(cè)="1">f:/web/cw31072/dll/test/myclass.dll</dll>
* 'f:/web/cw31072/dll/test/myclass.dll就是你dll文件的路徑
* '是否已經(jīng)注冊(cè)="1"就是該dll已經(jīng)注冊(cè)過，=“0”就是還沒有注冊(cè)呢！
*******************************************************************************************
class regsvr32
private s_objxml
private s_objnoderoot
private s_strxmlpath
private s_strattributename
'------------------------------------
'目的： 加載dll配置xml文件
'參數(shù)： 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 = "是否已經(jīng)注冊(cè)"
end function
'---------------------------------------------
'目的： 添加一個(gè)dll項(xiàng)目
'參數(shù)： strpath: dll文件地址
' blnreg: 添加后是否將其注冊(cè)
'返回： 如果要求添加后注冊(cè)，注冊(cè)成功就返回1,注冊(cè)失敗返回0,已經(jīng)有該項(xiàng)目并注過冊(cè)就返回-1
'---------------------------------------------
public function addn
