在做网站的时候，往往会遇到要从内容里获取所有图片的情况，比如：在包含图片的内容中取第一张作为缩略图，或取出所有图片地址DIY美化，这时就需要自己写一个实现需求的函数，而使用正则表达式的匹配方式是第一选择。
下面是分享的一个获取图片的自定义函数GetImage：
Function GetImage(byval Str,byval IsS)
说明：Str就是获取图片地址的源内容，一般指内容页。 IsS为1是取第一张图片，为0时取所有图片。
可以匹配图片src的双引号、单引号和无引号，不区分内容大小写。

Function GetImage(TheStr,TheOne)
    Dim RegEx
    Set RegEx = New RegExp
    RegEx.IgnoreCase =True
    RegEx.Global = True
    RegEx.Pattern = "<img[^>]*src\s*=\s*['"&CHR(34)&"]?([\w/\-\:.]*)['"&CHR(34)&"]?[^>]*>"
    If Regex.test(TheStr) then
        Dim Matches
        Set Matches = RegEx.Exe cute(TheStr) ' 执行搜索。
        For Each Match in Matches ' 遍历匹配集合。
        RetStr = RetStr & Match.Value & "<br />" '获取整个img
        RetStr = RetStr & Match.SubMatches(0) '只取src
        IF TheOne=1 Then : GetImage = RetStr : Exit For : End IF
        Next 
        GetImage = RetStr
    End If            
End Function    

'测试内容
Dim sStr : sStr="<img src=""img-2019-9-28.Gif"" alt=""dsddfsa"" >   <img src=""pic2019080625555.jpG"" > <img src=""/up7/mypicture.jpg""><IMG SRC=images/up7.com.cn.JPG>"
'获取所有图片
response.Write(GetImage(sStr,0))
'获取第一张图片
response.Write(GetImage(sStr,1))

站内文章：均为188bet博彩体育app下载方式 各部门原创内容如需转载请著名本文网站链接：//www.mcissock.com/new/24623.html未经允许转载要受法律责任,如需转载请联系269247937@qq.com

[ASP脚本中巧用正则表达式取出内容里所有的图片]