如何编写一个过滤掉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
%>