asp 过滤html标签

function htmlencode(text)
{
return text.replace(/&/g, '&amp').replace(/"/g, '"').replace(//g, '>');
}

function htmldecode(text)
{
return text.replace(/&/g, '&').replace(/"/g, '"').replace(/</g, '<').replace(/>/g, '>');
}

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)

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