聊城江北科技分享：快速去除样式代码
我记得以前我写过此类的文章，可惜不知道丢哪去了，这次再一次的贴出来供大家使用。
这种去除样式的代码超简单，直接拿过来用就可以，方便快捷。
不多废话了，教教大家怎么用吧。
代码如下(此代码可以随意放到该页面的任意位置)：
<%
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(从数据库提出来的信息内容)，这样写能看懂吗？假如还不懂就直接找我问也可以。我的QQ/微信：674970708，我们官网：www.jiangbeikeji.com。