用 DataFactory 对象获得 Recordset

Remote Data Service 包含服务器端的业务对象 (ActiveX® DLL),称为

RDSServer.DataFactory,可将命令发送到数据源并将结果通过 Internet 或 Intranet 传回给用户。RDSServer.DataFactory 是默认的 ActiveX DLL,使用它可以通过少量的编程在 Web 页面上提供活动数据。

下面的范例显示如何从 VBScript Web 页面调用 RDSServer.DataFactory 对象。使用客户的 RDS.DataSpace 对象在服务器上创建 RDSServer.DataFactory 对象的实例。

<HTML>
<HEAD></HEAD>
<BODY>

<!-- RDS.DataControl -->
<OBJECT classid="clsid:BD96C556-65A3-11D0-983A-00C04FC29E33" ID=ADC1>
</OBJECT>
<!-- RDS.DataSpace -->
<OBJECT ID="ADS1" WIDTH=1 HEIGHT=1
  CLASSID="CLSID:BD96C556-65A3-11D0-983A-00C04FC29E36">
</OBJECT>
.
.
.
<SCRIPT LANGUAGE="VBScript">
Option Explicit
Sub Window_OnLoad()
  Dim ADF1, myRS
  Set ADF1 = ADS1.CreateObject("RDSServer.DataFactory", _
  "http://<%=Request.ServerVariables("SERVER_NAME")%>")
  Set myRS = _
  ADF1.Query("DSN=pubs;UID=sa;PWD=permission;", _
  "Select * From Authors")
  ' Assign the returned recordset to SourceRecordset.
  ADC1.SourceRecordset = myRS
End Sub
</SCRIPT>
</BODY>
</HTML>