您正在使用IPV4(34.204.180.223)访问本站 您本次共访问本站 1 次
用户名: 用QQ登录本站
密 码:
验证码:
首页 软件 编程 笑话 知识 公告 台风 日历 计算器 行情 简化版
文明驾车我带头,文明行路我带头,礼貌让座我带头      

【腾讯云】618云上GO!云服务器限时秒杀,1核2G首年95元!       [公益] 节省一分零钱 献出一份爱心 温暖世间真情      
广告位招租中
2021年 建军节 3
2021年 七夕节 16
2022年 元 旦 156
2022年 春 节 187
 
  • 本类新增
    本类热门文章
    您现在的位置:首页 >> ASP >> 内容
    一个获取内容中所有图片地址的ASP函数
    内容摘要: Function GetImgS(str)'获取所有图片Dim objRegExp1,mm,Match1,imgsrcSet objRegExp1 = New RegexpobjRegExp1.IgnoreCase = True '忽略大小写objRegExp1.Global = True '全文搜索objRegExp1.Pattern = 'src\=.+......
    Function GetImgS(str)'获取所有图片

    Dim objRegExp1,mm,Match1,imgsrc

    Set objRegExp1 = New Regexp

    objRegExp1.IgnoreCase = True '忽略大小写

    objRegExp1.Global = True '全文搜索

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

    set mm=objRegExp1.Execute(str)

    For Each Match1 in mm

    imgsrc=Match1.Value

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

    imgsrc=replace(imgsrc,"""","")

    imgsrc=replace(imgsrc,"src=","")

    imgsrc=replace(imgsrc,"<","")

    imgsrc=replace(imgsrc,">","")

    imgsrc=replace(imgsrc,"img","")

    imgsrc=replace(imgsrc," ","")

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

    next

    End function

    版权声明:本内容来源于互联网,如有侵犯您的版权,请联系站长,本站收到您的信息后将及时处理。
    上一篇:ASP提取CSS中的所有图片地址的函数 下一篇:ASP违法字符检测函数
    发布日期:2021/7/2
    手机扫二维码直达本页
    发布时间:17:04:19
    点击:297
    录入:齐天大圣
    相关文章
    Baidu

    YiJiaCMS V5.9 Build 21.7.20(MSSQL) 闽ICP备05000814号-1
    本空间由景安网络提供,百度云加速提供加速防护
    ©2000-2021