是自己粗心 少看了一个包含文件 与大家共享一下
Function nck(str)
if not isempty(str) and str<>"" then
str=replace(str,"'","'")
str=replace(str,chr(9)," ")
str=replace(str,Chr(32)," ")
str=replace(str," "," ")
str=Replace(str,"&","&")
str=replace(str,vbcrlf,"<br />")'vbcrlf是回车换行
str=replace(str,chr(13),"<br />")
nck=str
end If
End Function