[php]快速去除样式、获得纯净的text文本的代码

下面是快速去除样式、获得纯净的text文本的代码。这种去除样式的代码超级简单，直接拿过来用就可以，方便快捷。

代码如下(此代码可以随意放到该页面的任意位置)：

<%  
Public Function TextOnly(ByVal sOut)    
Dim re:Set re=New RegExp    
re.IgnoreCase=True    
re.Global=True    
re.Pattern="<script.*>.*</script>"    
sOut=re.Replace(sOut,"")    
re.Pattern="<style.*>.*</style>"    
sOut=re.Replace(sOut,"")    
re.Pattern="<object.*>.*</object>"    
sOut=re.Replace(sOut,"")    
re.Pattern="(<(.[^>]*)>)"    
sOut=re.Replace(sOut,"")    
Set re=Nothing    
TextOnly=sOut    
End Function 
%> 

用法：TextOnly(从数据库提出来的信息内容)