用VBScript的Response方法输出的XML文件为何无法使用？

[sandman]

XMLStr=("<?xml version=""1.0"" encoding=""gb2312""?>")
XMLStr = XMLStr & "<links xmlns=""http://tempuri.org/menusub.xsd"">"
XMLStr = XMLStr &" <link 各种参数"
XMLStr = XMLStr &" </link>"
XMLStr = XMLStr & "</links>"
用Response.Write(XMLStr)输出的内容经过检查是无错误的，用FSO生成文件后，该文件不能被正确使用：
Set XMLFileObj=Server.CreateObject("Scripting.FileSystemObject")
Set XMLFilePionter = XMLFileObj.CreateTextFile(Server.MapPath("/MyXML.xml"),True) '创建文件
XMLFilePionter.Write XMLStr
XMLFilePionter.close '释放对象
Set XMLFilePionter = Nothing
Set XMLFileObj= Nothing

分析：由于使用的是XMLFileObj.CreateTextFile方法创建的文件，所以格式为文本格式，而非XML格式，请教：如何正确输出？如果要加（type＝“text/xml”）应该加在哪里？
或者有Set XMLFileObj=Server.CreateObject("MicroSoft.XMLDOM")读写文件的方法也可以提供，只要调试通过立即给分！

[sandman]

谢谢你的回应！
如果要生成以下的代码，该怎么写？
Microsoft.XMLDOM对象创建节点、子节点的方法是什么？
<?xml version="1.0" ?>
<links xmlns="http://tempuri.org/menusub.xsd">
<link ZH="11111" EN="" address="11111.asp" target1="_self">
<submenu ZH="11111_1" EN="" address="11111.asp?id=1" target1="_blank" />
<submenu ZH="11111_2" EN="" address="11111.asp?id=2" target1="_self" />
</link>
<link ZH="22222" EN="" address="22222.asp" target1="_self">
<submenu ZH="22222_1" EN="" address="22222.asp?id=1" target1="_self" />
</link>
</links>

[sandman]

顶起！高人救命啊！

[孟子E章]

<%
XMLStr=("<?xml version=""1.0"" encoding=""gb2312""?>")
XMLStr = XMLStr & "<links xmlns=""http://tempuri.org/menusub.xsd"">"
XMLStr = XMLStr &" <link> 各种参数"
XMLStr = XMLStr &" </link>"
XMLStr = XMLStr & "</links>"

Set XMLFileObj=Server.CreateObject("Scripting.FileSystemObject")
Set XMLFilePionter = XMLFileObj.CreateTextFile(Server.MapPath("MyXML.xml"),True) '创建文件
XMLFilePionter.Write XMLStr
XMLFilePionter.close '释放对象
Set XMLFilePionter = Nothing
Set XMLFileObj= Nothing

Set XmlDom = Server.CreateObject("Microsoft.XMLDOM")
XmlDom.async=False
XmlDom.Load Server.MapPath("MyXML.xml")
Set node = XmlDom.SelectSingleNode("//link")
Response.Write "<li>" & node.Text
node.Text="<li>哈哈哈哈"
Response.Write node.Text
XmlDom.Save Server.MapPath("MyXML.xml")
Set XmlNode = Nothing
%>

[sandman]

自己up!!!