HeaderName

HeaderName ruft den Namen des Headers aus dem HTTPHeader-Objekt ab.

Syntax

HeaderName (LONG index)

Der gültige Bereich des Index liegt zwischen 0 und der Anzahl der Header.

Rückgabewert

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

Beispiel

Dieses Skript gibt die Header aus:

Function Main

Dim HTTPObj as Object

Dim headers as Object

ip = "www.gfi.com"

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

'headers.count enthält die Anzahl der Header (long)

echo "Anzahl der Header: " & CStr(headers.Count) & cr

upbound = headers.Count - 1

'Für jeden Header HeaderName und HeaderValue ausgeben

For hn=0 To upbound

echo headers.HeaderName(hn) & vbTab & "-->" & vbtab & headers.HeaderValue(hn) & cr

Next

End Function