这是四款asp 过滤html标签函数与方法，这些大全部都是利用正则表达式来过滤以<与>的数据，然后替换里面的东西，这样asp过滤html的函数不成功了。
function htmlencode(text)
{
return text.replace(/&/g, '&').replace(/"/g, ' ').replace(/</g, '<').replace(/>/g, '>');
}
function htmldecode(text)
{
return text.replace(/ /g, '&').replace(/ /g, '"').replace(/</g, '<').replace(/>/g, '>');
}
方法二
function nohtml(str)
dim re
set re=new regexp
re.ignorecase =true
re.global=true
re.pattern="<(.[^>]*)>"
str=re.replace(str,"")
nohtml=str
set re=nothing
end function'过滤html标签方
方法三
function filterhtml(strtofilter)
dim objregexp, match, matches
set objregexp = new regexp
objregexp.ignorecase = true
objregexp.global = true
取闭合的<>
objregexp.pattern = "<.+?>"
进行匹配
set matches = objregexp.execute(strtofilter)
遍历匹配集合，并替换掉匹配的项目
for each match in matches
strtofilter=replace(strtofilter,match.value,"")
next
filterhtml=strtofilter
set objregexp = nothing
end function
调用
str=filterhtml(str)
过滤html标签方法四
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
