登録メンバー、Web開発データベースの作成、------------------------------------------------------------------------------- ------ root1 ---------------------------------------------------------------------------------------- -------------------------------------------------------
****************************************** ***************************************
*このクラスを使用して、ASPページでDLLを管理および登録します
*このクラスはWin 2Kでテストされています
*注：このクラスを使用して、最初にXMLファイルを作成します。ファイルは次のとおりです。
*
*<？xmlバージョン= "1.0" encoding = "gb2312" standalone
*<dllリスト>
*</dllリスト>
*
*----------------------------------------------------------- -------------------------------------------------------------- -------------------------------------------------------------- -------------------------------------------------------------- -----
*例：
*dim objretsvr32
*objregsvr32 = new regsvr32を設定します
*objregsvr32で
*if .loadxml（ "../ mydll.xml"）then
*respons.writeを呼び出す（ "xmlファイルの読み込みエラー"）
*objregsvr32 =何も設定しません
*Response.End
*ifを終了します
*select case .addnode（ "f：/web/cw31072/dll/test/myclass.dll"、true） '新しいエントリを追加してDLLを登録
*ケース1
*response.writeを呼び出します（ "エントリがXMLファイルに追加されました！
*ケース0
*response.writeを呼び出します（ "エントリはXMLファイルに追加されました！しかし、登録されたDLLで失敗しました！"）
*ケース-1
*response.writeを呼び出します（ "XMLファイルにこのエントリが既にあります！DLLも登録されています！」）
*end select
*.........................
*終わります
*
*'ベンクラスは非常に単純で、いくつかの方法があるので、例を挙げていません。ただ見てください。将来開くことができます
*'XMLファイルは、登録したDLLリストに依存し、登録されます。
*'各エントリのXMLファイルは次のとおりです。
*'f：/web/cw31072/dll/test/myclass.dllは、dllファイルのパスです
*'登録されているかどうか= "1"は、DLLが登録されていること、= "0"がまだ登録されていないことです！
****************************************** ***************************************
クラスregsvr32
プライベートS_OBJXML
private s_objnoderoot
プライベートS_STRXMLPATH
プライベートs_strattributename
'------------------------------------------------------------- -------------------------------------------------------------- ------------------------------------
'目的：DLL構成XMLファイルをロードします
'パラメーター：XMLファイルアドレス
'戻り：ロードに失敗した場合はtrueに戻ります
'------------------------------------------------------------- -------------------------------------------------------------- ------------------------------------
パブリック関数loadxml（strpath）
set s_objxml = createObject（ "msxml2.document"）
s_objxml.async = false
s_objxml.load（strpath）
s_objxml.parseerror.errorcode <> 0の場合
S_OBJXML =何も設定しません
loadxml = true
出口機能
ifを終了します
set s_objnoderoot = s_objxml.documentelementを設定します
s_strxmlpath = strpath
s_strattributename = "登録されているかどうか"
エンド関数
'-------------------------------------------------------
'目標：DLLプロジェクトを追加します
'パラメーター：strpath：dllファイルアドレス
'Blnreg：追加後に登録するかどうか
'返品：登録が必要な場合、登録が成功し、登録が失敗し、登録の失敗が0に戻り、プロジェクトにはすでにプロジェクトがあり、レジスタは-1を返します。
'-------------------------------------------------------
パブリック関数addn