function f_HtmlText(Str) '转换html文本字符的换行和空格转换成ASCII码 Str=replace(Str,"<br>",chr(13)&chr(10)) Str=replace(Str,"<br>",chr(10)) Str=replace(Str,"<br>",chr(13)) Str=replace(Str," "," ") f_HtmlText=Str End function