Question

用asp实现将html格式转化成纯文本

听说只要把html标签全替换了就实现了，在线文本编辑器也都有这个功能。可是怎么实现的我不想动脑，如果你做过，或者能找到这方面的资料也行。要求是一个函数，htmltotxt(str),返回值是纯文本。如果实现了追加50分。

Answer 1

正则表达式过滤
Function filtscript(strHTML)
Dim objRegExp, strOutput
Set objRegExp = New Regexp
strOutput=strHTML
objRegExp.IgnoreCase = True
objRegExp.Global = True
objRegExp.Pattern = "<[^>]*>"
strOutput = objRegExp.Replace(strOutput, "")
objRegExp.Pattern = "<\/[^>]*>"
strOutput = objRegExp.Replace(strOutput, "")
strOutput = replace(strOutput, "javascript:", "javascript :")
filtscript = strOutput
Set objRegExp = Nothing
End Function