ResponseHeaders
L’oggetto intestazione che fornisce l’accesso a singole intestazioni di risposta.
Sintassi
HTTPObject.ReponseHeaders
Dove:
ResponseHeadersè un oggetto (lettura)
Esempio
Lo script stamperà il nome del server HTTP:
Function Main
Dim HTTPObj as Object
Dim headers as Object
ip = "www.apache.org"
port = 80
cr = Chr(13) + Chr(10)
Set HTTPobj = HTTP.Connect (ip,port)
'impostazione del tipo di richiesta
HTTPobj.GetURL("/")
HTTPobj.verb = "HEAD"
'passaggio tramite proxy con autenticazione automatica
'l’autenticazione deve essere impostata su 1
HTTPobj.Authentication = 1
'Invio della richiesta HEAD
HTTPResponse = HTTPobj.SendRequest ()
'Impostazione nuove intestazioni chiamate da Object
Set headers = HTTPobj.ResponseHeaders
'HTTPResponse contiene il codice restituito
echo "Risultato: " + cstr(HTTPResponse) + cr
'il risultato http sarà del tipo :
'HTTP/1.1 200 OK
'Data: Mar, 28 ottobre 2003 10:23:19 GMT
'Content-Length: 1270
'Content-Type: text/html
echo "Server in esecuzione su " + ip + " è " + headers.HeaderValue("server") + cr
End Function