html標簽是一種算是復雜的東西了，我們一般是過濾不了的現在利用正則來操作一下，有需要學習的同學可以參考一下本文章。

<%
Option Explicit

Function stripHTML(strHTML)
'Strips the HTML tags from strHTML

Dim objRegExp, strOutput
Set objRegExp = New Regexp

objRegExp.IgnoreCase = True
objRegExp.Global = True
objRegExp.Pattern = "<.+?>"

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

'Replace all < and > with < and >
strOutput = R

stripHTML = strOutput 'Return the value of strOutput

Set objRegExp = Nothing
End Function
%>

使用方法

stripHTML(strhtml)就可以了，這樣用起來就方便多了