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

Public Function FilterHTML(str)

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

        FilterHTML=" "

    Else

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

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

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

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

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

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

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

        str=Replace(str,char(10)&char(10),"

")

        str=Replace(str,char(10),"
")  

        FilterHTML=str

    End If

End Function