<% '获取内容中的图片 function GetImgSrc(str) '取得img 标签内容     dim tmp     Set objRegExp = New Regexp      objRegExp.IgnoreCase = True    '忽略大小写      objRegExp.Global = false        '全文搜索 !关键!      objRegExp.Pattern = "<img (.*?)src=(.[^\[^>]*)(.*?)>"     Set Matches =objRegExp.Execute(str)     For Each Match in Matches          tmp=tmp & Match.Value     Next      GetImgSrc=getimgs(tmp) end function function getimgs(str)'取得     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 %>调用的时候直接用 <img src="<%=GetImgSrc(rs("newscontent"))%>" /> 我就没明白，直接获取<img>不是更好吗？

<%
'***************************************************    
'*函数名 : GetImgFromContent    
'*参数说明 ： html 被提取的html 代码    
'*功能简介 ： 提取这部分html代码中的图片    
'*程序作者 : evio

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

这个没测试

关于铭旭科技

铭旭科技是领先的用户体验设计与互联网品牌建设公司,为众多企业创造了专业与创新的设计解决方案,提供交互设计、UI界面设计、网站设计开发、网站建设、移动界面设计、软件界面设计、互联网品牌建设和用户体验咨询服务。

查看精选案例   |  服务体系    |  了解铭旭动态