繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP > ASP常用函数:ArrayToxml
- ASP
- 用EasyMailObject组件处理Exchange邮件源代码(6)
- 用EasyMailObject组件处理Exchange邮件源代码(7)
- 利用ASP和Access数据库制作局域网网上答题系统
- 用ASP开发试题库与在线考试系统(1)
- 用ASP开发试题库与在线考试系统(2)
- 用ASP开发试题库与在线考试系统(3)
- 用ASP开发试题库与在线考试系统(4)
- 用ASP开发试题库与在线考试系统(5)
- 用ASP开发试题库与在线考试系统(6)
- 用ASP开发试题库与在线考试系统(7)
- 用ASP开发试题库与在线考试系统(8)
- 综合的判断用户输入的合法性的函数
- 三层动态下拉菜单的例子
- 将你的网站设置为客户的信任站点--VB方案
- 论坛中有新贴子功能的实现
- ASP 编程中 15 个非常有用的例子
- 一个的无组件上传的ASP代码
- 利用ASP实现三个强大功能之一
- 利用ASP实现三个强大功能之二
- 利用ASP实现三个强大功能之三
ASP常用函数:ArrayToxml
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-09-13 浏览: 95 ::
收藏到网摘: n/a
<%
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
%>
评论 (0) All
