XML を操作するための Asp 用の洗練されたクラスを作成しました。以下にそれを App.xml として保存し、asp ファイルと同じディレクトリに置きます。
次のようにコードをコピーします。
<?xml バージョン=1.0 エンコーディング=utf-8?>
<ルート>
<概要>
<バージョン>1.0 ベータ</バージョン>
<最新バージョン>1.0 ベータ版</最新バージョン>
<著者>著者</著者>
<PubDate>2010/02/20</PubDate>
</概要>
<設定>
<インストール済み>False</インストール済み>
<BakPath>_データ</BakPath>
</設定>
</ルート>
以下は Asp クラスとその使用方法です。test.asp という名前で保存してテストしてください。
次のようにコードをコピーします。
<%
ClassAppConfig
DimXmlDom
プライベートサブクラス_Initialize()
XmlDom = Server.createobject(microsoft.xmldom) を設定します。
XmlDom.load(Server.mappath(App.xml))
エンドサブ
プライベートサブクラス_Terminate()
XmlDom = なしを設定します
エンドサブ
関数 GetD(キー)
GetD =XmlDom.getElementsByTagName(key)(0).text
終了機能
関数 SetD(key,val)
XmlDom.getElementsByTagName(key)(0).text = val
XmlDom.save(Server.mappath(App.xml))
終了機能
関数AddD(ノード、キー、値)
set newnode=XmlDom.getElementsByTagName(node)(0).appendchild(XmlDom.createelement(key))
newnode.text = val
newnode=Nothing を設定します
XmlDom.save(Server.mappath(App.xml))
終了機能
関数 DelD(キー)
エラー時は次へ再開
XmlDom.getElementsByTagName(key)(0).parentNode.removechild(XmlDom.getElementsByTagName(key)(0))
XmlDom.save(Server.mappath(App.xml))
終了機能
終了クラス
Config = new AppConfig を設定します
wn Config.GetD(バージョン)
wn Config.GetD(最新バージョン)
wn Config.GetD(作成者)
wn Config.GetD(PubDate)
wn Config.GetD(インストール済み)
wn Config.GetD(BakPath)
' [追加/編集/削除] ノードの効果を確認するには、対応する注釈を削除します
'Call Config.AddD(Config,test,test) 'ノードを追加
'Call Config.SetD(test,test2) ' ノードを編集します
'Call Config.DelD(test) ' ノードを削除します
サブ wn(str)
Response.Write(str)&<br />&vbcrlf
エンドサブ
%>
あまり汎用的ではありませんが、基本的にノードの追加/削除/変更ができる場合には十分です。