XML和ASP [英] XML and ASP
问题描述
如何将子节点添加到XML节点" ItemID"在下面？
感谢您的帮助。
Dim oDOM：设置oDOM = Server.CreateObject（" MSXML2.DOMDocument.3.0"）
oDOM.LoadXML"< rss version ="" 2.0"">< / rss>"
AddElem oDOM.documentElement，" ItemID"， " 15314"
函数AddElem（roParent，rsName，rvntValue）
设置AddElem = roParent.ownerDocument.createElement（rsName）
roParent.appendChild AddElem
如果不是IsNull（rvntValue）AddElem.Text = rvntValue
结束函数
< vu ****** @ gmail.comwrote in message
news：11 ****** ****************@n15g2000prd.googlegr oups.com ...
如何添加子节点到XML节点ItemID在下面？
感谢您的帮助。
Dim oDOM：设置oDOM = Server.CreateObject（" MSXML2.DOMDocument.3.0"）
oDOM.LoadXML"< rss version ="" 2.0"">< / rss>"
AddElem oDOM.documentElement，" ItemID"， " 15314"
函数AddElem（roParent，rsName，rvntValue）
设置AddElem = roParent.ownerDocument.createElement（rsName）
roParent.appendChild AddElem
如果不是IsNull（rvntValue）AddElem.Text = rvntValue
结束功能
Dim oItem
Set oItem = AddElem（oDOM.documentElement，" ItemID"，" 15314"）
AddElem oItem，" subID"， AB
这将创建XML： -
< rss version =" 2.0">
< ItemID> 15314< subID> AB< / subID>< / itemID>
< / rss>
6月12日凌晨3:26，Anthony Jones < A ... @ yadayadayada.comwrote：
< vunet ... @ gmail.comwrote in message
新闻：11 ********************** @ n15g2000prd.googlegr oups.com ......
如何将子节点添加到XML节点ItemID？以下？
感谢您的帮助。
Dim oDOM：设置oDOM = Server.CreateObject（" MSXML2.DOMDocument.3.0"）
oDOM。 LoadXML"< rss version ="" 2.0"">< / rss>"
AddElem oDOM.documentElement，" ItemID"，" 15314"
函数AddElem（roParent，rsName，rvntValue）
设置AddElem = roParent.ownerDocument.createElement（rsName）
roParent.appendChild AddElem
如果不是IsNull（rvntValue）AddElem.Text = rvntValue
结束函数
Dim oItem
Set oItem = AddElem（oDOM.documentElement，" ItemID"，" 15314"）
AddElem oItem，" ; subID"，" AB"
这将创建XML： -
< rss version =" 2.0"> ;
< ItemID> 15314< subID> AB< / subID>< / itemID>
< / rss>
谢谢。但如何将新子项附加到subID？
< vu ****** @ gmail.comwrote in消息
news：11 ********************** @ e9g2000prf.googlegro ups.com ...
6月12日凌晨3:26，Anthony Jones < A ... @ yadayadayada.comwrote：
< vunet ... @ gmail.comwrote in message
新闻：11 ********************** @ n15g2000prd.googlegr oups.com ......
如何将子节点添加到XML节点ItemID？以下？
感谢您的帮助。
Dim oDOM：设置oDOM = Server.CreateObject（" MSXML2.DOMDocument.3.0"）
oDOM。 LoadXML"< rss version ="" 2.0"">< / rss>"
AddElem oDOM.documentElement，" ItemID"，" 15314"
函数AddElem（roParent，rsName，rvntValue）
设置AddElem = roParent.ownerDocument.createElement（rsName）
roParent.appendChild AddElem
如果不是IsNull（rvntValue）AddElem.Text = rvntValue
结束函数
Dim oItem
Set oItem = AddElem（oDOM.documentElement，" ItemID"，" 15314"）
AddElem oItem，" ; subID"，" AB"
这将创建XML： -
< rss version =" 2.0"> ;
< ItemID> 15314< subID> AB< / subID>< / itemID>
< / rss>
谢谢。但如何将新子项附加到subID？
Dim oItem，oSubItem
设置oItem = AddElem（oDOM.documentElement， ItemID，15314）
设置oSubItem = AddElem（oItem，subID"，Null）
AddElem oSubItem，" subsub"，"东西
创建： -
< rss version =" 2.0">
< ; ItemID> 15314< subID>< subsub> Stuff< / subsub>< / subID>< / itemID>
< / rss>
>
How can I add a child node to XML node "ItemID" below?
Thanks for assistance.
Dim oDOM : Set oDOM = Server.CreateObject("MSXML2.DOMDocument.3.0")
oDOM.LoadXML "<rss version=""2.0""></rss>"
AddElem oDOM.documentElement, "ItemID", "15314"
Function AddElem(roParent, rsName, rvntValue)
Set AddElem = roParent.ownerDocument.createElement(rsName)
roParent.appendChild AddElem
If Not IsNull(rvntValue) AddElem.Text = rvntValue
End Function
<vu******@gmail.comwrote in message
news:11**********************@n15g2000prd.googlegr oups.com...How can I add a child node to XML node "ItemID" below?
Thanks for assistance.
Dim oDOM : Set oDOM = Server.CreateObject("MSXML2.DOMDocument.3.0")
oDOM.LoadXML "<rss version=""2.0""></rss>"
AddElem oDOM.documentElement, "ItemID", "15314"
Function AddElem(roParent, rsName, rvntValue)
Set AddElem = roParent.ownerDocument.createElement(rsName)
roParent.appendChild AddElem
If Not IsNull(rvntValue) AddElem.Text = rvntValue
End Function
Dim oItem
Set oItem = AddElem(oDOM.documentElement, "ItemID", "15314")
AddElem oItem, "subID", "AB"
This would create the XML:-
<rss version="2.0">
<ItemID>15314<subID>AB</subID></itemID>
</rss>
On Jun 12, 3:26 am, "Anthony Jones" <A...@yadayadayada.comwrote:<vunet...@gmail.comwrote in message
news:11**********************@n15g2000prd.googlegr oups.com...
How can I add a child node to XML node "ItemID" below?
Thanks for assistance.
Dim oDOM : Set oDOM = Server.CreateObject("MSXML2.DOMDocument.3.0")
oDOM.LoadXML "<rss version=""2.0""></rss>"
AddElem oDOM.documentElement, "ItemID", "15314"
Function AddElem(roParent, rsName, rvntValue)
Set AddElem = roParent.ownerDocument.createElement(rsName)
roParent.appendChild AddElem
If Not IsNull(rvntValue) AddElem.Text = rvntValue
End Function
Dim oItem
Set oItem = AddElem(oDOM.documentElement, "ItemID", "15314")
AddElem oItem, "subID", "AB"
This would create the XML:-
<rss version="2.0">
<ItemID>15314<subID>AB</subID></itemID>
</rss>thank you. but how to append new child to subID?
<vu******@gmail.comwrote in message
news:11**********************@e9g2000prf.googlegro ups.com...On Jun 12, 3:26 am, "Anthony Jones" <A...@yadayadayada.comwrote:<vunet...@gmail.comwrote in message
news:11**********************@n15g2000prd.googlegr oups.com...
How can I add a child node to XML node "ItemID" below?
Thanks for assistance.
Dim oDOM : Set oDOM = Server.CreateObject("MSXML2.DOMDocument.3.0")
oDOM.LoadXML "<rss version=""2.0""></rss>"
AddElem oDOM.documentElement, "ItemID", "15314"
Function AddElem(roParent, rsName, rvntValue)
Set AddElem = roParent.ownerDocument.createElement(rsName)
roParent.appendChild AddElem
If Not IsNull(rvntValue) AddElem.Text = rvntValue
End FunctionDim oItem
Set oItem = AddElem(oDOM.documentElement, "ItemID", "15314")
AddElem oItem, "subID", "AB"
This would create the XML:-
<rss version="2.0">
<ItemID>15314<subID>AB</subID></itemID>
</rss>
thank you. but how to append new child to subID?
Dim oItem, oSubItem
Set oItem = AddElem(oDOM.documentElement, "ItemID", "15314")
Set oSubItem = AddElem(oItem, "subID", Null)
AddElem oSubItem, "subsub", "Stuff"
Creates:-
<rss version="2.0">
<ItemID>15314<subID><subsub>Stuff</subsub></subID></itemID>
</rss>
这篇关于XML和ASP的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！
