function nohtml(str)
dim re
Set re=new RegExp
re.IgnoreCase =true
re.Global=True
re.Pattern="(\<.[^\<]*\>)"
str=re.replace(str," ")
re.Pattern="(\<\/[^\<]*\>)"
str=re.replace(str," ")
nohtml=str
set re=nothing
end function
------------------------
菜鸟学习,该函数是不是用空格过滤UBB代码?

re.Pattern="(\&lt;.[^\&lt;]*\&gt;)"
re.Pattern="(\&lt;\/[^\&lt;]*\&gt;)"
有什么区别?

好心人..........

谢谢渚薰