得到连接和图片的地址 正则
实现代码如下:function AddSiteURL(ByVal Str)If IsNull(Str) ThenAddSiteURL = ""Exit FunctionEnd IfDim reSet re=new RegExpWith re.IgnoreCase =True.Global=True.
实现代码如下:function AddSiteURL(ByVal Str)If IsNull(Str) ThenAddSiteURL = ""Exit FunctionEnd IfDim reSet re=new RegExpWith re.IgnoreCase =True.Global=True.