ASP获取URL链接href标签的值

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

文章来自: 网络
引用通告: 查看所有引用 | 我要引用此文章
Tags: ASPASP 链接链接 hrefhref 标签标签 URLURL