Count

Restituisce il numero di voci di intestazioni nell’oggetto HTTPHeaders.

Sintassi

HTTPHeadersObject.Count

Dove:

  • Count è Long (read)
Esempio

Lo script stamperà le intestazioni:

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)

'impostazione del tipo di richiesta

HTTPobj.GetURL("/")

HTTPobj.verb = "HEAD"

'Invio della richiesta HEAD

HTTPResponse = HTTPobj.SendRequest ()

'Impostazione nuove intestazioni chiamate da Object

Set headers = HTTPobj.ResponseHeaders

'headers.count contiene il numero di intestazioni (long)

echo "conteggio intestazioni: " & CStr(headers.Count) & cr

upbound = headers.Count - 1

'per ciascuna intestazione, eseguire echo all’inverso per HeaderName e valore Header

For hn=0 To upbound

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

Next

End Function