复制代码 代码如下:
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