Vervollständigen Sie die ASP-Sprache, um den angegebenen Knotentext im XML-Dokument hinzuzufügen, zu löschen, zu ändern und anzuzeigen. Freunde, die ihn benötigen, können darauf verweisen. Kopieren Sie den Codecode wie folgt:
<%
'------------------------------------------------ - --------------
'Programmeinführung: Vervollständigen Sie die ASP-Sprache, um den Text des angegebenen Knotens im XML-Dokument hinzuzufügen, zu löschen, zu ändern und anzuzeigen
'Eingabeparameter: Keine
'Exportparameter: Keine
'------------------------------------------------
'Funktionsname: ConnectXml()
'Eingabeparameter: Dateiname XML-Dateiname, der verbunden oder geöffnet werden soll
'Exportparameter: Keine
'Rückgabewert: ConnectXml=0, XMLMorntekDocument ist ein Objekt, das das XML-Dokument erfolgreich lädt.
'ConnectXml<>0, dann die Fehlermeldung strError ausgeben
'------------------------------------------------
dim XMLMorntekDocument
Funktion ConnectXml(Dateiname)
dim strSourceFile
strSourceFile = Server.MapPath(Dateiname)
Setze XMLMorntekDocument = Server.CreateObject(Microsoft.XMLDOM)
XMLMorntekDocument.async = false
XMLMorntekDocument.load(strSourceFile)
ConnectXml=XMLMorntekDocument.parseerror.errorcode
wenn XMLMorntekDocument.parseerror.errorcode<>0 dann
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>
Antwort.write strError
Ende wenn
Endfunktion
'------------------------------------------------
'Funktionsname: CloseXml()
'Eingabeparameter: Keine
'Exportparameter: Keine
'------------------------------------------------
Funktion CloseXml(XMLMorntekDocument)
if IsObject(XMLMorntekDocument) dann
Setze XMLMorntekDocument=nichts
Ende wenn
Endfunktion
'------------------------------------------------
'Funktionsname: SelectXmlNodeText(elementname)
'Eingabeparameter: elementname Der Name des Elements
'Exportparameter: Keine
'------------------------------------------------
Funktion SelectXmlNodeText(elementname)
elementname=//&elementname
temp=XMLMorntekDocument.selectSingleNode(elementname).text
selectXmlNodeText= server.htmlencode(temp)
Endfunktion
'------------------------------------------------
'Funktionsname: InsertXmlNodeText(befelementname,elementname,elementtext)
'Eingabeparameter: elementname Der Name des eingefügten Elements
' befelementname fügt ein Element vor dem Namen dieses Elements ein
'elementtext Der Text des eingefügten Elements
'Exportparameter: Keine
'------------------------------------------------
Funktion InsertXmlNodeText(befelementname,elementname,elementtext)
dim befelement,element
set befelement=XMLMorntekDocument.selectSingleNode(//&befelementname)
set element= XMLMorntekDocument.createelement(elementname)
befelement.insertVor dem Element,befelement.firstchild
element.text=elementtext
Endfunktion
'------------------------------------------------
'Funktionsname: UpdateXmlNodeText(elementname,newelementtext)
'Eingabeparameter: elementname Der Name des Elements
' Der neue Text des newelementtext-Elements
'Exportparameter: Keine
'------------------------------------------------
Funktion UpdateXmlNodeText(elementname,newelementtext)
dunkles Element
set element=XMLMorntekDocument.selectSingleNode(//&elementname)
element.text=neuer Elementtext
Endfunktion
'------------------------------------------------
'Funktionsname: DeleteXmlNodeText(elementname)
'Eingabeparameter: elementname Der Name des Elements
'Exportparameter: Keine
'------------------------------------------------
Funktion DeleteXmlNodeText(elementname)
XMLMorntekDocument.selectSingleNode(//&elementname).text =
Endfunktion
%>