asp 正则取href标签的值

function urlcontent(strHTML)
  Set objRegExp = New Regexp
  objRegExp.IgnoreCase = True
  objRegExp.Global = True
  objRegExp.Pattern =  "]*>.+?"
  urlcontent=objRegExp.replace(strHTML,"$1")
  Set objRegExp = Nothing
end function

asp 正则取href标签的值