得到连接和图片的地址 正则

function addsiteurl(byval str)
  if isnull(str) then
      addsiteurl = ""
      exit function 
  end if

  dim re
  set re=new regexp
  with re
    .ignorecase =true
    .global=true

    .pattern="<img (.*?)src=""(?!(http|https)://)(.*?)"""
    str = .replace(str,"<img $1src=""" & siteurl & "$3""")

    .pattern="<a (.*?)href=""(?!(http|https|ftp|mms|rstp)://)(.*?)"""
    str = .replace(str,"<a $1href=""" & siteurl & "$3""")
  end with
  set re=nothing

  addsiteurl=str
end function