过滤HTML代码

过滤HTML代码

　　如何编写一个过滤掉HTML代码的函数

　　<%

　　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

　　%>

【过滤HTML代码】相关文章：

网页滚动文字的制作HTML代码04-10

数控编程代码大全02-13

Java代码的基本知识09-03