[p]function html2ubb(str)[br] if str<>"" and not isnull(str) then[br] dim re[br] set re=new regexp[br] re.ignorecase =true[br] re.global=true[br] re.pattern="(on(load|click|dbclick|mouseover|mouseout|mousedown|mouseup|mousewheel|keydown|submit|change|focus)=""[^""]+"")"[br] str = re.replace(str, "")[br] re.pattern="((name|id|class)=""[^""]+"")"[br] str = re.replace(str, "")[br] re.pattern = "(]*?>([\w\w]*?)<\/s+cript>)"[br] str = re.replace(str, "")[br] re.pattern = "(]*?>([\w\w]*?)<\/iframe>)"[br] str = re.replace(str, "")[br] re.pattern = "(

 <\/p>)"[br] str = re.replace(str, "")[br] 're.pattern = "<(\w*) class\s*=\s*([^>|\s]*)([^>]*)>"[br] 'str = re.replace(str,"<$1$3>")[br] set re=nothing[br] html2ubb = str[br] else[br] html2ubb = ""[br] end if[br]end function [/p]

该文章在 2010/3/6 12:15:21 编辑过