用 DataFactory 对象获得 Recordset
内容
用 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>