首页 美食 育儿 手工 生活 美妆 美容 设计 电脑 综合
电脑网络
搜索
首页 电脑网络 全部栏目 电脑网络最新信息 Web开发

ubbcode简单实用

2016-02-19 13:58 10 1 收藏

每个人都希望每天都是开心的，不要因为一些琐事扰乱了心情还，闲暇的时间怎么打发，关注图老师可以让你学习更多的好东西，下面为大家推荐ubbcode简单实用，赶紧看过来吧！

【 tulaoshi.com - Web开发 】

%
function ChkBadWords(fString)
if not(isnull(BadWords) or isnull(fString)) then
bwords = split(BadWords, "|")
for i = 0 to ubound(bwords)
fString = Replace(fString, bwords(i), string(len(bwords(i)),"*"))
next
ChkBadWords = fString
end if
end function

function HTMLEncode(fString)
if not isnull(fString) then
'fString = Replace(fString, CHR(38), "&")
'fString = replace(fString, "", "")
'fString = replace(fString, "", "")
'fString = Replace(fString, CHR(39), "'")
'fString = Replace(fString, CHR(32), " ")
'fString = Replace(fString, CHR(34), """)
'fString = Replace(fString, CHR(13), "")
fString = Replace(fString, CHR(10), "br/")
HTMLEncode = fString
end if
end function

function HTMLcode(fString)
if not isnull(fString) then
fString = Replace(fString, CHR(13), "")
fString = Replace(fString, CHR(10), "br/")
HTMLcode = fString
end if
end function
function HTMLDecode(fString)
if not isnull(fString) then
'fString = Replace(fString, CHR(38), "&")
'fString = replace(fString, "", "")
'fString = replace(fString, "", "")
'fString = Replace(fString, CHR(32), " ")
'fString = Replace(fString,"",CHR(13))
fString = Replace(fString,"br/",CHR(10))
HTMLDecode = fString
end if
end function

（本文来源于图老师网站，更多请访问http://www.tulaoshi.com/webkaifa/）

function UBBCode(strContent)
if strAllowHTML 1 then
strContent = HTMLEncode(strContent)
else
strContent = HTMLcode(strContent)
end if
dim re
Set re=new RegExp
re.IgnoreCase =true
re.Global=True

re.Pattern="[IMG](.[^[]*)[/IMG]"
strContent=re.Replace(strContent,"img src=""$1"" border=""0""/img")
re.Pattern="[IMG=*([0-9]*),*([0-9]*)](.[^[]*)[/IMG]"
strContent=re.Replace(strContent,"a href=""$3"" title=点击看全图 target=_blankimg src=""$3"" width=""$1"" height=""$2"" border=""0""/img/a")

'图文混排
re.Pattern="[PIC](.[^[]*)[/PIC]"
strContent=re.Replace(strContent,"img src=""$1"" border=""0"" align=""left""/img")
re.Pattern="[PIC=*([0-9]*),*([0-9]*)](.[^[]*)[/PIC]"
strContent=re.Replace(strContent,"a href=""$3"" title=点击看全图 target=_blankimg src=""$3"" width=""$1"" height=""$2"" border=""0"" align=""left""/img/a")



re.Pattern="[FLASH=*([0-9]*),*([0-9]*)](.[^[]*)[/FLASH]"
strContent= re.Replace(strContent,"EMBED SRC=""$3"" width=""$1"" height=""$2""/EMBED")
re.Pattern="[FLASH](.[^[]*)[/FLASH]"
strContent= re.Replace(strContent,"EMBED SRC=""$1""/EMBED")

re.Pattern="([URL])(http://.[^[]*)([/URL])"
strContent= re.Replace(strContent,"A HREF=""$2"" TARGET=""_blank""$2/A")
re.Pattern="([URL])(.[^[]*)([/URL])"
strContent= re.Replace(strContent,"A HREF=""http://$2"" TARGET=""_blank""$2/A")

re.Pattern="([EMAIL])(mailto://.[^[]*)([/EMAIL])"
strContent= re.Replace(strContent,"A HREF=""$2"" TARGET=""_blank""$2/A")
re.Pattern="([EMAIL])(.[^[]*)([/EMAIL])"
strContent= re.Replace(strContent,"A HREF=""MAILTO:$2"" TARGET=""_blank""$2/A")

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

