ResponseHeaders
個別の応答ヘッダーへのアクセスを提供するヘッダー オブジェクト。
構文
HTTPObject.ReponseHeaders
内容:
ResponseHeadersはオブジェクトです (読み取り)
例
このスクリプトは 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,port)
' リクエスト タイプを設定
HTTPobj.GetURL("/")
HTTPobj.verb = "HEAD"
' 自動認証でプロキシを通過
' 認証を 1 に設定
HTTPobj.Authentication = 1
' HEAD リクエストを送信
HTTPResponse = HTTPobj.SendRequest ()
' headers という新規オブジェクトを設定
Set headers = HTTPobj.ResponseHeaders
'HTTPResponse はリターン コードを含む
echo "Result: " + cstr(HTTPResponse) + cr
'想定される http 結果:
'HTTP/1.1 200 OK
'日付: Tue,28Oct200310:23:19GMT
'Content-Length: 1270
'Content-Type: text/html
echo "Server running on " + ip + " is " + headers.HeaderValue("server") + cr
End Function