码迷,mamicode.com
首页 > 其他好文 > 详细

自动检查页面链接是否有效

时间:2014-05-16 03:27:15      阅读:260      评论:0      收藏:0      [点我收藏+]

标签:des   class   c   ext   http   int   

 

Function?CheckAllLinkReachable(strBrowser,?strPage,?strURLPattern)
  Dim?blnReachable
  blnReachable?=?True
  Set?bjXML?=?CreateObject("Msxml2.XMLHTTP")
  ‘?Get?all?link?on?the?page
  Set?bjDes?=?Description.Create
  objDes("micclass").Value?=?"Link"
  Set?bjLinkList?=?Browser(strBrowser).Page(strPage).ChildObjects(objDes)
  For?i?=?0?To?objLinkList.Count()?-?1
  ‘?Create?XML?HTTP?Object
  strURL?=?objLinkList(i).GetROProperty("href")
  If?RegExpTest(strURLPattern,?strURL)?Then
  objXML.Open?"POST",?strURL,?false
  objXML.Send
  ‘?????????msgbox?objXML.responseText
  print?(objLinkList(i).GetROProperty("href")?&?"?Ready?State:"?&?objXML.readyState?&?"?Status:?"?&?objXML.status)
  If?objXML.status?<>?"200"?Then
  blnReachable?=?False
  End?If
  objXML.abort()
  End?If
  Next
  Set?bjXML?=?Nothing
  CheckAllLinkReachable?=?blnReachable
End?Function

自动检查页面链接是否有效,布布扣,bubuko.com

自动检查页面链接是否有效

标签:des   class   c   ext   http   int   

原文地址:http://www.cnblogs.com/flycenter/p/3729574.html

(0)
(0)
   
举报
评论 一句话评论(0
登录后才能评论!
© 2014 mamicode.com 版权所有  联系我们:gaon5@hotmail.com
迷上了代码!