註冊會員,創建你的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