xml问题请教，

[maolz21]

xml文件见此贴中，http://community.csdn.net/Expert/topic/3942/3942889.xml?temp=.6449701
想新添加domains下面domain的一条记录即
添加一条完整的
<domain id="1">
<url>www.xinweisolar.com</url>
<path>xinwei</path>
<isHidden>1</isHidden>
<title>ÐÀΰ̫ÑôÄÜ</title>
<memo>¶¡ÅÊ</memo>
<lastupdate/>
</domain>
但在使用insertBefore时出现问题，还请指点


dim id
Randomize
id=cint((rnd)*(9999-1000+1)+1000)
id=year(now())&","&month(now())&","&day(now())&","&hour(now())&","&minute(now())&","&second(now())&","&id
id=cstr(id)
dim newNode
set newNode=xmlDoc.createNode(1,"domain","")
newNode.setAttribute "id",id

set currNode=xmlDoc.insertBefore(newNode,xmlDoc.documentElement.childNodes.item(1).childNodes.item(0))

[笨笨兔兔兔兔兔]

public function additemblogm(blogtitle,blogcontent,thelink,thefile)
set addroot=thexmldom.createElement("blog")
set root=thexmldom.documentElement
set currnode = root.insertBefore(addroot, root.childNodes(0))
currnode.setAttribute "date",date
currnode.setAttribute "time",time
set blogtitleadd=thexmldom.createElement("blogtitle")
set blogtitled=currnode.appendchild(blogtitleadd)
blogtitled.text=blogtitle
set blogcontentadd=thexmldom.createElement("blogcontent")
set blogcontentd=currnode.appendchild(blogcontentadd)
blogcontentd.text=blogcontent
set bloglinkadd=thexmldom.createElement("link")
set bloglinkd=currnode.appendchild(bloglinkadd)
bloglinkd.text=thelink
set blogcommentadd=thexmldom.createElement("comment")
currnode.appendchild blogcommentadd
thexmldom.save thefile
end function

newNode,xmlDoc.documentElement.childNodes.item(1).childNodes.item(0))------》childnodes(1).childnodes(0),这个是不要item的，insertbefore参考我写的