用 DataFactory 對(duì)象獲得 Recordset
內(nèi)容
用 DataFactory 對(duì)象獲得 Recordset
Remote Data Service 包含服務(wù)器端的業(yè)務(wù)對(duì)象 (ActiveX? DLL)，稱為
RDSServer.DataFactory，可將命令發(fā)送到數(shù)據(jù)源并將結(jié)果通過 Internet 或 Intranet 傳回給用戶。RDSServer.DataFactory 是默認(rèn)的 ActiveX DLL，使用它可以通過少量的編程在 Web 頁面上提供活動(dòng)數(shù)據(jù)。
下面的范例顯示如何從 VBScript Web 頁面調(diào)用 RDSServer.DataFactory 對(duì)象。使用客戶的 RDS.DataSpace 對(duì)象在服務(wù)器上創(chuàng)建 RDSServer.DataFactory 對(duì)象的實(shí)例。
<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>