急，请教下面的代码如何使用ASP往XML里写入数据！

<?xml version="1.0" encoding="gb2312"?>
<xml>
<mains>
<id>1</id>
<Background_Image>ok.jpg</Background_Image>
<Background_Color>#000000</Background_Color>
</mains>
</xml>

先谢谢！！！
只含有一及子元素<mains>，我见过的都是含有两极的。ASP应该如何写呢？？ID要累加？？

<%
url="http://.../xml_hire.asp"
set objSrvHTTP =server.createobject("MSXML2.XMLHTTP")
objSrvHTTP.open "get",url, false
objSrvHTTP.setRequestHeader "Content-Type", "text/xml"
objSrvHTTP.send ()

Set objXML = Server.CreateObject("MSXML2.DOMDocument")
loadResult=objXML.load(objSrvHTTP.responseXML)
Set fso=Server.CreateObject("Scripting.fileSystemObject")
Set XmlTxt=fso.CreateTextFile(Server.MapPath("hire.xml"),True)

XmlTxt.WriteLine "<?xml version=""1.0"" encoding=""GB2312""?>"
XmlTxt.WriteLine "<HouseHireInfo>"

Set objNodes = objXML.getElementsByTagName("HouseHireInfo/HouseItem")
k = objNodes.length
For i =0 To k-1

            '======== 取出XML节点值 =======
            arrTemp = objNodes.Item(i).getAttribute("id")            'ID
            arrTemp0 = objNodes.Item(i).childNodes.Item(0).Text        '城区
            arrTemp1 = objNodes.Item(i).childNodes.Item(1).Text     '地址
            arrTemp2 = objNodes.Item(i).childNodes.Item(2).Text     '户型
            arrTemp3 = objNodes.Item(i).childNodes.Item(3).Text        '最小面积
            arrTemp4 = objNodes.Item(i).childNodes.Item(4).Text        '最大面积
            arrTemp5 = objNodes.Item(i).childNodes.Item(5).Text        '最低价
            arrTemp6 = objNodes.Item(i).childNodes.Item(6).Text        '最高价
            arrTemp7 = objNodes.Item(i).childNodes.Item(7).Text        '联系电话
            arrTemp8 = objNodes.Item(i).childNodes.Item(8).Text        '联系人
            arrTemp9 = objNodes.Item(i).childNodes.Item(9).Text        'Email
            arrTemp10= objNodes.Item(i).childNodes.Item(10).Text    '发布日期
            arrTemp11= objNodes.Item(i).childNodes.Item(11).Text    '中介
            arrTemp12= objNodes.Item(i).childNodes.Item(12).Text    '信息代码

            '======= 生成XML文档 =======
            XmlTxt.WriteLine "<HouseItem id="""&arrTemp&""">"
            XmlTxt.WriteLine "<AREA>"&arrTemp0&"</AREA>"
            XmlTxt.WriteLine "<ADDRESS>"&arrTemp1&"</ADDRESS>"
            XmlTxt.WriteLine "<HOUSEMODEL>"&arrTemp2&"</HOUSEMODEL>"
            XmlTxt.WriteLine "<MIN_AREA>"&arrTemp3&"</MIN_AREA>"
            XmlTxt.WriteLine "<MAX_AREA>"&arrTemp4&"</MAX_AREA>"
            XmlTxt.WriteLine "<MIN_PRICE>"&arrTemp5&"</MIN_PRICE>"
            XmlTxt.WriteLine "<MAX_PRICE>"&arrTemp6&"</MAX_PRICE>"
            XmlTxt.WriteLine "<TEL>"&arrTemp7&"</TEL>"
            XmlTxt.WriteLine "<CONNECTOR>"&arrTemp8&"</CONNECTOR>"
            XmlTxt.WriteLine "<EMAIL>"&arrTemp9&"</EMAIL>"
            XmlTxt.WriteLine "<SUBDATE>"&arrTemp10&"</SUBDATE>"
            XmlTxt.WriteLine "<AGENCY_ID>"&arrTemp11&"</AGENCY_ID>"
            XmlTxt.WriteLine "<INFOCODE>"&arrTemp12&"</INFOCODE>"
            XmlTxt.WriteLine "</HouseItem>"
next

XmlTxt.WriteLine "</HouseHireInfo>"

XmlTxt.Close

set XmlTxt=nothing
set objXML=nothing
set fso=nothing
%>

FSO就是直接当作文本写入咯。。。

用DOM方法好，FSO太累了。DOM有插入，删除等，使用方法，学习一下XML的DOM