asp 过滤html标签

这是四款asp 过滤html标签函数与方法这些大全部都是利用正则表达式来过滤以<与>的数据然后替换里面的东西这样asp过滤html的函数不成功了

function htmlencode(text)
{
return textreplace(/&/g &amp)replace(/"/g &quot;)replace(/</g &lt;)replace(/>/g &gt;);
}

function htmldecode(text)
{
return textreplace(/&amp;/g &)replace(/&quot;/g ")replace(/&lt;/g <)replace(/&gt;/g >);
}

方法二

function nohtml(str)
dim re
set re=new regexp
reignorecase =true
reglobal=true
repattern="<([^>]*)>"
str=rereplace(str"")
nohtml=str
set re=nothing
end function过滤html标签方

方法三

function filterhtml(strtofilter)
dim objregexp match matches
set objregexp = new regexp
objregexpignorecase = true
objregexpglobal = true
取闭合的<>
objregexppattern = "<+?>"
进行匹配
set matches = objregexpexecute(strtofilter)
遍历匹配集合并替换掉匹配的项目
for each match in matches
strtofilter=replace(strtofiltermatchvalue"")
next
filterhtml=strtofilter
set objregexp = nothing
end function

调用

str=filterhtml(str)

过滤html标签方法四

function nohtml(str)
dim re
set re=new regexp
reignorecase =true
reglobal=true
repattern="(<[^<]*>)"
str=rereplace(str"")
repattern="(</[^<]*>)"
str=rereplace(str"")
nohtml=str
set re=nothing
end function