asp使用IE浏览器自动化获取网页标题

1. <%
   
2. Dim objIE
   
3. Dim strUrl,html,title
   
4. 
   
5. strUrl="http://bbs.ttasp.com/"
   
6. Set objIE = CreateObject("InternetExplorer.Application")
   
7. With objIE
   
8.         .Visible = True    '
   
9.         .Navigate(strUrl) '导航到所需的网站。
   
10.        
    
11.         Do While .Busy Or .readyState <> 4
    
12.        
    
13.         Loop
    
14.                
    
15.         Do While .Document.ReadyState <> "complete"
    
16.        
    
17.         Loop  
    
18. 
    
19. 
    
20. title=objIE.document.title
    
21. End With
    
22. 
    
23. set objIE = Nothing
    
24. 
    
25. response.Write title
    
26. 
    
27. %>

复制代码

效果：