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

ubbcode简单实用

2016-02-19 13:58 0 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

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")

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

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")

（本文来源于图老师网站，更多请访问https://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
%

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

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

延伸阅读
简单实用的Flash技巧心得
标签： flash教程
笔者发现，许多爱好者虽然能作出不错的Flash动画，但他们对该软件本身还缺乏深刻的了解。一些搞美工的专业人员，有时又惧怕Flash中的Action代码部分。现就以Flash 5为例，谈谈Flash 5的一些较高级的技巧和心得。因为笔者就是一个见代码就头痛的人，所以与我有同感的朋友请放心，本文绝没有涉及Action的技巧。 1.遮罩的高级应用 ...
最简单实用的减肥方法
标签： 减肥 健康减肥 减肥小妙招 减肥方法
47种最 简单实用的减肥方法 想减不掉都难，每天都坐在办公室里,身上的肉肉是一天天地见长呀,想减肥吧,又没有时间, 简单实用的减肥方法 从日常生活中习惯做起，不用刻意节食也不用辛苦运动,轻轻松松就能塑造完美身形。 简单实用的减肥方法 简单实用的减肥方法 散步减肥法：每周5次，每次30分钟的散步可有效减肥，并可降低许多慢性病的发...
最简单实用diy眼妆
标签： 化妆 眼妆
1.首先在准备的卡纸上画出自己喜欢的花纹。 2.花纹画好之后，用剪刀沿着花纹的边缘裁剪。 3.裁剪好纸片后，将纸片贴着眼皮。用勾线笔沾取眼影填满缝隙。 4.大片颜色上了之后，要在局部细致的描绘边缘的完整。 5.化的时候颜色如果溢出来了，那...
简单又实用的生活诀窍
简单又实用的生活诀窍 简单又实用的生活诀窍 1、梨可防晒！常食梨能使肌肤保持弹性，不起皱纹。梨中含有丰富的维生素E，对太阳光的暴晒能起到防护作用。 2、烧糖醋鱼块及其它需放醋的菜肴时，最好在即将起锅时再放醋，这样能充分保持醋味，若放的过早，醋就会在烹调过程中蒸发掉而使醋味大减。 3、冷冻食品解冻法：...
简单实用的创意书挡设计
标签： 工业设计
查看更多精彩>>
老子是萌二代 老子是萌二代

经验教程

627

收藏

18
最新文章
Web开发

精华推荐

简单实用的行李收纳小技能

简单实用的行李收纳小技能

放肆得微笑qq

几个简单实用的手机摄影技巧

几个简单实用的手机摄影技巧

爱上3Dfang

简单实用的瘦脸操推荐

简单实用的瘦脸操推荐

温馨家园94

热门标签

Web开发 web WEB工具 程序开发 移动开发 Web标准 开发工具 宝宝右脑开发 WEB服务器 web应用程序 LOL实用套路 简单实用的束口包制作方法 简单寿司 简单果盘 折纸简单 贺卡简单 简单饼干 春节贺卡简单 简单速写画 简单鸡蛋饼
微博分享 QQ分享 QQ空间 手机页面 收藏网站 回到头部