ASP取得文章本文內容的所有圖片地址

提取網頁或本文內容中的所有圖片實際地址，返回以|分開的圖片列表。

<%
Option Explicit
'取得文章本文內容的所有圖片地址
Function FormatImg(content)
dim re,mm,Match1,getimgs
Set re=new RegExp
re.IgnoreCase =true
re.Global=True
re.Pattern="<img.[^>]*src(= )(.[^>]*)>"

set mm=re.Execute(content) 
For Each Match1 in mm 
getimgs=getimgs&imgurl(Match1.Value)&""
'getimgs=imgurl(Match1.Value)
'exit for
next 
set re = nothing
FormatImg = server.HTMLEncode(getimgs)
End Function

Function imgurl(str)
 dim tmpstr
 if instr(str,"src=")>0 then
  tmpstr = split(str,"src=")(1)
  if instr(tmpstr,"""")>0 then
  tmpstr = split(tmpstr,"""")(1)
  end if
  if instr(tmpstr,"'")>0 then
  tmpstr = split(tmpstr,"'")(1)
  end if
 else
  tmpstr = ""
 end if
  imgurl = tmpstr
End Function

response.write FormatImg("<p>阿里西西Web開發之家</p><script src=""http://www.alixixi.com/ads/ads.asp""></script><img border=""0"" alt="""" width=""556"" height=""1070"" src=""i4.gif"" /><div><center><a target=""_blank"" href=""i4.gif""><img border=""0"" alt="""" width=""556"" height=""1070"" src=""i2.gif"" /></a><br />阿里西西Web開發之家<br /></center></div>")
%>