ASP提取内容里面的图片地址

<%  

          content="<IMG src='/ybbedita/UploadFile/20102821362168.jpg' border=0>"
regstr=".?[./\w-:]+.(gif|jpg)"  
url=Replace(Replace(RegExp_Execute(regstr,content),"'",""),"""","")  
array_url=split(url,"|||")  
for   i=0   to   ubound(array_url)  
          Response.Write(array_url(i)&"<br>")  
fname=RegExp_Execute("w+.(jpg|gif)",array_url(i))  
Response.Write(Replace(fname,"|||",""))  
next  

    
    '返回匹配值  
    Function   RegExp_Execute(patrn,   strng)  
          Dim   regEx,   Match,   Matches,values   '建立变量。  
          Set   regEx   =   New   RegExp   '建立正则表达式。  
          regEx.Pattern   =   patrn   '设置模式。  
          regEx.IgnoreCase   =   true   '设置是否区分字符大小写。  
          regEx.Global   =   True   '设置全局可用性。  
          Set   Matches   =   regEx.Execute(strng)   '执行搜索。  
          For   Each   Match   in   Matches   '遍历匹配集合。  
                  values=values&Match.Value&"|||"  
          Next  
          RegExp_Execute   =   values  
    End   Function  
'取得图片内容  
function   getHTTPPage(url)  
      on   error   resume   next  
      dim   http  
      set   http=server.createobject("MSXML2.XMLHTTP")'使用xmlhttp的方法来获得图片的内容  
      Http.open   "GET",url,false  
      Http.send()  
      if   Http.readystate<>4   then    
      exit   function  
      end   if  
      getHTTPPage=Http.responseBody  
      set   http=nothing  
      if   err.number<>0   then   err.Clear    
end   function  
'保存图片  
function   saveimage(from,tofile)  
          On   Error   Resume   Next  
          dim   geturl,objStream,imgs  
          geturl=trim(from)  
          imgs=getHTTPPage(geturl)'取得图片的具休内容的过程  
          Set   objStream   =   Server.CreateObject("ADODB.Stream")'建立ADODB.Stream对象，必须要ADO   2.5以上版本  
          objStream.Type   =1'以二进制模式打开  
          objStream.Open  
          objstream.write   imgs'将字符串内容写入缓冲  
          objstream.SaveToFile   server.mappath(tofile),2'-将缓冲的内容写入文件  
          objstream.Close()'关闭对象  
          set   objstream=nothing  
end   function  
    
%>