复制代码 代码如下:

functionAddSiteURL(ByValStr)

IfIsNull(Str)Then

AddSiteURL=""

ExitFunction

EndIf

Dimre

Setre=newRegExp

Withre

.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""")

EndWith

Setre=Nothing

AddSiteURL=Str

EndFunction