用asp写xml的一个小例子

原创于 2007-09-24 12:13:00 发布 · 1.2k 阅读

2 ·

CC 4.0 BY-SA版权

文章标签：

#xml #asp #encoding #each #qq

本文介绍了一段使用ASP从数据库中读取数据并将其转换为XML文件的代码。该过程涉及创建XMLDOM对象、处理指令、元素节点等步骤，并通过ADO记录集获取数据，最后将数据写入XML文件。

很短很有用的，要谢谢QQ群里的兄弟帮助，让我得到这段代码

<%
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)
%>