转至繁体中文版　　　  | 网站首页 | 图文教程 | 资源下载 | 站长博客 | 图片素材 | 武汉seo | 武汉网站优化 | 
最新公告：     敏韬网|教学资源学习资料永久免费分享站！  [mintao  2008年9月2日]        
您现在的位置： 学习笔记 >> 图文教程 >> 站长学院 >> 网页制作 >> 正文
UBB 转换函数演示    热     ★★★★

UBB 转换函数演示

作者：闵涛 文章来源：闵涛的学习笔记 点击数：2228 更新时间：2009/4/23 12:32:02
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]  下一页


[网页制作]UBB,剪贴板,textRange及其他  [网页制作]将 html 转成 ubb代码的小脚本
[Web开发]UBB,剪贴板,textRange及其他  
教程录入：mintao    责任编辑：mintao 
  • 上一篇教程：

  • 下一篇教程：
    • 【字体：小 大】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】
    　 注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网]
    　　网友评论：（只显示最新10条。评论内容只代表网友观点，与本站立场无关！）
    同类栏目
    · Web开发  · 网页制作
    · 平面设计  · 网站运营
    · 网站推广  · 搜索优化
    · 建站心得  · 站长故事
    · 互联动态
    更多内容
    热门推荐 更多内容
  • 没有教程
    		•
    赞助链接
    更多内容
    闵涛博文 更多关于武汉SEO的内容
    500 - 内部服务器错误。

    500 - 内部服务器错误。

    您查找的资源存在问题，因而无法显示。
    | 设为首页 |加入收藏 | 联系站长 | 友情链接 | 版权申明 | 广告服务
    MinTao学以致用网

    Copyright ＠ 2007-2012 敏韬网(敏而好学，文韬武略--MinTao.Net)（学习笔记） Inc All Rights Reserved.
    闵涛 投放广告、内容合作请Q我! E_mail:admin@mintao.net(欢迎提供学习资源)

    站长：MinTao ICP备案号：鄂ICP备11006601号-18

    闵涛站盟:医药大全-武穴网。A打造B、C、D……
    		咸宁网络警察报警平台