ASP获取URL链接href标签的值

idcbe.com
function GetHref(strHTML)
   Dim objRegExp
   Set objRegExp = New Regexp
   objRegExp.IgnoreCase = True
   objRegExp.Global = True
   objRegExp.Pattern =   "<a.+?href=""(.+?)""[^\>]*>.+?</a>"
   GetHref = objRegExp.replace(strHTML,"$1")
   Set objRegExp = Nothing
end function

评论: 0 | 引用: 0 | 查看次数: 2017
发表评论
昵 称:
密 码: 游客发言不需要密码.
内 容:
验证码: 验证码
选 项:
虽然发表评论不用注册,但是为了保护您的发言权,建议您注册帐号.
字数限制 50 字 | UBB代码 关闭 | [img]标签 关闭
idcbe.com