如何向刚创建的node中加入其Attribute??? 急!!!!

[keer]

Set objXML = Server.CreateObject("Microsoft.XMLDOM")
objXML.async = false
objXML.load(server.MapPath("*.xml"))

Set objEntry = objXML.createNode("element", "Database", "")
objXML.documentElement.appendChild(objEntry)

Set objEntry = root.createNode("element", "Database", "")
root.documentElement.appendChild(objEntry)
set a2 = root.createAttribute("name")
a2.Value = "dbname"
objEntry.Attributes.Append(a2) '_______此行出错
set a1 = root.createAttribute("when")
a1.Value = Now
objEntry.Attributes.Append(a1)
set a3 = root.createAttribute("intro")
a3.Value = "dbcontext"
objEntry.Attributes.Append(a3)

objXML.save(server.MapPath("*.xml"))

[keer]

Set objXML = Server.CreateObject("Microsoft.XMLDOM")
objXML.async = false
objXML.load(server.MapPath("*.xml"))

Set objEntry = objXML.createNode("element", "Database", "")
objXML.documentElement.appendChild(objEntry)

set a2 = objEntry.createAttribute("name")
a2.Value = "dbname"
objEntry.Attributes.Append(a2) '_______此行出错
set a1 = objEntry.createAttribute("when")
a1.Value = Now
objEntry.Attributes.Append(a1)
set a3 = objEntry.createAttribute("intro")
a3.Value = "dbcontext"
objEntry.Attributes.Append(a3)

objXML.save(server.MapPath("*.xml"))

为什么错了

[karma]

Attributes does not have an Append method

try
objEntry.attributes.setNamedItem(nodePublishDate);

or simple
objEntry.setAttribute("name","dbname")

[keer]

Microsoft VBScript ҫƷ 펳 error '800a0414'

プӳ̐걲 ĜʹӃ( ż/font>

/xml_db/*.asp, line 36

objEntry.setAttribute("name","dbname")
--------------------------------------^

[karma]

try to remove the (), the following works for me

set xmldoc = CreateObject("MSXML2.DOMDOCUMENT.3.0")
set node = xmldoc.createElement("root")
node.setAttribute "name","dbname"
xmldoc.appendChild node

[keer]

谢了