Cancel 方法示例 (VBScript)
重要
从 Windows 8 和 Windows Server 2012 开始,RDS 服务器组件不再包含在 Windows 操作系统中(有关详细信息,请参阅 Windows 8 和 Windows Server 2012 兼容性指南)。 RDS 客户端组件将在将来的 Windows 版本中删除。 避免在新开发工作中使用此功能,并计划修改当前使用此功能的应用程序。 使用 RDS 的应用程序应迁移到 WCF 数据服务。
以下示例演示如何在运行时读取 Cancel 方法。 将以下代码剪切并粘贴到记事本或其他文本编辑器中,并将其另存为CancelVBS.asp。 可以在任何客户端浏览器中查看结果。
<!-- BeginCancelVBS -->
<Script Language="VBScript">
<!--
Sub cmdCancelAsync_OnClick
' Terminates currently running AsyncExecute,
' ReadyState property set to adcReadyStateLoaded,
' Recordset set to Nothing
ADC.Cancel
End Sub
Sub cmdRefreshTable_OnClick
ADC.Refresh
End Sub
-->
</Script>
<OBJECT CLASSID="clsid:BD96C556-65A3-11D0-983A-00C04FC29E33" ID="ADC">
.
<PARAM NAME="SQL" VALUE="Select FirstName, LastName from Employees">
<PARAM NAME="CONNECT" VALUE="Provider='sqloledb';Integrated Security='SSPI';Initial Catalog='Northwind'">
<PARAM NAME="Server" VALUE="https://<%=Request.ServerVariables("SERVER_NAME")%>">
.
</OBJECT>
<TABLE DATASRC=#ADC>
<TBODY>
<TR>
<TD><SPAN DATAFLD="FirstName"></SPAN></TD>
<TD><SPAN DATAFLD="LastName"></SPAN></TD>
</TR>
</TBODY>
</TABLE>
<FORM>
<INPUT type="button" value="Refresh" id=cmdRefreshTable name=cmdRefreshTable>
<INPUT type="button" value="Cancel" id=cmdCancelAsync name=cmdCancelAsync>
</FORM>
<!-- EndCancelVBS -->