[Quote=引用 2 楼 sallyimportant 的回复:]
<%Function CleanHTML(str)
Dim re
Set re=new RegExp
re.IgnoreCase =True
re.Global=True
re.Pattern=" <(.[^>]*)>"
CleanHTML = re.Replace(str,"")
set re=Nothing
End Function %>
<%Function CleanHTML(str)
Dim re
Set re=new RegExp
re.IgnoreCase =True
re.Global=True
re.Pattern="<(.[^>]*)>"
CleanHTML = re.Replace(str,"")
set re=Nothing
End Function %>