精品秘无码一区二区三区老师-精品秘一区二三区免费雷安-精品蜜桃秘一区二区三区-精品蜜桃秘一区二区三区粉嫩-精品蜜桃一区二区三区-精品蜜臀国产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 編輯過