所属类别：开发技术

文章作者：shijiesj

特别推荐：免费发布信息 承包关键词~~抢爆了！^HOT!

版权声明：原创作品，允许转载，转载时请务必以超链接形式标明文章 原始出处 、作者信息和本声明。否则将追究法律责任。http://shijie.blog.51cto.com/116032/116646<!--#include file="conn.asp"--><%strC = "<?xml version=""1.0"" encoding=""utf-8""?> " & vbcrlfstrC = strC&" " & vbcrlfset rs = server.CreateObject("adodb.recordset")set rs1 = server.CreateObject("adodb.recordset")sql = "select anclassid,anclass from bsort order by anclassidorder"rs.open sql,conn,1,1do while not rs.eofstrC = strC&""& vbcrlfsql1 = "select nclassid,nclass from ssort where anclassid = "&rs(0)&" order by nclassidorder"rs1.open sql1,conn,1,1do while not rs1.eofstrC = strC&""&rs1(1)&" "& vbcrlfrs1.movenextlooprs1.closestrC = strC&""& vbcrlfrs.movenextlooprs.closestrC = strC&" " & vbcrlfcall saveXml(strC,"111111.xml")Function saveXml(Text,FileName)dim xmldoc,pathset xmldoc= server.CreateObject("MSXML.DOMDocument")path = Server.MapPath(FileName)xmldoc.LoadXML(Text)xmldoc.save(path)set xmldoc= nothingEnd Function%>最近正在搞这个项目，查了些资料，并得到了csdn网友的帮助，现源代码举例如上希望对大家有帮助。本文出自 “shijiesj” 博客，请务必保留此出处http://shijie.blog.51cto.com/116032/116646本文出自 51CTO.COM技术博客

....