換行問題

读出时替换一下
在网页中显示
function HTML(fString)
 fString = replace(fString, ">", ">")
 fString = replace(fString, "<", "&lt;")
 fString = Replace(fString, CHR(32), "&nbsp;")
 fString = Replace(fString, CHR(34), "&quot;")
 fString = Replace(fString, CHR(39), "&#39;")
 fString = Replace(fString, CHR(13), "")
 fString = Replace(fString, CHR(10) & CHR(10), "</P><P>")
 fString = Replace(fString, CHR(10), "<BR>")
 HTML = fString
end function
在多行文本框中显示
function Deal(fString)
 fString = replace(fString, "&gt;", ">")
 fString = replace(fString, "&lt;", "<")
 fString = Replace(fString,"&nbsp;",chr(32))
 fString = Replace(fString,"&quot;",chr(34))
 fString = Replace(fString,"&#39;",chr(39))
 fString = Replace(fString, "", CHR(13))
 fString = Replace(fString, "</P><P>", CHR(10) & CHR(10))
 fString = Replace(fString, "<BR>", CHR(10))
 Deal = fString
end function