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