过滤字符串中的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),"'";

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