HeaderValue

HeaderValue recupera el valor del encabezado del objeto HTTPHeader.

Sintaxis

HeaderValue (índice de VARIANTES)

Donde:

• Index es una cadena o un valor largo
• El valor de la cadena se utilizará si desea recuperar un valor cuando se da el nombre del encabezado (por ejemplo, Server). HeaderValue también se puede recuperar con un índice dado. El intervalo válido para este índice se encuentra entre 0 y el número de encabezados.

Devolución

Una cadena que contiene el valor del encabezado.

Ejemplo

Este script imprimirá el nombre del servidor 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,puerto)

'Configurar el tipo de solicitud

HTTPobj.GetURL("/")

HTTPobj.verb = "HEAD"

'Enviar la solicitud HEAD

HTTPResponse = HTTPobj.SendRequest ()

'Establecer nuevo objeto llamado encabezados

Set headers = HTTPobj.ResponseHeaders

'HTTPResponse contiene el código de retorno

echo "Result: " + cstr(HTTPResponse) + cr

echo "Server running on " + ip + " is " + headers.HeaderValue("server") + cr

End Function