<%
xmlfile=server.mappath("test1.xml")
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile = fso.CreateTextFile(xmlfile,True)
MyFile.WriteLine("<?xml version=""1.0"" encoding=""gb2312""?>")
MyFile.WriteLine("<names>")
MyFile.WriteLine("<name>a</name>")
MyFile.WriteLine("<name>b</name>")
MyFile.WriteLine("<name>c</name>")
MyFile.WriteLine("<name>d</name>")
MyFile.WriteLine("</names>")
MyFile.Close
%>
lz是这个意思吗?