function noHTML(str)
dim re
Set re=new RegExp
re.IgnoreCase =true
re.Global=True
’re.Pattern="(<.[^<]*>)"
’str=re.replace(str," ")
re.Pattern="(<img[^<]*>)"
str=re.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="(<img[^<]*>)"
str=re.replace(str," ")
nohtml=str
set re=nothing
end function
热门信息
阅读 (124)
1 使用FSO修改文件特定内容的函数阅读 (118)
2 ASP中获取汉字拼音的第一个字母阅读 (110)
3 asp过滤<img>图片的正则表达式函数阅读 (109)
4 字符串截取的几个function阅读 (80)
5 删除html代码的正则表达式,RemoveHTML函数