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")," ","nbsp;") shuoming=ReplaceEx(shuoming,"br>")