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

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