大连仟亿科技
客服中心
  • 电话
  • 电话咨询:0411-39943997
  • 手机
  • 手机咨询:15840979770
    手机咨询:13889672791
网络营销 >更多
您现在的位置:仟亿科技 > 新闻中心 > 常见问题

ASP程序正则匹配img标签代码

作者:billionnet 发布于:2013-2-23 18:21:20 点击量:

 

ASP程序正则匹配img标签代码

可以模仿QQ空间里有图片的话就在标题后显示有附件的图片

asp/Visual Basic代码:


 程序代码

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



分享到:


评论加载中...
内容:
评论者: 验证码:
  

Copyright@ 2011-2016 版权所有:大连仟亿科技有限公司 辽ICP备11013762-1号   google网站地图   百度网站地图   网站地图

公司地址:大连市沙河口区中山路692号辰熙星海国际2317 客服电话:0411-39943997 QQ:2088827823 37482752

法律声明:未经许可,任何模仿本站模板、转载本站内容等行为者,本站保留追究其法律责任的权利! 隐私权政策声明