HeaderValue

HeaderValue 用于检索 HTTPHeaders 对象中的标头的值。

语法

HeaderValue (VARIANT index)

其中：

• Index 是字符串或长数据值
• 如果想要检索给定标头名称的值，则应使用字符串值（例如： Server）。 也可以在指定索引的情况下检索 HeaderValue。 该索引的有效范围介于 0 和标头数之间。

返回结果

包含标头值的字符串。

示例

此脚本将打印出 HTTP 服务器的名称：

函数 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)

'设置请求类型

HTTPobj.GetURL("/")

HTTPobj.verb = "HEAD"

'发送 HEAD 请求

HTTPResponse = HTTPobj.SendRequest ()

'设置新的标头对象

Set headers = HTTPobj.ResponseHeaders

'HTTPResponse 包含返回码

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

echo "Server running on " + ip + " is " + headers.HeaderValue("server") + cr

End 函数