[p]<% [br]function html2ubb(l1) [br]if len(trim(l1))>0 then [br]else [br]exit function [br]end if [br]dim l4,i1,i2,i3 [br]dim i,i4:i4=array(16,19,21,24,32,45) [br]i1=l1 [br]set i2=new regexp [br]i2.global=true [br]i2.ignorecase=true'忽略大小写 [br]i2.pattern="/r":i1=i2.replace(i1,"") [br]i2.pattern="on(load|click|dbclick|mouseover|mousedown|mouseup)=""[^""]+""":i1=i2.replace(i1,"") [br]i2.pattern="]*?>([\w\w]*?)<\/script>":i1=i2.replace(i1,"") [br]i2.pattern="]+href=""([^""]+)""[^>]*>(.*?)<\/a>":i1=i2.replace(i1,"[url=$1]$2[/url]") [br]i2.pattern="]+color=([^ >]+)[^>]*>(.*?)<\/font>":i1=i2.replace(i1,"[color=$1]$2[/color]") [br]i2.pattern="]+src=""([^""]+)""[^>]*>":i1=i2.replace(i1,"[img]$1[/img]") [br]i2.pattern="<([\/]?)b>":i1=i2.replace(i1,"[$1b]") [br]i2.pattern="<([\/]?)strong>":i1=i2.replace(i1,"[$1b]") [br]i2.pattern="<([\/]?)u>":i1=i2.replace(i1,"[$1u]") [br]i2.pattern="<([\/]?)i>":i1=i2.replace(i1,"[$1i]") [br]i2.pattern=" ":i1=i2.replace(i1," ") [br]i2.pattern="&":i1=i2.replace(i1,"&") [br]i2.pattern="""":i1=i2.replace(i1,"""") [br]i2.pattern="<":i1=i2.replace(i1,"<") [br]i2.pattern=">":i1=i2.replace(i1,">") [br]i2.pattern="
":i1=i2.replace(i1,vbcrlf) [br]i2.pattern="<[^>]*?>":i1=i2.replace(i1,"") [br]i2.pattern="\n+":i1=i2.replace(i1,vbcrlf) [br]set i2=nothing [br]html2ubb=i1 [br]end function[br]%>[/p]

该文章在 2010/3/6 12:09:59 编辑过