用asp写xml的一个小例子

很短很有用的，要谢谢QQ群里的兄弟帮助，让我得到这段代码
<!--#include virtual=/include connss.asp-->
<%
Dim   xmldoc  
Set   xmldoc = server.CreateObject("Microsoft.XMLDOM")  

Dim version  
Set version = xmldoc.createProcessingInstruction("xml"," version='1.0' encoding='GB2312'")

xmldoc.appendChild(version)

Dim root
Set root =  xmldoc.CreateNode("element","root","")
xmldoc.appendChild(root)
set rs=server.CreateObject("ADODB.RecordSet")
rs.Open "select * from tablename",conn,1,1
rs.MoveFirst
while (Not rs.EOF)  
Set   childNode   =   xmldoc.CreateNode("element","houseinfo","")
root.appendChild(childNode)
  For   Each   f   in   rs.Fields  
  Set   childnextNode   =   xmldoc.CreateNode("element",f.name,"")  
  childnextNode.Text   =   f.Value  
  childNode.appendChild(childnextNode)  
  Next
  rs.Movenext
  wend
  xmldoc.save(Server.Mappath("xmldoc.xml"))
  Response.Write(xmldoc.xml) 
%>