asp去所有的html代码

在截取字符长度由于样式表格一些原因可能会使页面变形，这个时候必须先把html代码全部过滤掉。以下是asp去所有的html的代码 <% Function RemoveHTML_A(strText)     Dim nPos1     Dim nPos2     nPos1 = InStr(strText, "<")      Do While nPos1>0          nPos2 = InStr(nPos1+1, strText, ">")          If nPos2>0 Then              strText = Left(strText, nPos1 - 1) & Mid(strText, nPos2 + 1)          Else              Exit Do          End If          nPos1 = InStr(strText, "<")      Loop      RemoveHTML_A = strText  End Function %>