<
ArrayToxml（dataarray公共功能，记录集，行XmlRoot）
模糊i，节点，RS，j
如果XmlRoot = 然后XmlRoot =XML
集arraytoxml = server.createobject（MSXML2. freethreadeddomdocumentmsxmlversion）
ArrayToxml.appendChild（arraytoxml.createelement（XmlRoot））
如果行= 然后行= 行
我= 0，UBound（dataarray，2）
设置节点= arraytoxml.createnode（1排，）
J = 0
在每个领域的记录集RS。
Node.Attributes.setNamedItem（ArrayToxml.createNode（2，LCase（rs.name），）））。文本= dataarray（j，i）
j = j + 1
下一个
ArrayToxml.documentElement.appendChild（节点）
下一个
端功能
%>