如何用ASP将一大段文字中的HTML的标识去掉

1   
2Function FilterHTML(strToFilter)   
3Dim strTemp   
4strTemp = strToFilter   
5While Instr(1,strTemp,"<") AND Instr(1, strTemp, ">")   
6strTemp = Left(strTemp, Instr(1, strTemp, "<")-1) & Right(strTemp, Len(strTemp)-Instr(1,strTemp, ">"))   
7WEnd   
8FilterHTML = strTemp   
9End Function