欢迎您访问程序员文章站本站旨在为大家提供分享程序员计算机编程知识!
您现在的位置是: 首页  >  IT编程

ASP常用函数:ArrayToxml

程序员文章站 2023-12-04 18:14:58
<% public function arraytoxml(dataarray, recordset, row, x...
<%
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
%>