精品熟人妻一区二区三区四区不卡-精品爽黄69天堂a-精品水蜜桃久久久久久久-精品丝袜国产自在线拍-精品丝袜国产自在线拍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 編輯過