HeaderValue

HeaderValue ruft den Wert des Headers aus dem HTTPHeaders-Objekt ab.

Syntax

HeaderValue (VARIANT index)

Bedeutung der Parameter:

• Index ist eine Zeichenfolge oder ein langer Wert.
• Eine Zeichenfolge wird verwendet, wenn Sie den Wert eines gegebenen Headernamens abrufen möchten (Beispiel: Server). Sie können auch den HeaderValue eines gegebenen Index abrufen. Der gültige Bereich dieses Index liegt zwischen 0 und der Anzahl der Header.

Rückgabewert

Eine Zeichenfolge, die den Wert des Headers enthält.

Beispiel

Dieses Skript gibt den Namen des HTTP-Servers aus:

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)

'Anforderungstyp festlegen

HTTPobj.GetURL("/")

HTTPobj.verb = "HEAD"

'HEAD-Anforderung absenden

HTTPResponse = HTTPobj.SendRequest ()

'Neues Objekt mit der Bezeichnung headers erstellen

Set headers = HTTPobj.ResponseHeaders

'HTTPResponse enthält den Rückgabewert

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

echo "Server unter " + ip + " ist " + headers.HeaderValue("server") + cr

End Function