<%
'------------------------------------------------ - --------------
'Introducción al programa: complete el lenguaje ASP para agregar, eliminar, modificar y ver el texto del nodo especificado en el documento XML
'Parámetros de entrada: Ninguno
'Parámetros de exportación: Ninguno
'------------------------------------------------
'Nombre de la función: ConnectXml()
'Parámetros de entrada: nombre de archivo nombre de archivo xml que se conectará o abrirá
'Parámetros de exportación: Ninguno
'Valor de retorno: ConnectXml=0, XMLMorntekDocument es un objeto que carga correctamente el documento XML.
'ConnectXml<>0, luego imprime el mensaje de error strError
'------------------------------------------------
XMLMorntekDocument tenue
ConnectXml(nombre de archivo)
dim strSourceFile
strSourceFile = Server.MapPath(nombre de archivo)
Establecer XMLMorntekDocument = Server.CreateObject("Microsoft.XMLDOM")
XMLMorntekDocument.async = falso
XMLMorntekDocument.load(strSourceFile)
ConnectXml=XMLMorntekDocument.parseerror.errorcode
si XMLMorntekDocument.parseerror.errorcode<>0 entonces
strError="<h2>error"&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>"
respuesta.escribir strError
terminar si
función final
'----------------------------------------------- -- -
'Nombre de la función: CloseXml()
'Parámetros de entrada: Ninguno
'Parámetros de exportación: Ninguno
'------------------------------------------------
función CerrarXml(XMLMorntekDocumento)
si IsObject (XMLMorntekDocument) entonces
establecer XMLMorntekDocument=nada
terminar si
función final
'------------------------------------------------
'Nombre de la función: SelectXmlNodeText(nombre del elemento)
'Parámetro de entrada: nombre_elemento El nombre del elemento
'Parámetros de exportación: Ninguno
'------------------------------------------------
función SelectXmlNodeText (nombre del elemento)
nombre del elemento="//"&nombre del elemento
temp=XMLMorntekDocument.selectSingleNode(nombre del elemento).texto
selectXmlNodeText= server.htmlencode(temp)
función final
'--------------------------------------- ----------
'Nombre de la función: InsertXmlNodeText(befelementname,elementname,elementtext)
'Parámetro de entrada: nombre de elemento El nombre del elemento insertado
' befelementname inserta un elemento antes del nombre de este elemento
'elementtext El texto del elemento insertado.
'Parámetros de exportación: Ninguno
'------------------------------------------------
función InsertarXmlNodeText(nombredeelemento,nombredeelemento,textodeelemento)
tenue befelement, elemento
establecer befelement=XMLMorntekDocument.selectSingleNode("//"&befelementname)
establecer elemento = XMLMorntekDocument.createelement (nombre del elemento)
befelement.insertAntes del elemento,befelement.firstchild
elemento.texto=elementotexto
función final
'----------------------------------------------- -- -
'Nombre de la función: UpdateXmlNodeText(nombre del elemento, nuevo texto del elemento)
'Parámetro de entrada: nombre_elemento El nombre del elemento
' El nuevo texto del elemento newelementtext
'Parámetros de exportación: Ninguno
'------------------------------------------------
función UpdateXmlNodeText (nombre del elemento, nuevo texto del elemento)
elemento tenue
establecer elemento=XMLMorntekDocument.selectSingleNode("//"&nombre del elemento)
elemento.text=nuevoelementotexto
función final
'----------------------------------------------- -- -
'Nombre de la función: DeleteXmlNodeText(nombre del elemento)
'Parámetro de entrada: nombre_elemento El nombre del elemento
'Parámetros de exportación: Ninguno
'------------------------------------------------
función EliminarXmlNodeText(nombre del elemento)
XMLMorntekDocument.selectSingleNode("//"&elementname).text =""
función final
%>