asp 过滤html标签

2015-08-12 16:03:38来源:作者:人点击

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

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

function htmldecode(text)
{
return text.replace(/&amp;/g, '&').replace(/&quot;/g, '"').replace(/&lt;/g, '<').replace(/&gt;/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

最新文章

123

最新摄影

微信扫一扫

第七城市微信公众平台