在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
