xmldso.RecordSet.MoveNext

End Sub

3．与Script语言相结合

有些用户比较习惯编写Script语言，利用DSO技术同样可以与各种Script很好地结合在一起。

例如（以VB Script为例），访问记录集时，代码如下:

Dim rsBooks

Set rsBooks = xmldso.RecordSet

访问字段（子元素）的值：

Dim sTitle

sTitle = rsBooks(“title”)

可以使用innerText和innerHTML属性把得到的值传递给HTML元素。例如，有一个DIV元素名为divTitle，赋值代码如下所示：

divTitle.innerTEXT = sTitle

利用脚本程序还可以处理许多DSO事件，下表列举了其中的一部分事件：

在脚本中处理各种事件的方法就是在<SCRIPT>标签中使用FOR属性指定XML数据岛ID，使用EVENT属性确定事件类型。

例如，获取记录集中条目的个数：

<SCRIPT Language=“VB Script” FOR=“xmldso” EVENT=“onDataAvailable

上一页  [1] [2] [3] [4] [5] 下一页