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

<%

FunctionFilterHTML(strToFilter)

DimstrTemp

strTemp=strToFilter

WhileInstr(1,strTemp,"<")ANDInstr(1,strTemp,">")

strTemp=Left(strTemp,Instr(1,strTemp,"<")-1)&Right(strTemp,Len(strTemp)-Instr(1,strTemp,">"))

WEnd

FilterHTML=strTemp

EndFunction

%>