ASP函數:移除HTML代碼

　　ASP移除所有HTML代碼的函數

Function RemoveHTML( strText )
Dim RegEx
Set RegEx = New RegExp
RegExPattern = "<[^>]*>"
RegExGlobal = True
RemoveHTML = RegExReplace(strText "")
RemoveHTML = replace(RemoveHTML" "" ")
End Function
 

From:http://tw.wingwit.com/Article/program/net/201311/14087.html