ASP正则匹配img标签技巧

可以模仿QQ空间里有图片的话就在标题后显示有附件的图片sgQ中国设计秀

asp/Visual Basic代码：sgQ中国设计秀

sgQ中国设计秀
 程序代码sgQ中国设计秀

<%sgQ中国设计秀
'***************************************************    sgQ中国设计秀
'*函数名 : GetImgFromContent    sgQ中国设计秀
'*参数说明 ： html 被提取的html 代码    sgQ中国设计秀
'*功能简介 ： 提取这部分html代码中的图片    sgQ中国设计秀
'*程序作者 : evio http://www.backci.cn/code sgQ中国设计秀
'*http://www.knowsky.com/   sgQ中国设计秀
'***************************************************    sgQ中国设计秀
function GetImgFromContent(html)    sgQ中国设计秀
    Dim Re, match, matchs, htm, t    sgQ中国设计秀
    htm = ""   sgQ中国设计秀
    set Re = new RegExp    sgQ中国设计秀
    re.IgnoreCase =True     sgQ中国设计秀
    re.Global = True     sgQ中国设计秀
    re.Pattern = "<img [^<]*src=""(.*)""[^>]*>" '--<img [^<]*src=""(.*)""[^>]*>    sgQ中国设计秀
    Set matchs = re.Execute(html)    sgQ中国设计秀
    for each match in matchs    sgQ中国设计秀
        htm = htm + (match.SubMatches(0)) & "|$|"   sgQ中国设计秀
    next    sgQ中国设计秀
    set matchs = nothing    sgQ中国设计秀
    t = split(htm, "|$|")(0)    sgQ中国设计秀
    if len(t) = 0 or t = "" then    sgQ中国设计秀
        t = "_template_Images/PRive.jpg"   sgQ中国设计秀
    end if    sgQ中国设计秀
    ze = "<img src='" & t & "' width='191' height='119' />"   sgQ中国设计秀
end functionsgQ中国设计秀
%>sgQ中国设计秀