HeaderValue

HeaderValue recupera il valore dell’intestazione dall’oggetto HTTPHeaders.

Sintassi

HeaderValue (VARIANT indice)

Dove:

• Indice è una stringa o un valore lungo
• Il valore della stringa verrà utilizzato per recuperare un valore, dato il nome di un’intestazione (esempio: Server). HeaderValue può inoltre essere recuperato, se è presente un indice. L’intervallo valido dell’indice è compreso tra 0 e il numero di intestazioni.

Restituisce

Una stringa contenente il valore dell’intestazione.

Esempio

Lo script stamperà il nome del server HTTP:

Function Main

Dim HTTPObj as Object

Dim headers as Object

ip = "www.gfi.org"

port = 80

cr = Chr(13) + Chr(10)

Set HTTPobj = HTTP.Connect (ip,port)

'impostazione del tipo di richiesta

HTTPobj.GetURL("/")

HTTPobj.verb = "HEAD"

'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

echo "Server in esecuzione su " + ip + " è " + headers.HeaderValue("server") + cr

End Function