re.Pattern = "^(http://[A-Za-z0-9./=？%-&_~`@':+!]+)"
strContent = re.Replace(strContent,"img align=absmiddle src=http://www.ceocio.net/images/url.gifa target=_blank href=$1$1/a")
re.Pattern = "(http://[A-Za-z0-9./=？%-&_~`@':+!]+)$"
strContent = re.Replace(strContent,"img align=absmiddle src=http://www.ceocio.net/images/url.gifa target=_blank href=$1$1/a")
re.Pattern = "[^=""](http://[A-Za-z0-9./=？%-&_~`@':+!]+)"
strContent = re.Replace(strContent,"img align=absmiddle src=http://www.ceocio.net/images/url.gifa target=_blank href=$1$1/a")
re.Pattern = "^(ftp://[A-Za-z0-9./=？%-&_~`@':+!]+)"
strContent = re.Replace(strContent,"img align=absmiddle src=http://www.ceocio.net/images/url.gifa target=_blank href=$1$1/a")
re.Pattern = "(ftp://[A-Za-z0-9./=？%-&_~`@':+!]+)$"
strContent = re.Replace(strContent,"img align=absmiddle src=http://www.ceocio.net/images/url.gifa target=_blank href=$1$1/a")
re.Pattern = "[^=""](ftp://[A-Za-z0-9./=？%-&_~`@':+!]+)"
strContent = re.Replace(strContent,"img align=absmiddle src=http://www.ceocio.net/images/url.gifa target=_blank href=$1$1/a")
re.Pattern = "^(rtsp://[A-Za-z0-9./=？%-&_~`@':+!]+)"
strContent = re.Replace(strContent,"img align=absmiddle src=http://www.ceocio.net/images/url.gifa target=_blank href=$1$1/a")
re.Pattern = "(rtsp://[A-Za-z0-9./=？%-&_~`@':+!]+)$"
strContent = re.Replace(strContent,"img align=absmiddle src=http://www.ceocio.net/images/url.gifa target=_blank href=$1$1/a")
re.Pattern = "[^=""](rtsp://[A-Za-z0-9./=？%-&_~`@':+!]+)"
strContent = re.Replace(strContent,"img align=absmiddle src=http://www.ceocio.net/images/url.gifa target=_blank href=$1$1/a")
re.Pattern = "^(mms://[A-Za-z0-9./=？%-&_~`@':+!]+)"
strContent = re.Replace(strContent,"img align=absmiddle src=http://www.ceocio.net/images/url.gifa target=_blank href=$1$1/a")
re.Pattern = "(mms://[A-Za-z0-9./=？%-&_~`@':+!]+)$"
strContent = re.Replace(strContent,"img align=absmiddle src=http://www.ceocio.net/images/url.gifa target=_blank href=$1$1/a")
re.Pattern = "[^=""](mms://[A-Za-z0-9./=？%-&_~`@':+!]+)"
strContent = re.Replace(strContent,"img align=absmiddle src=http://www.ceocio.net/images/url.gifa target=_blank href=$1$1/a")

（本文来源于图老师网站，更多请访问http://www.tulaoshi.com/webkaifa/）

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=$2param name=src value=$3embed 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=-1param name=Filename value=$3embed 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=$2PARAM NAME=SRC VALUE=$3PARAM NAME=CONSOLE VALUE=Clip1PARAM NAME=CONTROLS VALUE=imagewindowPARAM NAME=AUTOSTART VALUE=true/OBJECTbrOBJECT classid=CLSID:CFCDAA03-8BE4-11CF-B84B-0020AFBBCCFA height=32 id=video2 width=$1PARAM NAME=SRC VALUE=$3PARAM NAME=AUTOSTART VALUE=-1PARAM NAME=CONTROLS VALUE=controlpanelPARAM NAME=CONSOLE VALUE=Clip1/OBJECT")


re.Pattern="([color=(.[^[]*)])(.[^[]*)([/color])"
strContent=re.Replace(strContent,"font color=""$2""$3/font")
re.Pattern="([face=(.[^[]*)])(.[^[]*)([/face])"
strContent=re.Replace(strContent,"font face=""$2""$3/font")
re.Pattern="([align=(.[^[]*)])(.*)([/align])"
strContent=re.Replace(strContent,"div align=""$2""$3/div")

re.Pattern="([QUOTE])(.*)([/QUOTE])"
strContent=re.Replace(strContent,"table cellpadding=""0"" cellspacing=""0"" border=""0"" WIDTH=""94%"" bgcolor=""#D7F0FF"" align=""center""trtdtable width=""100%"" cellpadding=""5"" cellspacing=""1"" border=""0""TRTD BGCOLOR='"&abgcolor&"'$2/table/tablebr")
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="([fly])(.[^[]*)([/fly])"
strContent=re.Replace(strContent,"marquee$2/marquee")

