如何使用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哪个没有用。

UPDATE

试过这里面 - 可能不是防故障 - 适用于现在：

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回来的东西只是一个文本，直到你做了一些事情。