国产黃色A片三区三区三小说,深夜a级毛片免费视频,日本十大禁的黄动漫

主頁 > 知識庫 > UBB 轉(zhuǎn)換函數(shù)演示 (經(jīng)典論壇)

UBB 轉(zhuǎn)換函數(shù)演示 (經(jīng)典論壇)

UBB代碼對于經(jīng)常上論壇的朋友來說是最熟悉不過了。這里我不多說了，關(guān)于怎么實現(xiàn)UBB轉(zhuǎn)換，不了解的朋友請看這里正則表達(dá)式在ＵＢＢ論壇中的應(yīng)用。

經(jīng)典論壇的UBB轉(zhuǎn)換我覺得是處理的非常好的，研究了一下它的轉(zhuǎn)換結(jié)果[因為沒有源碼:)]，做了下面的演示。轉(zhuǎn)換結(jié)果基本上覺得象了。

主要是針對[code]{html}這兩個標(biāo)簽的處理，其他的UBB標(biāo)簽還是一般的處理方法。

下面是分別用javascript和vbscript實現(xiàn)的演示。自己做論壇的朋友，如果想實現(xiàn)類似經(jīng)典論壇的運行代碼框可以看看這種轉(zhuǎn)換。

歡迎大家輸入盡量多格式的UBB進(jìn)行測試，多多指出錯誤。
javascirpt:

復(fù)制代碼代碼如下:

style>
.CodeSamp {
PADDING-RIGHT: 0.5em; MARGIN-TOP: 1em; PADDING-LEFT: 0.5em; FONT-SIZE: 8p; MARGIN-BOTTOM: 1em; PADDING-BOTTOM: 0.5em; MARGIN-LEFT: 0pt; PADDING-TOP: 0.5em; FONT-FAMILY: "Courier New"; BACKGROUND-COLOR: #eeeeee;width: 480px;overflow:hidden;border: 1px solid #888888;
}
textarea {
border-width: 1; border-color: #000000;font-size: 12px;FONT-FAMILY: "Tahoma", "MS Shell Dlg";
}
/style>

TEXTAREA name=phx cols=65 rows=12>
[i][b][color=blue]blue[/color][/b][/i]

{html}[color=red]te
st[/color]{/html}

{html}[code]te
st[/code]{/html}

[code]{html}te
st{/html}[/code]/textarea>
br>button onclick=show.innerHTML=UBBCode(phx.value,"html")>轉(zhuǎn)換/button>br>
div id=show style="border:1 solid skyblue;width=500;font-size: 12px;FONT-FAMILY:
'Tahoma', 'MS Shell Dlg';
">/div>

script>
strIcons = "1" //允許笑臉轉(zhuǎn)換
strSmile="1" //同上
ImgName="em"
picurl="pic/"

