如何屏蔽掉所有的html代码？

[12301230]

我要从数据库中取出用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>掉，请看有无错误？

[xishanlang2001]

<script language=vbscript>
Function FilterHTML(strToFilter)
Dim strTemp,strTemppart1
strTemp = strToFilter
While Instr(1,strTemp,"<")<>0 AND Instr(1, strTemp, ">")<>0
strTemp = Left(strTemp, Instr(1, strTemp, "<")-1) & Right(strTemp, Len(strTemp)-Instr

(1,strTemp, ">"))
WEnd
FilterHTML = strTemp
End Function
msgbox(FilterHTML("<font>ggggg ttyyy</font>"))
</script>


没有问题呀.
While Instr(1,strTemp,"<") AND Instr(1, strTemp, ">")
改成
While Instr(1,strTemp,"<")<>0 AND Instr(1, strTemp, ">")<>0

试了一下,好象while和if不一样,不能是0直接认为条件不成立.

[yangzixp]

我的：
Function stripHTML(strHTML)
'Strips the HTML tags from strHTML

Dim objRegExp, strOutput
Set objRegExp = New Regexp

objRegExp.IgnoreCase = True
objRegExp.Global = True
objRegExp.Pattern = "<.+?>"
'objRegExp.Pattern = "<.[^\[]*>"


'Replace all HTML tag matches with the empty string
strOutput = objRegExp.Replace(strHTML, "")

'Replace all < and > with < and >
strOutput = objRegExp.Replace(strHTML, "")

'Replace all < and > with < and >
strOutput = Replace(strOutput, "<", "<")
strOutput = Replace(strOutput, ">", ">")

stripHTML = strOutput 'Return the value of strOutput

Set objRegExp = Nothing
End Function

不过要求服务器：ie6+sp3

[12301230]

xishanlang2001(西山狼2000) 说的有道理，不知能否过滤掉word粘贴过来的代码，我再调调。多谢了！

[avonqin]

marking

[smuzy]

Function remove_HTMLtags(str1)
str1 = Replace(str1, vbCrLf, "") '先去掉换行和空格
Dim regEx
set regEx=New RegExp '建立正则表达式。
regEx.Global = True
regEx.IgnoreCase = True ' 设置是否区分大小写。

regEx.Pattern = "<.*?>" ' 设置模式。
remove_HTMLtags = regEx.Replace(str1, "") ' 作替换。
remove_HTMLtags = Trim(remove_HTMLtags)
Set regEx = Nothing
End Function

[chinahuman]

楼上的太麻烦了，只要html.encode()一下就可以了！

[chinahuman]

把所有的HTML代码过滤掉后再取你所要的东西

[qunluo]

gz