服务器之家:专注于服务器技术及软件下载分享
分类导航

PHP教程|ASP.NET教程|JAVA教程|ASP教程|

服务器之家 - 编程语言 - ASP教程 - ASP常用函数:ArrayToxml

ASP常用函数:ArrayToxml

2019-10-24 11:26asp技术网 ASP教程

ASP常用函数:ArrayToxml

  1. <%  
  2. Public Function ArrayToxml(DataArray, Recordset, row, xmlroot)  
  3.     Dim i, node, rs, j  
  4.     If xmlroot = "" Then xmlroot = "xml"  
  5.     Set ArrayToxml = Server.CreateObject("msxml2.FreeThreadedDOMDocument"& MsxmlVersion)  
  6.     ArrayToxml.appendChild(ArrayToxml.createElement(xmlroot))  
  7.     If row = "" Then row = "row"  
  8.     For i = 0 To UBound(DataArray, 2)  
  9.         Set Node = ArrayToxml.createNode(1, row, "")  
  10.         j = 0  
  11.         For Each rs in Recordset.Fields  
  12.             node.Attributes.setNamedItem(ArrayToxml.createNode(2, LCase(rs.Name), "")).text = DataArray(j, i)& ""  
  13.             j = j + 1  
  14.         Next  
  15.         ArrayToxml.documentElement.appendChild(Node)  
  16.     Next  
  17. End Function  
  18. %>  

延伸 · 阅读

精彩推荐