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标签的值