佳木斯湛栽影视文化发展公司
主頁 > 知識庫 > ASP常用函數(shù):ArrayToxml

ASP常用函數(shù):ArrayToxml
熱門標(biāo)簽：阿里云 Mysql連接數(shù)設(shè)置 銀行業(yè)務(wù) 團購網(wǎng)站 電子圍欄 服務(wù)器配置 Linux服務(wù)器 科大訊飛語音識別系統(tǒng)
%
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
%>

標(biāo)簽：衢州 棗莊 蚌埠 大理 萍鄉(xiāng) 廣元 江蘇 衡水

巨人網(wǎng)絡(luò)通訊聲明：本文標(biāo)題《ASP常用函數(shù):ArrayToxml》，本文關(guān)鍵詞  ；如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問題，煩請?zhí)峁┫嚓P(guān)信息告之我們，我們將及時溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò)，涉及言論、版權(quán)與本站無關(guān)。
  • 相關(guān)文章
  • 收縮
    • 微信客服
    • 微信二維碼

    • 電話咨詢

    • 400-1100-266
    兴宁市| 惠东县| 玉林市| 黄山市| 西充县| 河北区| 沧源| 大宁县| 舟山市| 房产| 信阳市| 河源市| 阿克陶县| 阿拉尔市| 泾川县| 水富县| 汉寿县| 资兴市| 镇雄县| 文水县| 阿巴嘎旗| 安宁市| 江源县| 宝丰县| 疏附县| 华蓥市| 井研县| 昆明市| 黄梅县| 会宁县| 公主岭市| 通化县| 石台县| 宕昌县| 大化| 通渭县| 南康市| 兴安盟| 桂林市| 河津市| 新郑市|