re.Pattern="([size=1])(.[^[]*)([/size])"
strContent=re.Replace(strContent,"font size=""1""$2/font")
re.Pattern="([size=2])(.[^[]*)([/size])"
strContent=re.Replace(strContent,"font size=""2""$2/font")
re.Pattern="([size=3])(.[^[]*)([/size])"
strContent=re.Replace(strContent,"font size=""3""$2/font")
re.Pattern="([size=4])(.[^[]*)([/size])"
strContent=re.Replace(strContent,"font size=""4""$2/font")
re.Pattern="([center])(.[^[]*)([/center])"
strContent=re.Replace(strContent,"center$2/center")
'以下扩展
re.Pattern="([li])(.[^[]*)([/li])"
strContent=re.Replace(strContent,"li$2/li")
'字体背景
re.Pattern="([fontbg=(.[^[]*)])(.[^[]*)([/fontbg])"
strContent=re.Replace(strContent,"span style=background-color:""$2""$3/span")
'删除线
re.Pattern="([strike])(.[^[]*)([/strike])"
strContent=re.Replace(strContent,"strike$2/strike")

re.Pattern="([HTML])(.[^[]*)([/HTML])"
strContent=re.Replace(strContent,"table width='100%' border='0' cellspacing='0' cellpadding='6' bgcolor='"&abgcolor&"'tdb以下内容为程序代码:/bbr$2/td/table")
re.Pattern="([code])(.[^[]*)([/code])"
strContent=re.Replace(strContent,"table width='100%' border='0' cellspacing='0' cellpadding='6' bgcolor='"&abgcolor&"'tdb以下内容为程序代码:/bbr$2/td/table")


strContent=ChkBadWords(strContent)

set re=Nothing
UBBCode=strContent
end function
%

来源:http://www.tulaoshi.com/n/20160219/1605869.html

看过《ubbcode简单实用》的人还看了以下文章 更多>>

延伸阅读
简单实用的生活小技巧
标签： 指甲油
简单实用的生活小技巧 简单实用的生活小技巧 1、切蛋糕之前，把刀用热水烫一遍，就不会有奶油沾到上面了。 2、打鸡蛋之前摇一下，鸡蛋打出来之后，就不会有蛋清沾在鸡蛋壳上了。 3、打打嗝时就喝点醋，效果立杆见影。 4、中性笔摔断水了，把笔尖泡在热水里，一会就好了。 5、把吸管从易拉罐的拉环中间穿过，...
夏天简单实用驱蚊小妙招
标签： 驱蚊 生活常识
夏天简单实用驱蚊小妙招 夏天是蚊子繁衍最旺盛的时候，利用碱水盆，短短1个月就成功让蚊子绝子绝孙。 夏天简单实用驱蚊小妙招 碱水盆驱蚊法 将洗衣粉混合肥皂丝倒入装了水的小盆子，放在地下角落，三天后，蚊子数量骤减，十天后水盆内满是「战果」。 灭蚊法原理是利用洗衣粉及肥皂丝散发的香味诱使蚊子下蛋，由于洗...
简单又实用的生活诀窍
简单又实用的生活诀窍 简单又实用的生活诀窍 1、梨可防晒！常食梨能使肌肤保持弹性，不起皱纹。梨中含有丰富的维生素E，对太阳光的暴晒能起到防护作用。 2、烧糖醋鱼块及其它需放醋的菜肴时，最好在即将起锅时再放醋，这样能充分保持醋味，若放的过早，醋就会在烹调过程中蒸发掉而使醋味大减。 3、冷冻食品解冻法：...
一个ubbcode的函数 速度很快.
标签： PHP
  前面见到有人发表 但是速度比较慢，也非常长 这里给出一种 function ubb($str) {   $color=Array('red','blue','green'); $str=eregi_replace('\[url\]([a-zA-Z0-9@:%_.~#-\?&]+)\[\/url\]','<a href=http://\\1\\1</a',$str);//url $str=eregi_replace('\[url=http://([a-zA-Z0-9@:%_.~#-\?&]+)\](.+)...
简单实用的创意书挡设计
标签： 工业设计
查看更多精彩>>
老子是萌二代 老子是萌二代

经验教程

993

收藏

100
最新文章
Web开发

精华推荐

男士护肤步骤解析 简单又实用

男士护肤步骤解析 简单又实用

孤芳自赏

驱动人生简单实用教程

驱动人生简单实用教程

E_哈斯卡

教你简单实用电脑小知识

教你简单实用电脑小知识

中发必胜

热门标签

Web开发 web 程序开发 WEB工具 移动开发 Web标准 开发工具 宝宝右脑开发 WEB服务器 web应用程序 LOL实用套路 简单实用的束口包制作方法 折纸简单 贺卡简单 春节贺卡简单 简单速写画 最简单纸花 简单鲨鱼折纸 儿童简单贺卡 简单新年贺卡
微博分享 QQ分享 QQ空间 手机页面 收藏网站 回到头部