代码如下：

复制代码 代码如下:

Function ReplaceEx(strOri,replStr)

Set regEx=New RegExp

regEx.Global=True

regEx.MultiLine=True

regEx.Pattern="rn"

regEx.IgnoreCase=True

ReplaceEx=regEx.Replace(strOri,replStr)

End Function

shuoming=replace(rs("shuoming")," ","")

shuoming=ReplaceEx(shuoming,"<br>")

这样替换以后再输出就不会出现错误了！我处理的时候使用replace函数替换空格可以，但是替换回车换行始终不行，只有求助于正则表达式了！！