ASP移除所有HTML代码的函数
Function RemoveHTML( strText ) Dim RegEx Set RegEx = New RegExp RegEx.Pattern = "<[^>]*>" RegEx.Global = True RemoveHTML = RegEx.Replace(strText, "") RemoveHTML = replace(RemoveHTML," "," ")End Function