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

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
%>

本文地址：http://www.billionnet.net/c/201322661.html

分享到：

---

【刷新页面】【加入收藏】【打印此文】 【关闭窗口】

• 上一篇：网页CSS]该用哪个中文字体
• 下一篇：ASP开发中无惧缓存类 代码

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