XML ドキュメント内の指定されたノード テキストを追加、削除、変更、表示するには、ASP 言語を完成させて、必要な友人がそれを参照できるようにします。次のようにコードをコピーします。
<%
'------------------------------------------------ - --------------
'プログラムの紹介: XML ドキュメント内の指定されたノードのテキストを追加、削除、変更、表示するための ASP 言語を完成させます。
'エントリパラメータ: なし
'エクスポートパラメータ: なし
'------------------------------------------------
'関数名: ConnectXml()
'エントリパラメータ: filename 接続または開く XML ファイル名
'エクスポートパラメータ: なし
'戻り値: ConnectXml=0、XMLMorntekDocument は XML ドキュメントを正常にロードするオブジェクトです。
'ConnectXml<>0 を実行し、エラー メッセージ strError を出力します。
'------------------------------------------------
dim XMLMorntekDocument
関数 ConnectXml(ファイル名)
dim strSourceFile
strSourceFile = Server.MapPath(ファイル名)
XMLMorntekDocument = Server.CreateObject(Microsoft.XMLDOM) を設定します。
XMLMorntekDocument.async = false
XMLMorntekDocument.load(strSourceFile)
ConnectXml=XMLMorntekDocument.parseerror.errorcode
if XMLMorntekDocument.parseerror.errorcode<>0 then
strError=<h2>エラー&XMLMorntekDocument.parseerror.errorcode&</h2>
strError=strError&XMLMorntekDocument.parseerror.reason&<br>
strError=strError&XMLMorntekDocument.parseerror.url&<br>
strError=strError&XMLMorntekDocument.parseerror.line&<br>
strError=strError&XMLMorntekDocument.parseerror.filepos&<br>
strError=strError&XMLMorntekDocument.parseerror.srcText&<br>
応答.write strError
終了する場合
終了関数
'------------------------------------------------
'関数名: CloseXml()
'エントリパラメータ: なし
'エクスポートパラメータ: なし
'------------------------------------------------
関数 CloseXml(XMLMorntekDocument)
IsObject(XMLMorntekDocument) の場合
set XMLMorntekDocument=nothing
終了する場合
終了関数
'------------------------------------------------
'関数名: SelectXmlNodeText(要素名)
'エントリパラメータ: elementname 要素の名前
'エクスポートパラメータ: なし
'------------------------------------------------
関数 SelectXmlNodeText(要素名)
要素名=//&要素名
temp=XMLMorntekDocument.selectSingleNode(要素名).text
selectXmlNodeText=server.htmlencode(temp)
終了関数
'------------------------------------------------
'関数名: InsertXmlNodeText(be要素名,要素名,要素テキスト)
'エントリパラメータ: elementname 挿入された要素の名前
' befelementname は、この要素の名前の前に要素を挿入します
'elementtext 挿入された要素のテキスト
'エクスポートパラメータ: なし
'------------------------------------------------
function InsertXmlNodeText(要素名,要素名,要素テキスト)
薄暗い光、要素
set befelement=XMLMorntekDocument.selectSingleNode(//&befelementname)
set element= XMLMorntekDocument.createelement(要素名)
befelement.insertBefore要素,befelement.firstchild
要素.テキスト=要素テキスト
終了関数
'------------------------------------------------
'関数名: UpdateXmlNodeText(要素名,新しい要素テキスト)
'エントリパラメータ: elementname 要素の名前
' newelementtext 要素の新しいテキスト
'エクスポートパラメータ: なし
'------------------------------------------------
関数 UpdateXmlNodeText(要素名,新しい要素テキスト)
薄暗い要素
set element=XMLMorntekDocument.selectSingleNode(//&要素名)
element.text=新しい要素テキスト
終了関数
'------------------------------------------------
'関数名: DeleteXmlNodeText(要素名)
'エントリパラメータ: elementname 要素の名前
'エクスポートパラメータ: なし
'------------------------------------------------
関数 DeleteXmlNodeText(要素名)
XMLMorntekDocument.selectSingleNode(//&要素名).text =
終了関数
%>