国产激情自拍_国产9色视频_丁香花在线电影小说观看 _久久久久国产精品嫩草影院

首頁 > 辦公 > Dreamweaver > 正文

UBB 轉(zhuǎn)換函數(shù)演示-Dreamweaver教程

2024-09-12 12:29:52
字體:
供稿:網(wǎng)友

ubb代碼對于經(jīng)常上論壇的朋友來說是最熟悉不過了。
經(jīng)典論壇的ubb轉(zhuǎn)換我覺得是處理的非常好的,研究了一下它的轉(zhuǎn)換結(jié)果[因?yàn)闆]有源碼:)],做了下面的演示。轉(zhuǎn)換結(jié)果基本上覺得象了。

主要是針對[code][html]這兩個(gè)標(biāo)簽的處理,其他的ubb標(biāo)簽還是一般的處理方法。

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

歡迎大家輸入盡量多格式的ubb進(jìn)行測試,多多指出錯(cuò)誤。

javascript:

<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" //答應(yīng)笑臉轉(zhuǎn)換
strsmile="1" //同上
imgname="em"
picurl="pic/"

function ubbcode(content,html){
st=new date().gettime()
content=content.replace(//[(//)?phx_code/]/ig,"{$1phx_code}");
content=content.replace(//[(//)?phx_html/]/ig,"{$1phx_html}");
content="[phx_code]" content "[/phx_code]";
content=content.replace(/(/[code/]([/s/s] ?)/[//code/])/ig,"[/phx_code]$1[phx_code]");
content=content.replace(//[phx_code/]([/s/s]*?)/[//phx_code/]/ig,function($1,$2){if(html=="html"){return(htmlcode($2));}else{return(trans($2));}});
content=content.replace(//[code/](/r/n)?([/s/s] ?)/[//code/]/ig,function($1,$2,$3){return("<pre class=codesamp>" dvbbshtmlan($3) "</pre>")});
content=content.replace(//{(//)?phx_code/}/ig,"[$1phx_code]");
content=content.replace(//{(//)?phx_html/}/ig,"[$1phx_html]");
alert('共耗時(shí) ' eval(new date().gettime()-st) ' ms');
return(content);
}

function htmlcode(content){
content="[phx_html]" content "[/phx_html]";
content=content.replace(/(/[html/]([/s/s] ?)/[//html/])/ig,"[/phx_html]$1[phx_html]");
content=content.replace(//[phx_html/]([/s/s]*?)/[//phx_html/]/ig,function($1,$2){return(trans($2))});
content=content.replace(//[html/]([/s/s] ?)/[//html/]/ig,function($1,$2){return("<span><textarea cols=95 rows=12>" hencode($2) "</textarea><br><input onclick=runcode() type=button value=運(yùn)行代碼>[ctrl a 全部選擇 提示:你可先修改部分代碼,再按運(yùn)行]</span>")});
return(content);|||
}

function hencode(fstring){ //簡單模擬server.htmlencode asp中不用這個(gè)
fstring = fstring.replace(/&/ig,"&amp;")
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,"") //回車是一個(gè)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=按此在新窗口瀏覽圖片 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=點(diǎn)擊開新窗口欣賞該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=按此在新窗口瀏覽圖片 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=按此在新窗口瀏覽圖片 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=按此在新窗口瀏覽圖片 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>點(diǎn)擊瀏覽該文件</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=/"$2mailto:$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:

<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)>轉(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" '答應(yīng)笑臉轉(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=運(yùn)行代碼>[ctrl a 全部選擇 提示:你可先修改部分代碼,再按運(yùn)行]</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)換共耗時(shí) "&formatnumber((timer-st)*1000,2)&" ms"
end function

function hencode(fstring) '簡單模擬server.htmlencode asp中不用這個(gè)
fstring = replace(fstring,"&","&amp;")
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), "") '回車是一個(gè)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=按此在新窗口瀏覽圖片 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=點(diǎn)擊開新窗口欣賞該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=按此在新窗口瀏覽圖片 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=按此在新窗口瀏覽圖片 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=按此在新窗口瀏覽圖片 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"">點(diǎn)擊瀏覽該文件</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=""$2|||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,"$1<img 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="&picurl&imgname&"$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=運(yùn)行代碼>[ctrl a 全部選擇 提示:你可先修改部分代碼,再按運(yùn)行]</span>")

'[html/] end


set re=nothing
gmt=strcontent
end function

</script>


發(fā)表評論 共有條評論
用戶名: 密碼:
驗(yàn)證碼: 匿名發(fā)表
国产激情自拍_国产9色视频_丁香花在线电影小说观看 _久久久久国产精品嫩草影院
丁香视频五月| 在线看黄色av| 国产精品理人伦一区二区三区| 国产网站免费看| 蜜桃av在线免费观看| 国产porny蝌蚪视频| 国产精品白浆视频免费观看| 超碰在线免费播放| 九九热视频在线观看| 欧美午夜电影一区二区三区| 永久免费不卡在线观看黄网站| 尤物视频在线观看视频| 国产精品伦理一区二区三区| 欧美精品小视频| 日本不卡影院| 国产无遮挡在线视频免费观看| 黄色片大全在线观看| 超碰免费在线观看| 国产精品视频一区麻豆| 精品视频二区三区| 不卡av免费观看| 国产一级二级在线| 日日夜夜中文字幕| 国产小视频在线高清播放| 国产95在线|亚洲| 综合激情亚洲| 永久免费在线观看| 国产裸舞福利在线视频合集| 伊人影院蕉久影院在线播放| 亚洲夜夜综合| 日本最新在线视频| 中文字幕av在线播放| www.大网伊人| 久草一本av| 国产美女视频一区二区二三区| eeuss影院www在线观看| 亚洲精品成人a| 四虎国产精品永久在线| 国产h色视频在线观看| 国产精品毛片一区二区三区四区 | 精品国产美女福利到在线不卡 | 国产国产人免费人成免费视频| 福利视频网址导航| √天堂8资源中文在线| 国产导航在线| 国产va在线| 国产黄色在线| 国产理论在线观看| 青青草原av在线| 精品av中文字幕在线毛片| av手机天堂| 影音先锋在线中文字幕| 国产在线观看网站| 伊人网在线免费观看| 国产九色porn网址| 久久久久久77777| 国产精品爱久久久久久久小说| 国产精品666| 丁香花高清视频完整版在线观看| 国产精品666| 国产精品视频一区二区久久| 欧美午夜电影一区二区三区| 天天操天天操天天色天天要| 快射av在线播放一区| 国产精品乱码一区二区三区视频| 中文在线视频| 四虎国产精品永久地址998| 麻豆精品免费视频入口| 精精国产xxxx视频在线| 国产精品黄页网站在线播放免费| 亚洲国产精华液| 国产精品久久麻豆| 影音先锋在线中文字幕| av中文天堂在线| 青青草视频在线观看| 在线观看视频污| 久久国产情侣| 在线āv视频| 国产黄色免费看| 国产91久久久久| 亚洲视频手机在线观看| 九色在线网站| 黄色av网址在线免费观看| 四虎国产精品永久地址998| 在线播放黄色网址| 在线视频二区| 国产精品伦一区二区三区视频| 免费国产在线视频| 美女av在线播放| 狠狠操视频网| 国产一级性片| 国产黄色大片在线观看| 黄色av免费在线| 成人免费一区二区三区牛牛| 成人午夜无人区一区二区| 国产成人夜间影院在线观看| 亚洲天堂电影在线观看| 国产女王在线**视频 | 青青久在线视频免费观看| 国产永久免费高清在线观看| 亚洲精品一线| 国产超碰97| 在线国产小视频| 国产在线中文字幕| 99热99re6国产在线播放| 精品一区二区观看| 伊人影院在线播放| 精品久久久久一区二区三区| 69日小视频在线观看| 日本在线视频www鲁啊鲁| 国产免费自拍视频| 国产一卡2卡3卡四卡网站| 午夜国产福利在线| 最近中文字幕mv免费高清视频8 | 国产在线www| 九九热视频在线| 最新天堂资源在线资源| 国产视频二区| 在线成人综合色一区| 日韩在线天堂| 国产系列电影在线播放网址| 中文字幕第一页av| 在线国产1区| 非洲黑人最猛性xxxx交| 国产欧美日本亚洲精品一4区| 国产成人精品18| 免费看黄视频网站| 成年人在线观看| 国产视频97| 人人干人人插| 国产青草视频在线观看视频| 在线播放av网站| 国产乱子伦三级在线播放| 91啦中文在线| 最新av免费看| 麻豆福利在线观看| 国产不卡一卡2卡三卡4卡5卡在线| 日韩中文字幕久久久经典网| 国产一级在线观看| 免费电影网站在线视频观看福利| 国产精品视频流白浆免费视频| 亚洲综合色视频在线观看| 黄色毛片在线| eeuss影院在线观看第一页| 国产视频在线播放| 成av人免费青青久| 四虎www视频| 亚洲综合激情六月婷婷在线观看 | 69国产精品| 午夜在线小视频| 麻豆精品视频入口| 亚洲欧美日韩综合精品网| 成在线人视频免费视频| a级在线观看| eeuss影院在线播放| 2018中文字幕在线| 国产黄色片中文字幕| 尤物网站在线| 国产免费av高清在线| 在线视频色在线| 在线免费看av| 69免费视频| aaa大片在线观看| √天堂资源中文www| 国产精品jvid在线观看| 国产黄a三级三级三级av在线看| 国产精品理人伦一区二区三区| 豆国产97在线|亚洲| 交换国产精品视频一区| 久热中文字幕精品视频在线| 波多野结衣久久高清免费| 日本啊v在线| 好男人免费精品视频| 天堂在线中文资源| 国产三级在线| 在线观看中文字幕的网站| 日本调教视频在线观看| 青青草视频免费在线观看| 久久99国产视频| 午夜伦全在线观看| 91在线视频免费看| a视频在线观看| 超碰免费在线播放| 国产精品入口麻豆免费看| 在线免费看av| 国产乱在线观看视频| 91久久精品国产性色| 久久99亚洲网美利坚合众国| 国产一级在线观看| 一本大道久久精品| 最新中文字幕在线| 亚洲wwwwww| 国产变态拳头交视频一区二区| jizz性欧美| 69久久精品| 国产性一级片| 国产在线www| 伊人网在线视频| 综合蜜桃精品| 九九热精品在线视频|