XML в классическом ASP Vbscript

Question

Я вернулся к asp с помощью manupulation XML. Первоначальный файл:

<?xml version="1.0" ?> 
<root> 
    <sport/> 
</root> 

это моя функция

Public Function DefinitFunction(x,z) 


Dim text 
Dim Root 
Dim NodeList 

    text = "<Definition>" ---<x> </x> <z> </z> --</Definition> " 
    text = text & "<x><![CDATA["&x&"]]> </x>" 
    text = text & "<z> </z>"   
    text = text & "</Definition>" 

Set Root = objDoc.documentElement 
Set NodeList = Root.getElementsByTagName("sport") 

NodeList.appendChild text 

objDoc.Save strFile 

end function 
' Private strFile, objDoc are class object 

Я хочу, чтобы изменить все вещи динамически. Таким образом, у меня есть функция: DefinitFunction(x,z), который конкатенировать строку и добавляемых <Definition> ---<x> </x> <z> </z> --</Definition> в моем файле сразу после узла <sport> в конце концов, это должен быть мой результат:

<?xml version="1.0" ?> 
<root> 
    <sport> 
    <Definition> 
     ---<x> </x> <z> </z> -- 
     </Definition> 
    </sport> 
</root> 

Это не работает. Есть ли лучший способ сделать это?

Answer 1

Вы не можете добавить текст непосредственно .. вам нужно преобразовать его в XML-узел первый ..

Set newXML = CreateObject("Microsoft.XMLDOM") 
newXML.async = False 
newXML.loadXML("<root>" & text & "</root>") 

NodeList.appendChild(newXML.documentElement.selectSingleNode("/Definition"))