ASP除文章內容中的HTML代碼函數

Function Lose_Html(f_Str)
Dim regEx
if Not IsNull(f_Str) Then
   f_Str=f_Str&""
   Set regEx = New RegExp
   regEx.Pattern = "</*[^<>]*>"
   regEx.IgnoreCase = True
   regEx.Global = True
   f_Str = regEx.Replace(f_Str,"")
   Lose_Html = f_Str
Else
   Lose_Html=""
End If
End Function