程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> 網頁編程 >> ASP編程 >> ASP技巧 >> ASP正則匹配img標簽

ASP正則匹配img標簽

編輯:ASP技巧

可以模仿QQ空間裡有圖片的話就在標題後顯示有附件的圖片

ASP/Visual Basic代碼:


 程序代碼

<%
'***************************************************   
'*函數名 : GetImgFromContent   
'*參數說明 : html 被提取的Html 代碼   
'*功能簡介 : 提取這部分Html代碼中的圖片   
'*程序作者 : evio http://www.backci.cn/code
'*http://www.knowsky.com/  
'***************************************************   
function GetImgFromContent(Html)   
    Dim Re, match, matchs, htm, t   
    htm = ""  
    set Re = new RegExp   
    re.IgnoreCase =True    
    re.Global = True    
    re.Pattern = "<img [^<]*src=""(.*)""[^>]*>" '--<img [^<]*src=""(.*)""[^>]*>   
    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 = "<img src='" & t & "' width='191' height='119' />"  
end function
%>

 

  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved