热门标签：沈阳电话机器人公司广东语音外呼系统公司沈阳三五防封电销卡长春公司外呼系统中心鄢陵学校如何做地图标注郑州智能外呼电销机器人厂家成都ai外呼系统线路虚拟电话外呼系统云南便宜外呼系统平台% 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 %>
