asp 去除html的函数，要保留段落，换行和空格

Function HTMLEncode(fString)
    If not IsNull(fString) Then
        fString = Replace(fString, ">", ">")
        fString = Replace(fString, "<", "&lt;")
        fString = Replace(fString, CHR(32), "&nbsp;")
        fString = Replace(fString, CHR(9), "&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> ")
        HTMLEncode = fString
    End If
End Function