<%
'------------------------------------------------ - --------------
'Introdução ao programa: Complete a linguagem asp para adicionar, excluir, modificar e visualizar o texto do nó especificado no documento XML
'Parâmetros de entrada: Nenhum
'Parâmetros de exportação: Nenhum
'------------------------------------------------
'Nome da função: ConnectXml()
'Parâmetros de entrada: nome do arquivo nome do arquivo xml a ser conectado ou aberto
'Parâmetros de exportação: Nenhum
'Valor de retorno: ConnectXml=0, XMLMorntekDocument é um objeto que carrega com êxito o documento XML.
'ConnectXml<>0, então imprima a mensagem de erro strError
'------------------------------------------------
dim XMLMorntekDocument
ConnectXml (nome do arquivo)
dim strSourceFile
strSourceFile = Server.MapPath(nome do arquivo)
Definir XMLMorntekDocument = Server.CreateObject("Microsoft.XMLDOM")
XMLMorntekDocument.async = falso
XMLMorntekDocument.load(strSourceFile)
ConnectXml=XMLMorntekDocument.parseerror.errorcode
se XMLMorntekDocument.parseerror.errorcode<>0 então
strError="<h2>erro"&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>"
resposta.write strError
terminar se
função final
'---------------------------------------------------------- ---
'Nome da função: CloseXml()
'Parâmetros de entrada: Nenhum
'Parâmetros de exportação: Nenhum
'------------------------------------------------
função CloseXml(XMLMorntekDocument)
se IsObject(XMLMorntekDocument) então
definir XMLMorntekDocument = nada
terminar se
função final
'------------------------------------------------
'Nome da função: SelectXmlNodeText(nome do elemento)
'Parâmetro de entrada: elementname O nome do elemento
'Parâmetros de exportação: Nenhum
'------------------------------------------------
função SelectXmlNodeText (nome do elemento)
nomedoelemento="//"&nomedoelemento
temp=XMLMorntekDocument.selectSingleNode(nomedoelemento).text
selectXmlNodeText= server.htmlencode(temp)
função final
'--------------------------------------- ----------
'Nome da função: InsertXmlNodeText(befelementname,elementname,elementtext)
'Parâmetro de entrada: elementname O nome do elemento inserido
' befelementname insere um elemento antes do nome deste elemento
'elementtext O texto do elemento inserido
'Parâmetros de exportação: Nenhum
'------------------------------------------------
função InsertXmlNodeText (nome do elemento, nome do elemento, texto do elemento)
dim befelement, elemento
set befelement=XMLMorntekDocument.selectSingleNode("//"&befelementname)
definir elemento = XMLMorntekDocument.createelement (nome do elemento)
befelement.insertBefore elemento,befelement.firstchild
elemento.text=elementotexto
função final
'---------------------------------------------------------- ---
'Nome da função: UpdateXmlNodeText(elementname,newelementtext)
'Parâmetro de entrada: elementname O nome do elemento
'O novo texto do elemento newelementtext
'Parâmetros de exportação: Nenhum
'------------------------------------------------
função UpdateXmlNodeText (nome do elemento, novo texto do elemento)
elemento escuro
set element=XMLMorntekDocument.selectSingleNode("//"&elementname)
element.text=novoelementotexto
função final
'---------------------------------------------------------- ---
'Nome da função: DeleteXmlNodeText(nome do elemento)
'Parâmetro de entrada: elementname O nome do elemento
'Parâmetros de exportação: Nenhum
'------------------------------------------------
função DeleteXmlNodeText (nome do elemento)
XMLMorntekDocument.selectSingleNode("//"&elementname).text =""
função final
%>