ASP 转换TextArea等文本字符的换行和空格,子程序 f_TextHtml(Str)function f_TextHtml(Str)
'转换TextArea等文本字符的换行和空格
Str=replace(Str,chr(13)&chr(10),"<br>")
Str=replace(Str,chr(10),"<br>")
Str=replace(Str,chr(13),"<br>")
Str=replace(Str," "," ")
f_TextHtml=Str
End function