代碼如下：

復制代碼 代碼如下:

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