HTML代码过滤函数

HTML代码过滤函数

- 中国WEB开发者网络 (http://www.webasp.net)
-- 技术教程 (http://www.webasp.net/article/)
--- HTML代码过滤函数 (http://www.webasp.net/article/4/3773.htm)

-- 作者：未知
-- 发布日期： 2003-07-11

<%
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
%>

webasp.net