打印本文 打印本文 关闭窗口 关闭窗口
UBB 转换函数演示
作者：武汉SEO闵涛  文章来源：敏韬网  点击数2982  更新时间：2009/4/23 12:32:02  文章录入：mintao  责任编辑：mintao
A-Za-z0-9\.\/=\?%\-&_~`@':+!]+)$/ig
 strContent = strContent.replace(re,"<img align=absmiddle src="/Files/BeyondPic/chinazcj/2005-11/20/05112015513176898.gif"><a target=_blank href=$1>$1</a>")
 re =/[^>=""](http:\/\/[A-Za-z0-9\.\/=\?%\-&_~`@':+!]+)/ig
 strContent = strContent.replace(re,"<img align=absmiddle src="/Files/BeyondPic/chinazcj/2005-11/20/05112015513176898.gif"><a target=_blank href=$1>$1</a>")
 re =/^(ftp:\/\/[A-Za-z0-9\.\/=\?%\-&_~`@':+!]+)/ig
 strContent = strContent.replace(re,"<img align=absmiddle src="/Files/BeyondPic/chinazcj/2005-11/20/05112015513176898.gif"><a target=_blank href=$1>$1</a>")
 re =/(ftp:\/\/[A-Za-z0-9\.\/=\?%\-&_~`@':+!]+)$/ig
 strContent = strContent.replace(re,"<img align=absmiddle src="/Files/BeyondPic/chinazcj/2005-11/20/05112015513176898.gif"><a target=_blank href=$1>$1</a>")
 re =/[^>=""](ftp:\/\/[A-Za-z0-9\.\/=\?%\-&_~`@':+!]+)/ig
 strContent = strContent.replace(re,"<img align=absmiddle src="/Files/BeyondPic/chinazcj/2005-11/20/05112015513176898.gif"><a target=_blank href=$1>$1</a>")
 re =/^(rtsp:\/\/[A-Za-z0-9\.\/=\?%\-&_~`@':+!]+)/ig
 strContent = strContent.replace(re,"<img align=absmiddle src="/Files/BeyondPic/chinazcj/2005-11/20/05112015513176898.gif"><a target=_blank href=$1>$1</a>")
 re =/(rtsp:\/\/[A-Za-z0-9\.\/=\?%\-&_~`@':+!]+)$/ig
 strContent = strContent.replace(re,"<img align=absmiddle src="/Files/BeyondPic/chinazcj/2005-11/20/05112015513176898.gif"><a target=_blank href=$1>$1</a>")
 re =/[^>=""](rtsp:\/\/[A-Za-z0-9\.\/=\?%\-&_~`@':+!]+)/ig
 strContent = strContent.replace(re,"<img align=absmiddle src="/Files/BeyondPic/chinazcj/2005-11/20/05112015513176898.gif"><a target=_blank href=$1>$1</a>")
 re =/^(mms:\/\/[A-Za-z0-9\.\/=\?%\-&_~`@':+!]+)/ig
 strContent = strContent.replace(re,"<img align=absmiddle src="/Files/BeyondPic/chinazcj/2005-11/20/05112015513176898.gif"><a target=_blank href=$1>$1</a>")
 re =/(mms:\/\/[A-Za-z0-9\.\/=\?%\-&_~`@':+!]+)$/ig
 strContent = strContent.replace(re,"<img align=absmiddle src="/Files/BeyondPic/chinazcj/2005-11/20/05112015513176898.gif"><a target=_blank href=$1>$1</a>")
 re =/[^>=""](mms:\/\/[A-Za-z0-9\.\/=\?%\-&_~`@':+!]+)/ig
 strContent = strContent.replace(re,"<img align=absmiddle src="/Files/BeyondPic/chinazcj/2005-11/20/05112015513176898.gif"><a target=_blank href=$1>$1</a>")

 if(strIcons == "1"){                       //笑脸转换
 re=/(\[em(.*?)\])/ig
 strContent=strContent.replace(re,"<img src="/Files/BeyondPic/chinazcj/2005-11/20/05112015514893788.gif" border=0 align=middle>")
 }

 if(strSmile == "1"){                       //笑脸转换
 re=/(\[s(\d{1,2})\])/ig
 strContent=strContent.replace(re,"<img src="/Files/BeyondPic/chinazcj/2005-11/20/05112015514850111.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>")
//循环转换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)>转换</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"  '允许笑脸转换
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 exi

上一页  [1] [2] [3] [4]  下一页

打印本文 打印本文 关闭窗口 关闭窗口