ASP教程:一个ASP实现的HTML代码替换功能函数

本文给大家介绍一个ASP实现的替换字符串的所有HTML代码的功能函数,ASP函数为网络搜索所得,原作者不祥,请看以下功能代码.


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

 

在要使用的地方nohtml(这里是你要过滤的文本串)这样就可以了;