Ejemplo de la propiedad de dirección URL (VBScript)
Importante
A partir de Windows 8 y Windows Server 2012, los componentes del servidor RDS ya no se incluyen en el sistema operativo Windows (para obtener más información, consulte Windows 8 y la Guía de compatibilidad de Windows Server 2012, edición Cookbook). Los componentes de cliente de RDS se eliminarán en una versión futura de Windows. Evite utilizar esta característica en nuevos trabajos de desarrollo y tenga previsto modificar las aplicaciones que actualmente la utilizan. Las aplicaciones que usan RDS deben migrar al servicio de datos WCF.
En el código siguiente se muestra cómo establecer la propiedad URL en el lado cliente para especificar un archivo .asp que, a su vez, controla el envío de cambios al origen de datos.
<!-- BeginURLClientVBS -->
<%@ Language=VBScript %>
<html>
<head>
<meta name="VI60_DefaultClientScript" content=VBScript>
<meta name="GENERATOR" content="Microsoft Visual Studio 6.0">
<title>URL Property Example (VBScript)</title>
<style>
<!--
body {
font-family: 'Verdana','Arial','Helvetica',sans-serif;
BACKGROUND-COLOR:white;
COLOR:black;
}
.thead {
background-color: #008080;
font-family: 'Verdana','Arial','Helvetica',sans-serif;
font-size: x-small;
color: white;
}
.thead2 {
background-color: #800000;
font-family: 'Verdana','Arial','Helvetica',sans-serif;
font-size: x-small;
color: white;
}
.tbody {
text-align: center;
background-color: #f7efde;
font-family: 'Verdana','Arial','Helvetica',sans-serif;
font-size: x-small;
}
-->
</style>
</head>
<body onload=Getdata()>
<h1>URL Property Example (VBScript)</h1>
<OBJECT classid=clsid:BD96C556-65A3-11D0-983A-00C04FC29E33 height=1 id=ADC width=1>
</OBJECT>
<table datasrc="#ADC" align="center">
<thead>
<tr id="ColHeaders" class="thead2">
<th>FirstName</th>
<th>LastName</th>
<th>Extension</th>
</tr>
</thead>
<tbody class="tbody">
<tr>
<td><input datafld="FirstName" size=15> </td>
<td><input datafld="LastName" size=25> </td>
<td><input datafld="Extension" size=15> </td>
</tr>
</tbody>
</table>
<script Language="VBScript">
Sub Getdata()
ADC.URL = "https://MyServer/URLServerVBS.asp"
ADC.Refresh
End Sub
</script>
</body>
</html>
<!-- EndURLClientVBS -->
El código del lado servidor que existe en URLServerVBS.asp envía el objeto Recordset actualizado al origen de datos.
<!-- BeginURLServerVBS -->
<%@ Language=VBScript %>
<%
' XML output req's
Response.ContentType = "text/xml"
const adPersistXML = 1
' recordset vars
Dim strSQL, rsEmployees
Dim strCnxn, Cnxn
strCnxn = "Provider='sqloledb';Data Source=" & _
Request.ServerVariables("SERVER_NAME") & ";" & _
"Integrated Security='SSPI';Initial Catalog='Northwind';"
Set Cnxn = Server.CreateObject("ADODB.Connection")
Set rsEmployees = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT FirstName, LastName, Extension FROM Employees"
Cnxn.Open strCnxn
rsEmployees.Open strSQL, Cnxn
' output as XML
rsEmployees.Save Response, adPersistXML
' Clean up
rsEmployees.Close
Cnxn.Close
Set rsEmployees = Nothing
Set Cnxn = Nothing
%>
<!-- EndURLServerVBS -->