Заполните язык asp, чтобы добавлять, удалять, изменять и просматривать указанный текст узла в XML-документе. Друзья, нуждающиеся в этом, могут обратиться к нему. Скопируйте код кода следующим образом:
<%
'------------------------------------------------ - --------------
'Введение в программу: заполните язык asp, чтобы добавлять, удалять, изменять и просматривать текст указанного узла в XML-документе.
'Параметры ввода: Нет
'Параметры экспорта: нет
'------------------------------------------------
'Имя функции: ConnectXml()
'Параметры ввода: filename xml имя файла, который нужно подключить или открыть
'Параметры экспорта: нет
'Возвращаемое значение: ConnectXml=0, XMLMorntekDocument — это объект, который успешно загружает XML-документ.
'ConnectXml<>0, затем распечатайте сообщение об ошибке strError
'------------------------------------------------
тусклый 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)
конечная функция
'------------------------------------------------
'Имя функции: 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 =
конечная функция
%>