aspcms增加自动提取内容中的第一张图片作为文章缩略图的功能

作者: 发布于:2016-01-08 点击量:706
 


'从内容里面提取第一张图片</p>

Function GetFirstImg(Str) '取得img 标签内容

    Dim tmp,objRegExp,Match,Matches

    Set objRegExp =New Regexp

    objRegExp.IgnoreCase =True'忽略大小写</p>

    objRegExp.Global =false'全文搜索 !关键!

    objRegExp.Pattern ="]*)(.*?)>"

    Set Matches = objRegExp.Execute(Str)

    For Each Match in Matches

        tmp = tmp & Match.Value

    Next

    GetFirstImg = GetImgS(tmp)

End Function


Function GetImgS(Str)'获取所有图片</p>

Dim tmp,objRegExp,Match,Matches,mm,imgsrc

    Set objRegExp =New Regexp 

objRegExp.IgnoreCase =True

    objRegExp.Global =True'全文搜索

    objRegExp.Pattern ="src\=.+?\.(gif|jpg|png|bmp)"

    Set mm = objRegExp.Execute(Str)

    For Each Match in mm

        imgsrc = Match.Value

        '也许存在不能过滤的字符,确保万一

        imgsrc =Replace(imgsrc, """", "")

        imgsrc =Replace(imgsrc, "src=", "")

        imgsrc =Replace(imgsrc, "<", "")

        imgsrc =Replace(imgsrc, ">", "")

        imgsrc =Replace(imgsrc, "img", "")

        imgsrc =Replace(imgsrc, """, "")

        GetImgS = GetImgS & imgsrc'把里面的地址串起来备用</p>

    Next

End Function


来源: 本文链接:/content/233

邮件订阅:

(订阅后每次本页有更新都会给你发一封提醒邮件,方便客户获取掌握最新插件信息)

(工作日:周一-周六8:30-23:00)