公交车上荫蒂添的好舒服的电影-公用玩物(np双xing总受)-公用小荡货芊芊-公与妇仑乱hd-攻把受做哭边走边肉楼梯play-古装一级淫片a免费播放口

[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 編輯過