过滤字符串中的HTML代码(VBScript)

Public Function FilterHTML(str)

    If Trim(str)=" " or IsNull(str) then

        FilterHTML=" "

    Else

        str=Replace(str,">",">";

        str=Replace(str,"<","&lt;";   

        str=Replace(str,char(32)"&absp;"; 

        str=Replace(str,char(9),"&nbsp;"; 

        str=Replace(str,char(34),"&quot;"; 

        str=Replace(str,char(39),"&#39;"; 

        str=Replace(str,char(13),""; 

        str=Replace(str,char(10)&char(10),"</p></p>")

        str=Replace(str,char(10),"<br>")  

        FilterHTML=str

    End If

End Function