最近很多人问这些问题，其实在我的“超强的编辑器fckeditor 2.41”中已经有这个功能了，只是这个比较的乱，也不容易看懂，在网上搜了一下，不过能用的不多，在此简单的修改了一下，还算能用吧。先凑合着用吧，以后有时间再更新。
<%
 str = "fdsfdsg我来测试一下<IMG src='/uploadfile/1.gif'>一下<img src='/uploadfile/2.jpg'>"

  Set re = New Regexp '设置配置对象
  re.IgnoreCase = True '忽略大小写
  re.Global = True '设置为全文搜索
  re.Pattern = "<IMG.+?>" '为了确保能准确地取出图片地址所以分为两层配置：
  strs=trim(str)
  Set Matches =re.Execute(strs)'开始执行配置
  For Each Match in Matches
   RetStr = RetStr &getimgs( Match.Value )'执行第二轮的匹配
  Next

function getimgs(strv)
  getimgs=""
  dim re,mm
  Set re = New Regexp
  re.IgnoreCase = True
  re.Global = True
  re.Pattern = "/uploadfile/.+?\..{3}"  '"http://.+?"""'取出里面的地址
  set mm=re.Execute(strv)
  For Each Match1 in mm
   getimgs=getimgs&"||"&Match1.Value '把里面的地址串起来备用
  next
end function

response.write(RetStr)
%>