ubb代码怎么用？

UBB代码是HTML（标准通用标记语言下的一个应用）的一个变种，是Ultimate Bulletin Board （国外的一个BBS程序）采用的一种特殊的TAG。您也许已经对它很熟悉了。UBB代码很简单，功能很少，但是由于其Tag语法检查实现非常容易，所以不少网站引入了这种代码，以方便网友使用显示图片/链接/加粗字体等常见功能。

使用方法

[red]文字[/red]红色

[green]文字[/green] 绿色

[blue]文字[/blue] 蓝色

[white]文字[/white] 白色

[purple]文字[/purple] 紫色

[yellow]文字[/yellow] 黄色

[violet]文字[/violet] 紫罗兰色

[brown]文字[/brown] 褐色

[black]文字[/black] 黑色

[pink]文字[/pink] 粉红色

[orange]文字[/orange] 橙色

[gold]文字[/gold] 金色

[h1]文字[/h1] 标题1

[h2]文字[/h2] 标题2

[h3]文字[/h3] 标题3

[h4]文字[/h4] 标题4

[h5]文字[/h5] 标题5

[h6]文字[/h6] 标题6

[size=1]文字[/size=1] 1号字

[size=2]文字[/size=2] 2号字(偏小)

[size=3]文字[/size=3] 3号字(正常大小)

[size=4]文字[/size=4] 4号字(偏大)

[size=5]文字[/size=5] 5号字

[size=6]文字[/size=6] 6号字

[font=仿宋]文字[/font=仿宋] 仿宋体

[font=黑体]文字[/font=黑体] 黑体

[font=楷体]文字[/font=楷体] 楷体

[font=隶书]文字[/font=隶书] 隶书体

[font=宋体]文字[/font=宋体] 宋体

[font=幼圆]文字[/font=幼圆] 幼圆体

[b]文字[/b]加粗

[u]文字[/u] 下划线

[i]文字[/i]倾斜

[left]文字[/left]文字 左对齐

[center]文字[/center] 居中

[right]文字[/right] 右对齐

[url=链接地址]链接文字[/url] 超级链接

[code]文字[/code] 代码

[IMG]图片地址[/IMG] 贴图

[mail]文字[/mail] EMAIL地址

[quote]文字[/quote] 引用文字

[movl]文字[/movl] 文字左移

[movlr]文字[/movlr] 文字左右移

[movr]文字[/movr] 文字右移

[hide]文字[/hide] 隐藏回复可见内容，只能用于主题帖

[flash]文字[/flash] flash地址(swf)

[music]文字[/music] 音乐地址(mp3，wma，rm，mid)

[movie]文字[/movie] 电影地址(wmv，avi)

[media]文字[/media] 电影地址(wmv，avi)

[light]文字[/light] 彩字

function replaceUBB(pat,str,restr) 'UBB代码函数 set regEx=new regExp regEx.pattern=pat regEx.IgnoreCase = true'不区分大小写 regEx.Global=True'整个字符串匹配 replaceUBB=regEx.Replace(str,restr) set regEx=nothing end function function strtoUBB(str) str=replaceUBB("\[b\](.+?)\[\/b\]",str,"$1")'[b]粗体[/b] str=replaceUBB("\[i\](.+?)\[\/i\]",str,"$1")'[i]斜体[/i] str=replaceUBB("\[u\](.+?)\[\/u\]"),str,"$1<\u>"'[u]下划线[\u] str=replaceUBB("\[color=(.+?)\](.+?)\[\/color\]",str,"$2")'[color=颜色]文字[/color] str=replaceUBB("\[center\](.+?)\[\/center\]",str,"

$1")'[center]居中[/center] str=replaceUBB("\[mail\](.+?)\[\/mail\]",str,"$1")'[mail]邮件地址[/mail] str=replaceUBB("\[mail=(.+?)\](.+?)\[\/mail\]",str,"$2")'[mail=邮件地址]文字[/mail] str=replaceUBB("\[img\](?:http:\/\/|http:\\\\)(.+?)\[\/img\]",str,"