Asp正则表达式提取内容中的图片

最新推荐文章于 2015-10-28 16:47:55 发布

无敌远远

最新推荐文章于 2015-10-28 16:47:55 发布

阅读量899

点赞数

分类专栏：我的程序库文章标签：正则表达式 asp

我的程序库专栏收录该内容

7 篇文章

订阅专栏

<%
FunctionRegImg(TheStr)
    DimRegEx
    SetRegEx=NewRegExp'建立正则表达对象。
    RegEx.IgnoreCase=True' 是否区分大小写，True为不区分且默认
    RegEx.Global=True'全部匹配还是只匹配第一个
    RegEx.Pattern="<img[^>]*src\s*=\s*['"&CHR(34)&"]?([\w/\-\:.]*)['"&CHR(34)&"]?[^>]*>"' 搜索所使用的正则表达式
    IfRegex.test(TheStr) Then ' 判断是否有匹配值，返回True或者False。不受Global属性影响。
        DimMatches
        SetMatches=RegEx.Execute(TheStr) ' 执行搜索。Execute 方法返回一个Matches 集合，其中包含了在 TheStr 中找到的每一个匹配的 Match 对象。如果未找到匹配，Execute 将返回空的 Matches 集合。
        ForEachMatchinMatches' 遍历匹配集合。
        RetStr=RetStr&Match.Value&"<br />"'获取整个img
        RetStr=RetStr&Match.SubMatches(0) '只取src
        Next
        RegImg=RetStr
    EndIf
EndFunction
Response.WriteRegImg("<p><img src=""http://www.wdssmq.com/UPLOAD/cbfs.gif"" width=""132"" height=""132"" alt=""111"" /></p>")
%>