html代码过滤,值得收藏的html过滤代码

动网论坛中的HTML过滤代码，值得收藏！

Function HTMLEncode(fString)

fString=Trim(fString)

fString=Replace(fString,CHR(9),"")

fString=Replace(fString,CHR(13),"")

fString=Replace(fString,CHR(22),"")

fString=Replace(fString,CHR(38),"&") '“&”

fString=Replace(fString,CHR(32)," ") '“ ”

fString=Replace(fString,CHR(34),""") '“"”

fString=Replace(fString,CHR(37),"%") '“%”

fString=Replace(fString,CHR(39),"'") '“'”

fString=Replace(fString,CHR(42),"*") '“*”

fString=Replace(fString,CHR(43),"+") '“+”

fString=Replace(fString,CHR(44),",") '“,”

fString=Replace(fString,CHR(45)&CHR(45),"--") '“--”

fString=Replace(fString,CHR(92),"\") '“\”

'fString=Replace(fString,CHR(95),"_") '“_”

fString=Replace(fString,CHR(40),"(") '“(”

fString=Replace(fString,CHR(41),")") '“)”

fString=Replace(fString,CHR(60),"<") '“

fString=Replace(fString,CHR(62),">") '“>”

fString=Replace(fString,CHR(123),"{") '“{”

fString=Replace(fString,CHR(125),"}") '“}”

fString=Replace(fString,CHR(59),";") '“;”

fString=Replace(fString,CHR(10),"
")

fString=ReplaceText(fString,"([])([a-z0-9]*);","$1$2;")

if SiteConfig("BannedText")<>"" then fString=ReplaceText(fString,"("&SiteConfig("BannedText")&")",string(len("&$1&"),"*"))

if IsSqlDataBase=0 then '过滤片假名(日文字符)[\u30A0-\u30FF] by yuzi

fString=escape(fString)

fString=ReplaceText(fString,"%u30([A-F][0-F])","0$1;")

fString=unescape(fString)

end if

HTMLEncode=fString

End Function