如何使用httpxmlrequest获取页面标题

Question

是否可以使用XMLHTTP对象获取页面标题？

function getTitle(url)
Dim objRequest

Set objRequest = CreateObject("Msxml2.ServerXMLHTTP.3.0")
objRequest.open "GET", url , false
objRequest.Send

'getMsg = objRequest.status
'getMsg = objRequest.ResponseText

end function

我尝试了objRequest.title但没有效果。

更新

试过这个 - 可能不是失败证明 - 现在有用：

f = objRequest.ResponseText
loc = Instr(f,"<title>")
loc2= Instr(f,"</title>")
getTitle = Mid(f,loc+7,loc2-loc-7)

Answer 1

您必须将结果插入DOM才能在HTML中识别内容。然后你必须向DOM询问页面的标题。

从XHR回来的只是一团文字，直到你用它做什么。