求救，生成XML的问题。

zhuangyan2004 2006-12-27 04:45:29

要求从数据库中查询N个栏目中N条新闻要求生成以下格式
<?xml version="1.0" encoding="gb2312"?>
<main>
<column columname="第一个栏目名称">
<article>
<title>
<![CDATA[第一条新闻]]>
</title>
<date>
<![CDATA[Tue Nov 07 13:06:32 CST 2006]]>
</date>
<content>
<![CDATA[内容]]>
</content>
</article>
<article>
<title>
<![CDATA[第二条新闻]]>
</title>
<date>
<![CDATA[Tue Nov 07 13:06:32 CST 2006]]>
</date>
<content>
<![CDATA[内容]]>
</content>
</article>
</column>
<column columname="第二个栏目名称">
<article>
<title>
<![CDATA[第三条新闻]]>
</title>
<date>
<![CDATA[Tue Nov 07 13:06:32 CST 2006]]>
</date>
<content>
<![CDATA[内容]]>
</content>
</article>

</column>
</main>
================================================
我是这么做的，建立一个XML文档。temp.xml
<?xml version="1.0" encoding="gb2312"?>
<main>
<column columnid="33201" id="1789">
<article>
<title>
<![CDATA[标题]]>
</title>
<date>
<![CDATA[Tue Nov 07 13:06:32 CST 2006]]>
</date>
<content>
<![CDATA[内容]]>
</content>
</article>
</column>
</main>
=============================
代码是这么写的。
<script language="vbscript">
dim xmlDoc
set xmlDoc=Createobject("msxml2.DOMDocument.4.0")
set reXmlDoc=Createobject("msxml2.DOMDocument.4.0")
strxml="<%=outxml(request.Form("xml"))%>"
xmldoc.async=false
xmldoc.loadxml(strxml)
xmldoc.load("temp.xml")
xmldoc.selectSingleNode("//title").firstChild.nodeValue="新闻标题"
xmldoc.selectSingleNode("//date").firstChild.nodeValue="Tue Nov 07 13:19:41 CTS 2006"
xmldoc.selectSingleNode("//content").firstChild.nodeValue="新闻内容新闻内容"
msgbox xmldoc.xml
</script>
=========================================
可这样我只能生成一个栏目一条新闻的内容，问题是我应该怎样写循环复制这些节点呢。
我不知道怎么生成CDATA的节点，所以选择了从模版里做修改。
我是新手，刚接触XML，请大家指点一下。

...全文