Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

ASP y WebService

19/06/2004 - 09:51 por Omar del Valle | Informe spam
Ayuda Hacer una pregunta
Hola lista

Necesito saber como comunicar una app en asp con un servicio Web. No tengo
claro usando Post que URL debo poner para referenciar a un método del Web
Service.

Saben si existe algo desarrollado para ASP que permita manipular las
conexiones a Servicios Web sin tener que lidiar con los XML?. Me refiero a
algo como lo que se hace en .NET, donde yo puedo retornar un Dataset y
obtener un Dataset, por ejemplo, sin tener en cuenta el XML.

Salu2
Omar del Valle R.
Ciudad de la Habana - Cuba
Desarrollador Microsoft 3 Estrellas .NET
email Siga el debateRespuesta 4 respuestasRespuesta Tengo una respuesta
DRAGON AGE™: INQUISITION – Matadragones
 

Leer las respuestas

#1 Franco Figún
18/06/2004 - 19:32 | Informe spam
Tenes que usar el XMLHTTP, un ejemplo basico sacado del capitulo 2 del libro
Professional ASP.NET Web Serices con VB.NET::

'global.asa
<SCRIPT LANGUAGE="VBScript" RUNAT="Server">
Option Explicit
Sub Application_OnStart()
Application("ConnectString") = GetAppSettings("ConnectString")
End Sub

Function GetAppSettings(key)
Dim url, xmlhttp, dom, node
url = "http://localhost/PWS/Ch2-3/AppServi...smx/"
url = url & "GetAppSettings?key=" & key
Set xmlhttp = Server.CreateObject("Microsoft.XMLHTTP")
Call xmlhttp.Open("GET", url,False)
Call xmlhttp.send
Set dom = Server.CreateObject("Microsoft.XMLDOM")
dom.Load(xmlhttp.responseBody)
Set node = dom.SelectSingleNode("//string")

If Not node Is Nothing Then
GetAppSettings = node.text
End If
End Function
</SCRIPT>

'TestAppService.asp
<%@ Language = "VBScript" %>
<HTML><HEAD><title></title>
<%
Function GetAppSettings(key)
Dim url, xmlhttp, dom, node
url = "http://localhost/PWS/Ch2-3/AppServi...smx/"
url = url & "GetAppSettings?key=" & key
Set xmlhttp = Server.CreateObject("Microsoft.XMLHTTP")
Call xmlhttp.Open("GET", url,False)
Call xmlhttp.send
Set dom = Server.CreateObject("Microsoft.XMLDOM")
dom.Load(xmlhttp.responseBody)
Set node = dom.SelectSingleNode("//string")
Response.Write(Server.HTMLEncode(xmlhttp.responseText))
If Not node is Nothing Then
GetAppSettings = node.text
End If
End Function
Dim key
Dim value

If Len(Request("Submit1")) > 0 Then
Dim xmlhttp
Dim url
Dim dom

key = Request("key")
value = GetAppSettings(key)
End If
%>
</HEAD><body>
<BR>
Application("ConnectString")= <%=Application("ConnectString") %>
<BR>
<form>
<BR>
<INPUT id="key" type="text" name="key" value="<%=key%>">=<%=value%>
<P>
<INPUT id="Submit1" type="submit" value="GetAppSetting" name="Submit1">
<BR>
</form>
<P>
</body></HTML>





FF
www.francofigun.com.ar
www.microsofties.com.ar
MSN:
UIN: 314408886
Yahoo MSN:
"Omar del Valle" wrote in message
news:uDC$
Mostrar la cita

Preguntas similares

 

Busqueda sugerida :