如何屏蔽掉所有的html代码?
我要从数据库中取出用web页面编辑的文档,并要截取一部分内容,但不要领先地位任何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
用这个好象过滤不好,如<font>ggggg ttyyy</font>就过滤不</font>掉,请看有无错误?