<%
'------------------------------------------------ - --------------
'Введение в программу: заполните язык asp, чтобы добавлять, удалять, изменять и просматривать указанный текст узла в XML-документе.
'Параметры ввода: Нет
'Параметры экспорта: нет
'------------------------------------------------
'Имя функции: ConnectXml()
'Параметры ввода: filename xml имя файла, который нужно подключить или открыть
'Параметры экспорта: нет
'Возвращаемое значение: ConnectXml=0, XMLMorntekDocument — это объект, который успешно загружает XML-документ.
'ConnectXml<>0, затем распечатайте сообщение об ошибке strError
'------------------------------------------------
функция
dim XMLMorntekDocument
ConnectXml(имя файла)
дим стрсаурцефиле
strSourceFile = Server.MapPath(имя файла)
Установите XMLMorntekDocument = Server.CreateObject("Microsoft.XMLDOM")
XMLMorntekDocument.async = ложь
XMLMorntekDocument.load(strSourceFile)
ConnectXml=XMLMontekDocument.parseerror.errorcode
если XMLMorntekDocument.parseerror.errorcode<>0, то
strError="<h2>error"&XMLMontekDocument.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&XMLMontekDocument.parseerror.srcText&"<br>"
ответ.запись стрError
конец, если
конечная функция
'----------------------------------------------- -- -
'Имя функции: CloseXml()
'Параметры ввода: Нет
'Параметры экспорта: нет
'------------------------------------------------
функция CloseXml(XMLMontekDocument)
если IsObject(XMLMorntekDocument), то
установить XMLMorntekDocument=ничего
конец, если
конечная функция
'------------------------------------------------
'Имя функции: SelectXmlNodeText(имя элемента)
'Вводной параметр: elementname Имя элемента
'Параметры экспорта: нет
'------------------------------------------------
функция SelectXmlNodeText(имя элемента)
имя элемента="//"&имя элемента
temp=XMLMorntekDocument.selectSingleNode(имя элемента).текст
selectXmlNodeText= server.htmlencode(temp)
end function
'--------------------------------------- ----------
'Имя функции: InsertXmlNodeText(befelementname,elementname,elementtext)
'Параметр ввода: elementname Имя вставленного элемента
'befelementname вставляет элемент перед именем этого элемента
'elementtext Текст вставленного элемента
'Параметры экспорта: нет
'------------------------------------------------
функция InsertXmlNodeText(befelementname,elementname,elementtext)
дим бефелемент, стихия
set befelement=XMLMorntekDocument.selectSingleNode("//"&befelementname)
set element = XMLMorntekDocument.createelement(имя элемента)
элемент befelement.insertBefore,befelement.firstchild
element.text=elementtext
конечная функция
'----------------------------------------------- -- -
'Имя функции: UpdateXmlNodeText(имя элемента,newelementtext)
'Вводной параметр: elementname Имя элемента
' Новый текст элемента newelementtext
'Параметры экспорта: нет
'------------------------------------------------
функция UpdateXmlNodeText (имя элемента, новый элемент текста)
тусклый элемент
set element=XMLMorntekDocument.selectSingleNode("//"&имя элемента)
element.text=newelementtext
конечная функция
'----------------------------------------------- -- -
'Имя функции: DeleteXmlNodeText(имя элемента)
'Вводной параметр: elementname Имя элемента
'Параметры экспорта: нет
'------------------------------------------------
функция DeleteXmlNodeText(имя элемента)
XMLMorntekDocument.selectSingleNode("//"&имя элемента).text =""
конечная функция
%>