ASP过滤特殊字符

<%
Function FormatHTML(fString) 
    If fString<>"" Then 
        fString = trim(fString) 
        fString = replace(fString, ";", "；")     '分号过滤 
        fString = replace(fString, "--", "——") '--过滤 
        fString = replace(fString, "%20", "")    '特殊字符过滤 
        fString = replace(fString, "==", "")     '==过滤 
        fString = replace(fString, ">", "&gt;") 
        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> ") 
        FormatHTML = fString 
    End If 
End Function 
%>