Preencha a linguagem asp para adicionar, excluir, modificar e visualizar o texto do nó especificado no documento XML. Amigos necessitados podem consultá-lo. Copie o código do código da seguinte forma:
<%
'------------------------------------------------ - --------------
'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
'------------------------------------------------
escurecer XMLMorntekDocument
função 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(nome do elemento).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
definir elemento=XMLMorntekDocument.selectSingleNode(//&nomedoelemento)
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
%>