<%
'------------------------------------------------ - --------------
'Programmeinführung: Vervollständigen Sie die ASP-Sprache, um den angegebenen Knotentext 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
'------------------------------------------------
dimmen Sie die XMLMorntekDocument
-Funktion ConnectXml(filename)
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
%>