想了解怎样编写一个过滤掉HTML代码的函数？的相关内容吗，在本文为您仔细讲解的相关知识和一些Code实例，欢迎阅读和指正，我们先划重点：怎样何编编写写一一个个过过滤滤掉掉HHTTMMLL代代码码的的函函数数？？，下面大家一起来学习吧。
如何编写一个过滤掉HTML代码的函数？
<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" />
<%
Function Filterhtml(strToFilter)
Dim strTemp
strTemp = strToFilter
While Instr(1,strTemp,"<") AND Instr(1, strTemp, ">")
strTemp = Left(strTemp, Instr(1, strTemp, "<")-1) & Right(strTemp, Len(strTemp)-Instr(1,strTemp, ">"))
WEnd
Filterhtml = strTemp
End Function
%>
