casplib: WinHttp.WinHttpRequest

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 ) 
%>

Leave a Reply

Questo sito usa Akismet per ridurre lo spam. Scopri come i tuoi dati vengono elaborati.