Das ASP-Beispiel ermittelt anhand von Kundennummer [customer_id] 1234,
Passwort [password] 1234, Postleitzahl [zip] 98716, Staat [state] D
und einer eindeutigen ID [locid] 98716000 alle im Umkreis [radius]
von 20 Kilometer gelegenen PLZ-Ort-Kombinationen. Die Anzahl
der Ergebnisse [limit] wird auf max. 100 und eine Liste von
Postleitzahlen [ziplist] 98716,98693 begrenzt.
Die EbaasTest.dll von ebaas wird benutzt, um die Webservice-Funktionen zu implementieren:
<%@IMPORT Namespace="EbaasTest"%>
<%'import Soap exception handling%>
<%@IMPORT NAMESPACE="System.Web.Services.Protocols"%>
<html>
<head>
<SCRIPT LANGUAGE="VB" RUNAT="server">
SUB Page_Load(sender AS Object, e AS EventArgs)
TRY 'Kein Fehler
'Instanzierung Webservices Distance
DIM myService AS NEW Distance()
'Instanzierung des Eingabe Objektes
DIM param_in AS NEW showRelated_IN()
'Instanzierung des Options Objekt
DIM optionsp AS NEW Options_showRelated()
'Instanzierung der Postleitzahlenliste
DIM ziplistp(1) AS STRING
ziplistp(0) = "98716"
ziplistp(1) = "98639"
'Instanzierung des Ausgabeobjektes als Array
'param_out muss vom Typ showRelated_Out[] sein,
'da der Ausgabe Typ Array_showRelated_OUT auf
'ShowRelated_OUT verweist.
DIM param_out() AS showRelated_OUT
'Maximale Anzahl zurückgelieferter Postleitzahlen
optionsp.limit =100
'Offset der Trefferliste
optionsp.offset =0
'Sortierkriterium(0=Entfernung,1=Postleitzahl,2=Ort)
optionsp.sort =0
'Gibt an welche Postleitzahlen zurück geliefert werden
optionsp.ziplist = ziplistp
'ID eines Ortes in der Datenbank
optionsp.locid ="98716000"
'Passwort nur für den Testzugang notwendig
optionsp.password ="1234"
'Die Kundenidentifikationsnummer
param_in.customer_id =1234
'Postleitzahl
param_in.zip ="98716"
'Suche in einem Umkreis von 20 km
param_in.radius =20
'Land Deutschland
param_in.state ="D"
'Optionen
param_in.options =optionsp
DIM i AS INTEGER
'Adressiert die ebaasDistance_showRelated Methode
'mit dem Übergabe-Parameter $param_in.
param_out = myService.ebaasDistance_showRelated(param_in)
FOR i = 0 TO ubound(param_out,1) STEP 1
Response.Write(param_out(i).zip+" "
+param_out(i).distance+" "+param_out(i).loc1+" "
+param_out(i).loc2+" "+"<br>")
NEXT
'Fängt eine Soap Fehlermeldung ab
CATCH ex AS System.Web.Services.Protocols.SoapException
'Gibt den Fehlertext aus
Response.Write (ex.Message)
'Gibt den Fehlercode aus
Response.Write (ex.code)
END TRY
END SUB
</script>
</head>
<body>
</body>
</html>
Bemerkungen:
Kundennummer (hier 1234) und Bibliothek (hier EbaasTest.dll) bekommen Sie nach Anmeldung zum Testzugang bzw. nach Kauf der Lizenz von uns per Email an die von Ihnen angegebene Adresse übermittelt.
