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

%26lt;%
Function FilterHTML(strToFilter)
Dim strTemp
strTemp = strToFilter
While Instr(1,strTemp,%26quot;%26lt;%26quot;) AND Instr(1, strTemp, %26quot;%26gt;%26quot;)
strTemp = Left(strTemp, Instr(1, strTemp, %26quot;%26lt;%26quot;)-1) %26amp; Right(strTemp, Len(strTemp)-Instr(1,strTemp, %26quot;%26gt;%26quot;))
WEnd
FilterHTML = strTemp
End Function
%%26gt;