<% Public Function ArrayToxml(DataArray, Recordset, row, xmlroot) Dim i, node, rs, j If xmlroot = "" Then xmlroot = "xml" Set ArrayToxml = Server.CreateObject("msxml2.FreeThreadedDOMDocument"& MsxmlVersion) ArrayToxml.appendChild(ArrayToxml.createElement(xmlroot)) If row = "" Then row = "row" For i = 0 To UBound(DataArray, 2) Set Node = ArrayToxml.createNode(1, row, "") j = 0 For Each rs in Recordset.Fields node.Attributes.setNamedItem(ArrayToxml.createNode(2, LCase(rs.Name), "")).text = DataArray(j, i)& "" j = j + 1 Next ArrayToxml.documentElement.appendChild(Node) Next End Function %>

　　推荐阅读

　　插件下载┊垃圾引用防御补丁（每小时自动换KEY，支持静态页面）

发 布 人: 向导 补 丁 名: 垃圾引用防御补丁 发布时间: 2007-1-4 版 本 号: 第3版 适用版本: PJblog 2.6 原 作 者: 向导 演示地址: http://www.hljsh.com/ 下载地址: http://bbs.pjhome.net/>>>详细阅读

本文标题：ASP常用函数:ArrayToxml

地址：http://www.17bianji.com/kaifa2/ASP/32747.html

 1/2    1