<%
'------------------------------------------------ - --------------
'プログラムの紹介: XML ドキュメント内の指定されたノード テキストを追加、削除、変更、表示するための ASP 言語を完成させます。
'エントリパラメータ: なし
'エクスポートパラメータ: なし
'------------------------------------------------
'関数名: ConnectXml()
'エントリパラメータ: filename 接続または開く XML ファイル名
'エクスポートパラメータ: なし
'戻り値: ConnectXml=0、XMLMorntekDocument は XML ドキュメントを正常にロードするオブジェクトです。
'ConnectXml<>0 を実行し、エラー メッセージ strError を出力します。
'------------------------------------------------
dim XMLMorntekDocument
関数 ConnectXml(ファイル名)
dim strSourceFile
strSourceFile = Server.MapPath(ファイル名)
Set 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(befelementname,elementname,elementtext)
薄暗い光、要素
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 =""
終了関数
%>