代碼如下： 復制代碼 代碼如下: Function ReplaceEx(strOri,replStr) Set regEx=New RegExp regEx.Global=True regEx.MultiLine=True regEx.Pattern="/r/n" regEx.IgnoreCase=True ReplaceEx=regEx.Replace(strOri,replStr) End Function shuoming=replace(rs("shuoming")," "," ") shuoming=ReplaceEx(shuoming,"<br>")
