asp文本框换行显示代码

<%
function CHTMLEncode(fString)
fString = Replace(fString, CHR(13), "")
fString = Replace(fString, CHR(10), "<BR> ")
CHTMLEncode= fString
end function
%>