很短很有用的,要谢谢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)
%>