In alcuni casi usare i webservices per farsi restituire dati può non essere la strada più comoda, in un sito con tecnologia asp poi non ne parliamo …
Per risolvere questo tipo di problemi normalmente creo una pagina che se eseguita con i parametri giusti mi restituisce i risultati voluti, siano questi dati in formato xml , csv o addirittura frammenti di html che poi elaboro e/o visualizzo.
In questo periodo va tanto di moda ajax per fare il get della pagina ma a me serviva farlo lato server , quindi ho scritto questa funzione che restituisce l’uotput della pagina richiesta.
'----------------------------------------- Function GetURL(sUrl) '----------------------------------------- Dim Http Set Http = Server.CreateObject ( "WinHttp.WinHttpRequest.5.1" ) sUserAgentString = "Mozilla/4.0+(compatible;+MSIE+6.0)" Http.Option(WinHttpRequestOption_UserAgentString)=sUserAgentString Http.Open "GET", sUrl Http.Send If CInt(Http.Status) <> 200 Then GetURL = Http.Status & " " & Http.StatusText & "<br>" & sUrl else GetURL = Http.ResponseText end if
Faccio un esempio, se volessimo visualizzare su una pagina il contenuto dei feed rss di questo blog basterebbe scrivere
<% sUrl = "https://maurizio.mavida.com/?feed=rss2" response.write GetURL( sUrl ) %>