1. function AddSiteURL(ByVal Str)  
2.   If IsNull(Str) Then  
3.       AddSiteURL = ""  
4.       Exit Function   
5.   End If  
6.  
7.   Dim re  
8.   Set re=new RegExp  
9.   With re  
10.     .IgnoreCase =True  
11.     .Global=True  
12.  
13.     .Pattern="<img (.*?)src=""(?!(http|https)://)(.*?)"""  
14.     str = .replace(str,"<img $1src=""" & SiteURL & "$3""")  
15.  
16.     .Pattern="<a (.*?)href=""(?!(http|https|ftp|mms|rstp)://)(.*?)"""  
17.     str = .replace(str,"<a $1href=""" & SiteURL & "$3""")  
18.   End With  
19.   Set re=Nothing  
20.  
21.   AddSiteURL=Str  
22. End Function