代码如下: 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 (.*...