ResponseHeaders
Header-Objekt, das den Zugriff auf die einzelnen Antwortheader ermöglicht.
Syntax
HTTPObject.ReponseHeaders
Bedeutung der Parameter:
ResponseHeadersist ein Objekt (read).
Beispiel
Dieses Skript gibt den Namen des HTTP-Servers aus:
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,port)
'Anforderungstyp festlegen
HTTPobj.GetURL("/")
HTTPobj.verb = "HEAD"
'Um durch den Proxy mit automatischer Authentifizierung zu gelangen,
'muss die Authentifizierung auf den Wert 1 festgelegt werden.
HTTPobj.Authentication = 1
'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
'Das HTTP-Ergebnis sieht in etwa folgendermaßen aus:
'HTTP/1.1 200 OK
'Datum: Tue, 28 Oct 2003 10:23:19 GMT
‚Länge des Inhalts: 1270
'Inhaltstyp: text/html
echo "Server unter " + ip + " ist " + headers.HeaderValue("server") + cr
End Function