Server 属性范例

下列代码说明如何在设计时设置 RDS.DataControl 参数并使用称为 ADCDemo 的 ODBC 系统数据源将其绑定在数据识别控件上。依照指示,ADCDemo 将作为一个 SQL Server ODBC 系统数据源安装在服务器上。请剪切该代码并粘贴到标准 HTML 文档的 <Body></Body> 标记之间,然后将其命名为“ADCapi1.asp”。ASP 脚本将标识服务器。

<Center><H2>RDS API Code Examples </H2>

<HR><BR>

<H3>Remote Data Service</H3>

<Object CLASSID="clsid:AC05DC80-7DF1-11d0-839E-00A024A94B3A"

   CODEBASE="http://<%=Request.ServerVariables("SERVER_NAME")%>/MSADC/Samples/Sheridan.cab"

   ID=GRID1

      datasrc=#ADC

      HEIGHT=125

      WIDTH=495>

   <PARAM NAME="AllowAddNew" VALUE="TRUE">

   <PARAM NAME="AllowDelete" VALUE="TRUE">

   <PARAM NAME="AllowUpdate" VALUE="TRUE">

</OBJECT>

<!-- 参数在设计时设置的远程数据服务 -->

<OBJECT classid="clsid:BD96C556-65A3-11D0-983A-00C04FC29E33"

   ID=ADC>

   <PARAM NAME="SQL" VALUE="Select * from Employee for browse">

   <PARAM NAME="SERVER" VALUE="http://<%=Request.ServerVariables("SERVER_NAME")%>">

   <PARAM NAME="CONNECT" VALUE="dsn=ADCDemo;UID=ADCDemo;PWD=ADCDemo;">

</OBJECT><BR><HR></Center>

以下的范例说明如何在运行时设置 RDS.DataControl 所必需的参数。要测试该范例,请剪切该代码并粘贴到标准 HTML 文档的 <Body></Body> 标记之间,然后将其命名为 “ADCapi4.asp”。ASP 脚本将标识服务器。

<Center><H2>RDS API Code Examples </H2>

<HR><H3>Remote Data Service Server Property Set at Run Time</H3>

<!-- 在设计时没有设置参数的 RDS.DataControl -->

<OBJECT classid="clsid:BD96C556-65A3-11D0-983A-00C04FC29E33"

   ID=ADC>

</OBJECT>

<Object CLASSID="clsid:AC05DC80-7DF1-11d0-839E-00A024A94B3A"

   CODEBASE="http://<%=Request.ServerVariables("SERVER_NAME")%>/MSADC/Samples/Sheridan.cab"

   ID=GRID1

      datasrc=#ADC

      HEIGHT=125

      WIDTH=495>

   <PARAM NAME="AllowAddNew" VALUE="TRUE">

   <PARAM NAME="AllowDelete" VALUE="TRUE">

   <PARAM NAME="AllowUpdate" VALUE="TRUE">

   <PARAM NAME="Caption" VALUE="Remote Data Service Run Time">

</OBJECT><HR>

<Input Size=70 Name="txtServer"><BR>

<Input Size=70 Name="txtConnect" Value="dsn=ADCDemo;UID=ADCDemo;PWD=ADCDemo;">

<BR>

<Input Size=70 Name="txtSQL" Value="Select * from Employee">

<HR>

<INPUT TYPE=BUTTON NAME="Run" VALUE="Run"><BR>

<H4>Fill top text box with your Web server name in the form http://Myserver</H4>

</Center>

<Script Language="VBScript">

<!--

' 在运行时设置 RDS.DataControl 的参数。

Sub Run_OnClick

   ADC.Server = txtServer.Value

   ADC.SQL = txtSQL.Value

   ADC.Connect = txtConnect.Value

   ADC.Refresh

End Sub

-->

</Script>