清除内容中所有html代码的函数

<% 
Function ClearHTMLCode(Content) 
	Dim RegEx 
	Set RegEx = new RegExp 
	RegEx.Pattern = "<[^>]*>" 
	RegEx.Global = true 
	ClearHTMLCode = RegEx.Replace(Content,"") 
End Function
%>