页面导航： 首页 → 网络编程 → ASP编程 → ASP基础 → 正文内容

发布：dxy 字体：[增加 减小] 类型：转载

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

文章评论

共有 位脚本之家网友发表了评论我来说两句