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

From:http://tw.wingwit.com/Article/program/net/201311/14218.html