代码如下：
（本文来源于图老师网站，更多请访问https://m.tulaoshi.com/webkaifa/）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
