URL-Eigenschaft – Beispiel (VBScript)
Wichtig
Ab Windows 8 und Windows Server 2012 sind RDS-Serverkomponenten nicht mehr im Windows-Betriebssystem enthalten (weitere Informationen finden Sie in den jeweiligen Kompatibilitäts-Cookbooks zu Windows 8 und Windows Server 2012). RDS-Clientkomponenten werden in einer zukünftigen Version von Windows entfernt. Nutzen Sie diese Funktionen bei Neuentwicklungen nicht mehr, und planen Sie die Änderung von Anwendungen, die diese Funktion zurzeit verwenden. Anwendungen, die RDS verwenden, sollten zu WCF Data Service migriert werden.
Der folgende Code veranschaulicht, wie die URL-Eigenschaft auf der Clientseite festgelegt wird, um eine ASP-Datei anzugeben, die wiederum die Übermittlung von Änderungen an der Datenquelle behandelt.
<!-- 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 -->
Der serverseitige Code, der in URLServerVBS.asp vorhanden ist, sendet das aktualisierte Recordset an die Datenquelle.
<!-- 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 -->