ResponseHeaders
Objeto de encabezados que brinda acceso a encabezados de respuestas individuales.
Sintaxis
HTTPObject.ReponseHeaders
Donde:
ResponseHeaders
es un objeto (lectura)
Ejemplo
Este script imprimirá el nombre del servidor 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,puerto)
'Configurar el tipo de solicitud
HTTPobj.GetURL("/")
HTTPobj.verb = "HEAD"
'para pasar a través del proxy con autenticación automática
'La autenticación se debe fijar en “1”
HTTPobj.Authentication = 1
'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
'el resultado HTTP tendrá tendrá un aspecto similar al siguiente:
'HTTP/1.1 200 OK
'Fecha: martes 28 de octubre de 2003 10:23:19 GMT
'Extensión de contenido: 1270
'Tipo de contenido: texto/html
echo "Server running on " + ip + " is " + headers.HeaderValue("server") + cr
End Function