<% 
  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是这个意思吗?