2013-01-07 25 views
0

是否可以使用XMLHTTP對象獲取頁面的標題?如何使用httpxmlrequest獲取頁面的標題

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) 

回答

0

你不得不結果插入到DOM,以便將識別出的內容在HTML。然後你不得不問DOM的網頁標題。

從XHR回來的東西只是一個文本,直到你做了一些事情。