function hencode(fString){ //簡單模擬server.htmlencode ASP中不用這個
fString = fString.replace(//ig,"")
fString = fString.replace(/>/ig,"gt;") //>
fString = fString.replace(//ig,"lt;") //
return fString;
}

function DvbbsHtmlAn(fString){

if(fString=="")return("");

fString=hencode(fString)

fString = fString.replace(/\t/ig,"nbsp;nbsp;nbsp;") //Tab
fString = fString.replace(/"/ig,"quot;")    //"
fString = fString.replace(/'/ig,"#39;")    //'
fString = fString.replace(/\r/ig,"")     //回車是一個13+10
fString = fString.replace(/\n\n/ig,"P>")    //
fString = fString.replace(/\n/ig,"BR>")    //換行
fString = fString.replace(/\x20/ig,"nbsp;")   //空格

return(fString);
}

function trans(strContent){
var re;
strContent=DvbbsHtmlAn(strContent);

re=/\[IMG\](.+?)\[\/IMG\]/ig;
strContent=strContent.replace(re,"a href=$1 target=_blank>IMG SRC=$1 border=0 alt=按此在新窗口瀏覽圖片 onload=\"javascript:if(this.width>screen.width-333)this.width=screen.width-333\" galleryImg=no>/a>");
re=/\[DIR=*([0-9]*),*([0-9]*)\](.*?)\[\/DIR]/ig
strContent=strContent.replace(re,"object classid=clsid:166B1BCA-3F9C-11CF-8075-444553540000 codebase=http://download.macromedia.com/pub/shockwave/cabs/director/sw.cab#version=7,0,2,0 width=$1 height=$2>param name=src value=$3>embed src=$3 pluginspage=http://www.macromedia.com/shockwave/download/ width=$1 height=$2>/embed>/object>")
re=/\[QT=*([0-9]*),*([0-9]*)\](.*?)\[\/QT]/ig
strContent=strContent.replace(re,"embed src=$3 width=$1 height=$2 autoplay=true loop=false controller=true playeveryframe=false cache=false scale=TOFIT bgcolor=#000000 kioskmode=false targetcache=false pluginspage=http://www.apple.com/quicktime/>")
re=/\[MP=*([0-9]*),*([0-9]*)\](.*?)\[\/MP]/ig
strContent=strContent.replace(re,"object align=middle classid=CLSID:22d6f312-b0f6-11d0-94ab-0080c74c7e95 class=OBJECT id=MediaPlayer width=$1 height=$2 >param name=ShowStatusBar value=-1>param name=Filename value=$3>embed type=application/x-oleobject codebase=http://activex.microsoft.com/activex/controls/mplayer/en/nsmp2inf.cab#Version=5,1,52,701 flename=mp src=$3 width=$1 height=$2>/embed>/object>")
re=/\[RM=*([0-9]*),*([0-9]*)\](.*?)\[\/RM]/ig
strContent=strContent.replace(re,"OBJECT classid=clsid:CFCDAA03-8BE4-11cf-B84B-0020AFBBCCFA class=OBJECT id=RAOCX width=$1 height=$2>PARAM NAME=SRC VALUE=$3>PARAM NAME=CONSOLE VALUE=Clip1>PARAM NAME=CONTROLS VALUE=imagewindow>PARAM NAME=AUTOSTART VALUE=true>/OBJECT>br>OBJECT classid=CLSID:CFCDAA03-8BE4-11CF-B84B-0020AFBBCCFA height=32 id=video2 width=$1>PARAM NAME=SRC VALUE=$3>PARAM NAME=AUTOSTART VALUE=-1>PARAM NAME=CONTROLS VALUE=controlpanel>PARAM NAME=CONSOLE VALUE=Clip1>/OBJECT>")

re=/(\[FLASH\])(.*?)(\[\/FLASH\])/ig
strContent= strContent.replace(re,"OBJECT codeBase=http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0 classid=clsid:D27CDB6E-AE6D-11cf-96B8-444553540000 width=500 height=400>PARAM NAME=movie VALUE=$2>PARAM NAME=quality VALUE=high>embed src=$2 quality=high pluginspage='http://www.macromedia.com/go/getflashplayer' type='application/x-shockwave-flash' width=500 height=400>$2/embed>/OBJECT>")
re=/(\[FLASH=*([0-9]*),*([0-9]*)\])(.*?)(\[\/FLASH\])/ig
strContent= strContent.replace(re,"a href=$4 TARGET=_blank>IMG SRC=pic/swf.gif border=0 alt=點擊開新窗口欣賞該FLASH動畫!> [全屏欣賞]/a>br>br>OBJECT codeBase=http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0 classid=clsid:D27CDB6E-AE6D-11cf-96B8-444553540000 width=$2 height=$3>PARAM NAME=movie VALUE=$4>PARAM NAME=quality VALUE=high>param name=menu value=false>embed src=$4 quality=high menu=false pluginspage='http://www.macromedia.com/go/getflashplayer' type='application/x-shockwave-flash' width=$2 height=$3>$4/embed>/OBJECT>")

re=/(\[UPLOAD=gif\])(.*?)(\[\/UPLOAD\])/ig
strContent= strContent.replace(re,"br>IMG SRC="+picurl+"gif.gif border=0>此主題相關(guān)圖片如下：br>A HREF=$2 TARGET=_blank>IMG SRC=$2 border=0 alt=按此在新窗口瀏覽圖片 onload=\"javascript:if(this.width>screen.width-333)this.width=screen.width-333\">/A>")
re=/(\[UPLOAD=jpg\])(.*?)(\[\/UPLOAD\])/ig
strContent= strContent.replace(re,"br>IMG SRC="+picurl+"jpg.gif border=0>此主題相關(guān)圖片如下：br>A HREF=$2 TARGET=_blank>IMG SRC=$2 border=0 alt=按此在新窗口瀏覽圖片 onload=\"javascript:if(this.width>screen.width-333)this.width=screen.width-333\">/A>")
re=/(\[UPLOAD=bmp\])(.*?)(\[\/UPLOAD\])/ig
strContent= strContent.replace(re,"br>IMG SRC="+picurl+"bmp.gif border=0>此主題相關(guān)圖片如下：br>A HREF=$2 TARGET=_blank>IMG SRC=$2 border=0 alt=按此在新窗口瀏覽圖片 onload=\"javascript:if(this.width>screen.width-333)this.width=screen.width-333\">/A>")

re=/(\[UPLOAD=(.[^\[]*)\])(.*?)(\[\/UPLOAD\])/ig
strContent= strContent.replace(re,"br>IMG SRC="+picurl+"$2.gif border=0> a href=$3>點擊瀏覽該文件/a>")

re=/(\[URL\])(.*?)(\[\/URL\])/ig
strContent= strContent.replace(re,"A HREF=$2 TARGET=_blank>$2/A>")
re=/(\[URL=(.[^\[]*)\])(.*?)(\[\/URL\])/ig
strContent= strContent.replace(re,"A HREF=$2 TARGET=_blank>$3/A>")

re=/(\[EMAIL\])(.*?)(\[\/EMAIL\])/ig
strContent= strContent.replace(re,"img align=absmiddle src=pic/email1.gif>A HREF=\"mailto:$2\">$2/A>")
re=/(\[EMAIL=(.[^\[]*)\])(.*?)(\[\/EMAIL\])/ig
strContent= strContent.replace(re,"img align=absmiddle src=pic/email1.gif>A HREF=\"mailto:$2\" TARGET=_blank>$3/A>")

re =/^(http:\/\/[A-Za-z0-9\.\/=\?%\-_~`@':+!]+)/ig
strContent = strContent.replace(re,"img align=absmiddle src=pic/url.gif>a target=_blank href=$1>$1/a>")
re =/(http:\/\/[A-Za-z0-9\.\/=\?%\-_~`@':+!]+)$/ig
strContent = strContent.replace(re,"img align=absmiddle src=pic/url.gif>a target=_blank href=$1>$1/a>")
re =/[^>=""](http:\/\/[A-Za-z0-9\.\/=\?%\-_~`@':+!]+)/ig
strContent = strContent.replace(re,"img align=absmiddle src=pic/url.gif>a target=_blank href=$1>$1/a>")
re =/^(ftp:\/\/[A-Za-z0-9\.\/=\?%\-_~`@':+!]+)/ig
strContent = strContent.replace(re,"img align=absmiddle src=pic/url.gif>a target=_blank href=$1>$1/a>")
re =/(ftp:\/\/[A-Za-z0-9\.\/=\?%\-_~`@':+!]+)$/ig
strContent = strContent.replace(re,"img align=absmiddle src=pic/url.gif>a target=_blank href=$1>$1/a>")
re =/[^>=""](ftp:\/\/[A-Za-z0-9\.\/=\?%\-_~`@':+!]+)/ig
strContent = strContent.replace(re,"img align=absmiddle src=pic/url.gif>a target=_blank href=$1>$1/a>")
re =/^(rtsp:\/\/[A-Za-z0-9\.\/=\?%\-_~`@':+!]+)/ig
strContent = strContent.replace(re,"img align=absmiddle src=pic/url.gif>a target=_blank href=$1>$1/a>")
re =/(rtsp:\/\/[A-Za-z0-9\.\/=\?%\-_~`@':+!]+)$/ig
strContent = strContent.replace(re,"img align=absmiddle src=pic/url.gif>a target=_blank href=$1>$1/a>")
re =/[^>=""](rtsp:\/\/[A-Za-z0-9\.\/=\?%\-_~`@':+!]+)/ig
strContent = strContent.replace(re,"img align=absmiddle src=pic/url.gif>a target=_blank href=$1>$1/a>")
re =/^(mms:\/\/[A-Za-z0-9\.\/=\?%\-_~`@':+!]+)/ig
strContent = strContent.replace(re,"img align=absmiddle src=pic/url.gif>a target=_blank href=$1>$1/a>")
re =/(mms:\/\/[A-Za-z0-9\.\/=\?%\-_~`@':+!]+)$/ig
strContent = strContent.replace(re,"img align=absmiddle src=pic/url.gif>a target=_blank href=$1>$1/a>")
re =/[^>=""](mms:\/\/[A-Za-z0-9\.\/=\?%\-_~`@':+!]+)/ig
strContent = strContent.replace(re,"img align=absmiddle src=pic/url.gif>a target=_blank href=$1>$1/a>")

if(strIcons == "1"){ //笑臉轉(zhuǎn)換
re=/(\[em(.*?)\])/ig
strContent=strContent.replace(re,"img src="+picurl+ImgName+"$2.gif border=0 align=middle>")
}

if(strSmile == "1"){ //笑臉轉(zhuǎn)換
re=/(\[s(\d{1,2})\])/ig
strContent=strContent.replace(re,"img src=smile/face$2.gif border=0 align=middle>")
}

re=/(\[color=(.[^\[]*)\])(.*?)(\[\/color\])/ig
strContent=strContent.replace(re,"font color=$2>$3/font>")
re=/(\[face=(.[^\[]*)\])(.*?)(\[\/face\])/ig
strContent=strContent.replace(re,"font face=$2>$3/font>")
re=/(\[align=(.[^\[]*)\])(.*?)(\[\/align\])/ig
strContent=strContent.replace(re,"div align=$2>$3/div>")
//循環(huán)轉(zhuǎn)換quote
re=/(\[QUOTE\])(.*?)(\[\/QUOTE\])/ig
while(strContent.indexOf("[quote]")>0 strContent.indexOf("[/quote] ")>0){
strContent=strContent.replace(re,"blockquote>引用:hr>span>$2/span>hr>/blockquote>")
}
re=/(\[fly\])(.*?)(\[\/fly\])/ig
strContent=strContent.replace(re,"marquee width=90% behavior=alternate scrollamount=3>$2/marquee>")
re=/(\[move\])(.*?)(\[\/move\])/ig
strContent=strContent.replace(re,"MARQUEE scrollamount=3>$2/marquee>")
re=/\[GLOW=*([0-9]*),*(#*[a-z0-9]*),*([0-9]*)\](.*?)\[\/GLOW]/ig
strContent=strContent.replace(re,"table width=$1 style=\"filter:glow(color=$2, strength=$3)\">$4/table>")
re=/\[SHADOW=*([0-9]*),*(#*[a-z0-9]*),*([0-9]*)\](.*?)\[\/SHADOW]/ig
strContent=strContent.replace(re,"table width=$1 style=\"filter:shadow(color=$2, strength=$3)\">$4/table>")

re=/(\[i\])(.*?)(\[\/i\])/ig
strContent=strContent.replace(re,"i>$2/i>")
re=/(\[u\])(.*?)(\[\/u\])/ig
strContent=strContent.replace(re,"u>$2/u>")
re=/(\[b\])(.*?)(\[\/b\])/ig
strContent=strContent.replace(re,"b>$2/b>")

re=/(\[size=1\])(.*?)(\[\/size\])/ig
strContent=strContent.replace(re,"font size=1>$2/font>")
re=/(\[size=2\])(.*?)(\[\/size\])/ig
strContent=strContent.replace(re,"font size=2>$2/font>")
re=/(\[size=3\])(.*?)(\[\/size\])/ig
strContent=strContent.replace(re,"font size=5>$2/font>")
re=/(\[size=4\])(.*?)(\[\/size\])/ig
strContent=strContent.replace(re,"font size=6>$2/font>")

re=/\[size=([+|-]?[0-7])\](.*?)(\[\/size\])/ig
strContent=strContent.replace(re,"font size=$1>$2/font>")

re=/(\[list\])(.+?)(\[\/list\])/ig;
    strContent=strContent.replace(re,"UL TYPE=SQUARE>$2\/UL>");
    re=/(\[list=)(A|1)(\])(.+?)(\[\/list\])/ig;
    strContent=strContent.replace(re,"OL TYPE=$2>$4\/OL>");
    re=/(\[\*\])/ig;
    strContent=strContent.replace(re,"LI>");

re=/(\[center\])(.*?)(\[\/center\])/ig
strContent=strContent.replace(re,"center>$2/center>")

re=/(\[table=(#*[a-z0-9]*),(#*[a-z0-9]*),(#*[a-z0-9]*)\])(.*?)(\[\/table\])/ig
strContent=strContent.replace(re,"table border=0 cellpadding=5 cellspacing=1 bgcolor=$2>tr>td bgcolor=$3>font color=$4>$5/font>/td>/tr>/table>")

return(strContent);
}
/script>

vbscript:

復(fù)制代碼代碼如下:

TEXTAREA name=phx cols=65 rows=12>
[i][b][color=blue]blue[/color][/b][/i]

{html}[color=red]te
st[/color]{/html}

{html}[code]te
st[/code]{/html}

[code]{html}te
st{/html}[/code]/textarea>
br>button onclick=show.innerHTML=UBBCode(phx.value)>轉(zhuǎn)換/button>br>
div id=show style="border:1 solid skyblue;width=500;font-size: 12px;FONT-FAMILY:
'Tahoma', 'MS Shell Dlg';
">/div>

script language=vbs>
strIcons = "1" '允許笑臉轉(zhuǎn)換
strSmile="1" '同上
ImgName="em"
picurl="pic/"

function UBBCode(content)
'on error resume next
st=timer
set re=new regexp
re.global=true

re.pattern="\[code\](\r\n)?([\s\S]+?)\[\/code\]"
Set Matches = re.Execute(content)   ' Execute search.
dim code()
n=0
if re.test(content) then codeb=true
if codeb then
For Each Match in Matches      ' Iterate Matches collection.
   redim Preserve code(n)
    code(n) =Match.Value
    n=n+1
Next
for i=0 to ubound(code)
if code(i)="" then exit for
content=replace(content,code(i),"{code"i"}")
next
end if

re.pattern="\[html\](\r\n)?([\s\S]+?)\[\/html\]"
Set Matches = re.Execute(content)   ' Execute search.
dim html()
n=0
if re.test(content) then htmlb=true
if htmlb then
For Each Match in Matches      ' Iterate Matches collection.
   redim Preserve html(n)
    html(n) =Match.Value
n=n+1
Next
for i=0 to ubound(html)
if html(i)="" then exit for
content=replace(content,html(i),"{html"i"}")
next
end if

content=gmt(content) 'ubb

if codeb then
for i=0 to ubound(code)
if code(i)="" then exit for
tcode=hencode(code(i))
content=replace(content,"{code"i"}",tcode)
next
end if
'-----
re.pattern="\[html\](\r\n)?([\s\S]+?)\[\/html\]"
Set Matches = re.Execute(content)   ' Execute search.
dim html2()
n=0
if re.test(content) then html2b=true
if html2b then
For Each Match in Matches      ' Iterate Matches collection.
   redim Preserve html2(n)
    html2(n) =Match.Value
n=n+1
Next
for i=0 to ubound(html2)
if html2(i)="" then exit for
content=replace(content,html2(i),"{html2"i"}")
next
end if

if htmlb then
for i=0 to ubound(html)
if html(i)="" then exit for
thtml=hencode(html(i))
content=replace(content,"{html"i"}",thtml)
next
end if

re.Pattern="(\[code\])(\r\n)?([\s\S]+?)(\[\/code\])"
content=re.Replace(content,"PRE class=CodeSamp>$3/PRE>")

re.Pattern="(\[html\])(\r\n)?([\s\S]+?)(\[\/html\])"
content=re.Replace(content,"span>TEXTAREA cols=95 rows=12>$3/TEXTAREA>br>INPUT onclick=runCode() type=button value=運行代碼>[Ctrl+A 全部選擇提示：你可先修改部分代碼，再按運行]/span>")

if html2b then
for i=0 to ubound(html2)
if html2(i)="" then exit for
thtml2=html2(i)
content=replace(content,"{html2"i"}",thtml2)
next
end if

UBBCode=content
msgbox "轉(zhuǎn)換共耗時 "formatnumber((timer-st)*1000,2)" ms"
end function

function hencode(fString) '簡單模擬server.htmlencode ASP中不用這個
fString = replace(fString,"","")
fString = replace(fString,">","gt;")
fString = replace(fString,"","lt;")
hencode=fString
end function

function DvbbsHtmlAn(fString)

if not isnull(fString) then

fString=hencode(fString)
fString = Replace(fString, CHR(9), "nbsp;nbsp;nbsp;") 'Tab
fString = Replace(fString, CHR(34), "quot;")   '"
fString = Replace(fString, CHR(39), "#39;")   ''
fString = Replace(fString, CHR(13), "")    '回車是一個13+10
fString = Replace(fString, CHR(10) CHR(10), "P>")'  '
fString = Replace(fString, CHR(10), "BR>")
fString = Replace(fString, CHR(32), "nbsp;")   ' 空格

DvbbsHtmlAn = fString
end if
end function

function gmt(strContent)

strContent=DvbbsHtmlAn(strContent)

dim re
Set re=new RegExp
re.IgnoreCase =true
re.Global=True

re.Pattern="(\[IMG\])(.*?)(\[\/IMG\])"
strContent=re.Replace(strContent,"a href=$2 target=_blank>IMG SRC=""$2"" border=0 alt=按此在新窗口瀏覽圖片 onload=""javascript:if(this.width>screen.width-333)this.width=screen.width-333"" galleryImg=no>/a>")

if Not UserSign or (UserSign and UserImgCode=1) then
re.Pattern="\[DIR=*([0-9]*),*([0-9]*)\](.*?)\[\/DIR]"
strContent=re.Replace(strContent,"object classid=clsid:166B1BCA-3F9C-11CF-8075-444553540000 codebase=http://download.macromedia.com/pub/shockwave/cabs/director/sw.cab#version=7,0,2,0 width=$1 height=$2>param name=src value=$3>embed src=$3 pluginspage=http://www.macromedia.com/shockwave/download/ width=$1 height=$2>/embed>/object>")
re.Pattern="\[QT=*([0-9]*),*([0-9]*)\](.*?)\[\/QT]"
strContent=re.Replace(strContent,"embed src=$3 width=$1 height=$2 autoplay=true loop=false controller=true playeveryframe=false cache=false scale=TOFIT bgcolor=#000000 kioskmode=false targetcache=false pluginspage=http://www.apple.com/quicktime/>")
re.Pattern="\[MP=*([0-9]*),*([0-9]*)\](.*?)\[\/MP]"
strContent=re.Replace(strContent,"object align=middle classid=CLSID:22d6f312-b0f6-11d0-94ab-0080c74c7e95 class=OBJECT id=MediaPlayer width=$1 height=$2 >param name=ShowStatusBar value=-1>param name=Filename value=$3>embed type=application/x-oleobject codebase=http://activex.microsoft.com/activex/controls/mplayer/en/nsmp2inf.cab#Version=5,1,52,701 flename=mp src=$3 width=$1 height=$2>/embed>/object>")
re.Pattern="\[RM=*([0-9]*),*([0-9]*)\](.*?)\[\/RM]"
strContent=re.Replace(strContent,"OBJECT classid=clsid:CFCDAA03-8BE4-11cf-B84B-0020AFBBCCFA class=OBJECT id=RAOCX width=$1 height=$2>PARAM NAME=SRC VALUE=$3>PARAM NAME=CONSOLE VALUE=Clip1>PARAM NAME=CONTROLS VALUE=imagewindow>PARAM NAME=AUTOSTART VALUE=true>/OBJECT>br>OBJECT classid=CLSID:CFCDAA03-8BE4-11CF-B84B-0020AFBBCCFA height=32 id=video2 width=$1>PARAM NAME=SRC VALUE=$3>PARAM NAME=AUTOSTART VALUE=-1>PARAM NAME=CONTROLS VALUE=controlpanel>PARAM NAME=CONSOLE VALUE=Clip1>/OBJECT>")
end if

re.Pattern="(\[FLASH\])(.*?)(\[\/FLASH\])"
strContent= re.Replace(strContent,"OBJECT codeBase=http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0 classid=clsid:D27CDB6E-AE6D-11cf-96B8-444553540000 width=500 height=400>PARAM NAME=movie VALUE=""$2"">PARAM NAME=quality VALUE=high>embed src=""$2"" quality=high pluginspage='http://www.macromedia.com/go/getflashplayer' type='application/x-shockwave-flash' width=500 height=400>$2/embed>/OBJECT>")
re.Pattern="(\[FLASH=*([0-9]*),*([0-9]*)\])(.*?)(\[\/FLASH\])"
strContent= re.Replace(strContent,"a href=""$4"" TARGET=_blank>IMG SRC=pic/swf.gif border=0 alt=點擊開新窗口欣賞該FLASH動畫!> [全屏欣賞]/a>br>br>OBJECT codeBase=http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0 classid=clsid:D27CDB6E-AE6D-11cf-96B8-444553540000 width=$2 height=$3>PARAM NAME=movie VALUE=""$4"">PARAM NAME=quality VALUE=high>param name=menu value=false>embed src=""$4"" quality=high menu=false pluginspage='http://www.macromedia.com/go/getflashplayer' type='application/x-shockwave-flash' width=$2 height=$3>$4/embed>/OBJECT>")

re.Pattern="(\[UPLOAD=gif\])(.*?)(\[\/UPLOAD\])"
strContent= re.Replace(strContent,"br>IMG SRC="""picurl"gif.gif"" border=0>此主題相關(guān)圖片如下：br>A HREF=""$2"" TARGET=_blank>IMG SRC=""$2"" border=0 alt=按此在新窗口瀏覽圖片 onload=""javascript:if(this.width>screen.width-333)this.width=screen.width-333"">/A>")
re.Pattern="(\[UPLOAD=jpg\])(.*?)(\[\/UPLOAD\])"
strContent= re.Replace(strContent,"br>IMG SRC="""picurl"jpg.gif"" border=0>此主題相關(guān)圖片如下：br>A HREF=""$2"" TARGET=_blank>IMG SRC=""$2"" border=0 alt=按此在新窗口瀏覽圖片 onload=""javascript:if(this.width>screen.width-333)this.width=screen.width-333"">/A>")
re.Pattern="(\[UPLOAD=bmp\])(.*?)(\[\/UPLOAD\])"
strContent= re.Replace(strContent,"br>IMG SRC="""picurl"bmp.gif"" border=0>此主題相關(guān)圖片如下：br>A HREF=""$2"" TARGET=_blank>IMG SRC=""$2"" border=0 alt=按此在新窗口瀏覽圖片 onload=""javascript:if(this.width>screen.width-333)this.width=screen.width-333"">/A>")

re.Pattern="(\[UPLOAD=(.[^\[]*)\])(.*?)(\[\/UPLOAD\])"
strContent= re.Replace(strContent,"br>IMG SRC="""picurl"$2.gif"" border=0> a href=""$3"">點擊瀏覽該文件/a>")

re.Pattern="(\[URL\])(.*?)(\[\/URL\])"
strContent= re.Replace(strContent,"A HREF=""$2"" TARGET=_blank>$2/A>")
re.Pattern="(\[URL=(.[^\[]*)\])(.*?)(\[\/URL\])"
strContent= re.Replace(strContent,"A HREF=""$2"" TARGET=_blank>$3/A>")

re.Pattern="(\[EMAIL\])(.*?)(\[\/EMAIL\])"
strContent= re.Replace(strContent,"img align=absmiddle src=pic/email1.gif>A HREF=""mailto:$2"">$2/A>")
re.Pattern="(\[EMAIL=(.[^\[]*)\])(.*?)(\[\/EMAIL\])"
strContent= re.Replace(strContent,"img align=absmiddle src=pic/email1.gif>A HREF=""mailto:$2"" TARGET=_blank>$3/A>")

re.Pattern = "^(http://[A-Za-z0-9\./=\?%\-_~`@':+!]+)"
strContent = re.Replace(strContent,"img align=absmiddle src=pic/url.gif>a target=_blank href=$1>$1/a>")
re.Pattern = "(http://[A-Za-z0-9\./=\?%\-_~`@':+!]+)$"
strContent = re.Replace(strContent,"img align=absmiddle src=pic/url.gif>a target=_blank href=$1>$1/a>")
re.Pattern = "(BR>|P>)(http://[A-Za-z0-9\./=\?%\-_~`@':+!]+)(BR>|P>)"
strContent = re.Replace(strContent,"$1img align=absmiddle src=pic/url.gif>a target=_blank href=$2>$2/a>$3")
re.Pattern = "^(ftp://[A-Za-z0-9\./=\?%\-_~`@':+!]+)"
strContent = re.Replace(strContent,"img align=absmiddle src=pic/url.gif>a target=_blank href=$1>$1/a>")
re.Pattern = "(ftp://[A-Za-z0-9\./=\?%\-_~`@':+!]+)$"
strContent = re.Replace(strContent,"img align=absmiddle src=pic/url.gif>a target=_blank href=$1>$1/a>")
re.Pattern = "[^>=""](ftp://[A-Za-z0-9\.\/=\?%\-_~`@':+!]+)"
strContent = re.Replace(strContent,"img align=absmiddle src=pic/url.gif>a target=_blank href=$1>$1/a>")
re.Pattern = "^(rtsp://[A-Za-z0-9\./=\?%\-_~`@':+!]+)"
strContent = re.Replace(strContent,"img align=absmiddle src=pic/url.gif>a target=_blank href=$1>$1/a>")
re.Pattern = "(rtsp://[A-Za-z0-9\./=\?%\-_~`@':+!]+)$"
strContent = re.Replace(strContent,"img align=absmiddle src=pic/url.gif>a target=_blank href=$1>$1/a>")
re.Pattern = "[^>=""](rtsp://[A-Za-z0-9\.\/=\?%\-_~`@':+!]+)"
strContent = re.Replace(strContent,"img align=absmiddle src=pic/url.gif>a target=_blank href=$1>$1/a>")
re.Pattern = "^(mms://[A-Za-z0-9\./=\?%\-_~`@':+!]+)"
strContent = re.Replace(strContent,"img align=absmiddle src=pic/url.gif>a target=_blank href=$1>$1/a>")
re.Pattern = "(mms://[A-Za-z0-9\./=\?%\-_~`@':+!]+)$"
strContent = re.Replace(strContent,"img align=absmiddle src=pic/url.gif>a target=_blank href=$1>$1/a>")
re.Pattern = "[^>=""](mms://[A-Za-z0-9\.\/=\?%\-_~`@':+!]+)"
strContent = re.Replace(strContent,"img align=absmiddle src=pic/url.gif>a target=_blank href=$1>$1/a>")

if strIcons = "1" then '笑臉轉(zhuǎn)換
re.Pattern="(\["ImgName"(.*?)\])"
strContent=re.Replace(strContent,"img src="picurlImgName"$2.gif border=0 align=middle>")
end if

if strSmile = "1" then '笑臉轉(zhuǎn)換
re.Pattern="(\[s(\d{1,2})\])"
strContent=re.Replace(strContent,"img src=smile/face$2.gif border=0 align=middle>")
end if

re.Pattern="(\[color=(.[^\[]*)\])(.*?)(\[\/color\])"
strContent=re.Replace(strContent,"font color=$2 style=""font-size:"FontSize"pt;line-height:"FontHeight"pt"">$3/font>")
re.Pattern="(\[face=(.[^\[]*)\])(.*?)(\[\/face\])"
strContent=re.Replace(strContent,"font face=$2 style=""font-size:"FontSize"pt;line-height:"FontHeight"pt"">$3/font>")
re.Pattern="(\[align=(.[^\[]*)\])(.*?)(\[\/align\])"
strContent=re.Replace(strContent,"div align=$2>$3/div>")
'循環(huán)轉(zhuǎn)換quote
re.Pattern="(\[QUOTE\])(.*?)(\[\/QUOTE\])"
while (instr(strContent,"[quote]")>0 and instr(strContent,"[/quote]")>0)
strContent=re.Replace(strContent,"blockquote>引用:hr>span>$2/span>hr>/blockquote>")
wend
re.Pattern="(\[fly\])(.*?)(\[\/fly\])"
strContent=re.Replace(strContent,"marquee width=90% behavior=alternate scrollamount=3>$2/marquee>")
re.Pattern="(\[move\])(.*?)(\[\/move\])"
strContent=re.Replace(strContent,"MARQUEE scrollamount=3>$2/marquee>")
re.Pattern="\[GLOW=*([0-9]*),*(#*[a-z0-9]*),*([0-9]*)\](.*?)\[\/GLOW]"
strContent=re.Replace(strContent,"table width=$1 style=""filter:glow(color=$2, strength=$3)"">$4/table>")
re.Pattern="\[SHADOW=*([0-9]*),*(#*[a-z0-9]*),*([0-9]*)\](.*?)\[\/SHADOW]"
strContent=re.Replace(strContent,"table width=$1 style=""filter:shadow(color=$2, strength=$3)"">$4/table>")

re.Pattern="(\[i\])(.*?)(\[\/i\])"
strContent=re.Replace(strContent,"i>$2/i>")
re.Pattern="(\[u\])(.*?)(\[\/u\])"
strContent=re.Replace(strContent,"u>$2/u>")
re.Pattern="(\[b\])(.*?)(\[\/b\])"
strContent=re.Replace(strContent,"b>$2/b>")

re.Pattern="(\[size=1\])(.*?)(\[\/size\])"
strContent=re.Replace(strContent,"font size=1 style=""line-height:"FontHeight"pt"">$2/font>")
re.Pattern="(\[size=2\])(.*?)(\[\/size\])"
strContent=re.Replace(strContent,"font size=2 style=""line-height:"FontHeight"pt"">$2/font>")
re.Pattern="(\[size=3\])(.*?)(\[\/size\])"
strContent=re.Replace(strContent,"font size=5 style=""line-height:"FontHeight"pt"">$2/font>")
re.Pattern="(\[size=4\])(.*?)(\[\/size\])"
strContent=re.Replace(strContent,"font size=6 style=""line-height:"FontHeight"pt"">$2/font>")

re.Pattern="\[size=([+|-]?[0-7])\](.*?)(\[\/size\])"
strContent=re.Replace(strContent,"font size=$1 style=""line-height:"FontHeight"pt"">$2/font>")

re.Pattern="(\[center\])(.*?)(\[\/center\])"
strContent=re.Replace(strContent,"center>$2/center>")

re.Pattern="(\[table=(#*[a-z0-9]*),(#*[a-z0-9]*),(#*[a-z0-9]*)\])(.*?)(\[\/table\])"
strContent=re.Replace(strContent,"table border=0 cellpadding=5 cellspacing=1 bgcolor=$2>tr>td bgcolor=$3>font color=$4>$5/font>/td>/tr>/table>")

'{HTML} start
're.Pattern="(\[html\])(.*?)(\[\/html\])"
'strContent=re.Replace(strContent,"span>TEXTAREA cols=95 rows=12>$2/TEXTAREA>br>INPUT onclick=runCode() type=button value=運行代碼>[Ctrl+A 全部選擇提示：你可先修改部分代碼，再按運行]/span>")

'{/HTML}end

set re=Nothing
gmt=strContent
end function

/script>

標(biāo)簽：衡陽樂山德陽婁底海南黔東邯鄲內(nèi)江

巨人網(wǎng)絡(luò)通訊聲明：本文標(biāo)題《UBB 轉(zhuǎn)換函數(shù)演示 (經(jīng)典論壇)》，本文關(guān)鍵詞 UBB,轉(zhuǎn)換,函數(shù),演示,經(jīng)典,；如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問題，煩請?zhí)峁┫嚓P(guān)信息告之我們，我們將及時溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò)，涉及言論、版權(quán)與本站無關(guān)。