asp,正則表達式替換所有htm標籤

函數內容：

Function RemoveHTML(strText)
 Dim RegExs
 Set RegExs = New RegExp 
 RegExs.Pattern = "<[^>]*>"
 RegExs.Global = True 
 RemoveHTML = RegExs.Replace(strText, "")
End Function

 

調用函數就行