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," ")
str = replace(str," ","")
str = replace(str," ","")
nohtml = str
set re = nothing
end function
dim re
Set re = new RegExp
re.IgnoreCase = true
re.Global = True
re.Pattern = "(\<.[^\<]*\>)"
str = re.replace(str," ")
re.Pattern = "(\<\/[^\<]*\>)"
str = re.replace(str," ")
str = replace(str," ","")
str = replace(str," ","")
nohtml = str
set re = nothing
end function
ASP 去除 HTML 标记与空格的正则
用 ASP 实现的去除内容的 HTML 标记和空格的实现代码。