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

")'[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,"")'[img]图片地址[/img] '大小(待添加) '字体(待添加) str=replaceUBB("\[url\](.+?)\[\/url\]",str,"$1")'[url]超链接[/url] str=replaceUBB("\[url=(\S+?)\](.+?)\[\/url\]",str,"$2")'[url=超链接]文字[/url] strtoUBB=str 'str=replaceUBB("(?:http:\/\/|http:\\\\)((?:www\.){0,1}\S+)",str,"$1")'跟[url][/url]冲突 end function