ASP正则提取href标签的值函数


ASP #正则 #函数2012-05-08 11:48
1function urlcontent(strHTML)
2  Set objRegExp = New Regexp
3  objRegExp.IgnoreCase = True
4  objRegExp.Global = True
5  objRegExp.Pattern =  "<a.+?href=""(.+?)""[^\>]*>.+?</a>"
6  urlcontent=objRegExp.replace(strHTML,"$1")
7  Set objRegExp = Nothing
8end function

相关文章

粤ICP备11097351号-1