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>")