ASP获取URL链接href标签的值
作者:edwin 日期:2014-04-30
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
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 | 查看次数: 5225
发表评论