如何保持数据库输出格式不变

%
function HTMLEncode(fString)

    fString = replace(fString, ">", "gt;")
    fString = replace(fString, "", "lt;")
    fString = Replace(fString, CHR(32), "nbsp;")
    fString = Replace(fString, CHR(13), "")
    fString = Replace(fString, CHR(10)  CHR(10), "/P>P>")
    fString = Replace(fString, CHR(10), "BR>")
    HTMLEncode = fString

end function
%>