1. 程式人生 > >ASP過濾特殊字元

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 
    
EndIfEnd Function%>