代码如下：
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>")
这样替换以后再输出就不会出现错误了！我处理的时候使用replace函数替换空格可以，但是替换回车换行始终不行，只有求助于正则表达式了！！