Complete el lenguaje asp para agregar, eliminar, modificar y ver el texto del nodo especificado en el documento XML. Los amigos que lo necesiten pueden consultarlo. Copie el código de código de la siguiente manera:
<%
'------------------------------------------------ - --------------
'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
'------------------------------------------------
XML tenueMorntekDocumento
función 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_elemento=//&nombre_elemento
temp=XMLMorntekDocument.selectSingleNode(nombre del elemento).texto
selectXmlNodeText=servidor.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)
sentimiento tenue, elemento
set 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
%>