查看: 396|回复: 0

[文章教程] asp使用IE浏览器自动化获取网页标题

[复制链接]
xuanxiao 发表于 2022-5-27 15:00:04 | 显示全部楼层 |阅读模式
  1. <%
  2. Dim objIE
  3. Dim strUrl,html,title

  4. strUrl="http://bbs.ttasp.com/"
  5. Set objIE = CreateObject("InternetExplorer.Application")
  6. With objIE
  7.         .Visible = True    '
  8.         .Navigate(strUrl) '导航到所需的网站。
  9.        
  10.         Do While .Busy Or .readyState <> 4
  11.        
  12.         Loop
  13.                
  14.         Do While .Document.ReadyState <> "complete"
  15.        
  16.         Loop  


  17. title=objIE.document.title
  18. End With

  19. set objIE = Nothing

  20. response.Write title

  21. %>
复制代码


效果:
1.JPG
您需要登录后才可以回帖 登录 | 注册

本版积分规则

快速回复 返回顶部 返回列表

在线客服

售前咨询
售后咨询
服务热线
023-58418553
微信公众号