谁知道『百度』的ubb代码？越多越好！

============UBB 使用方法==============
'作者:心语 QQ:31642453
'假设数据库存放有UBB代码的字段为content
'读出数据时这样处理
'response.Write strtoUBB(rs("content"))
'这样,UBB代码就会替换成HTML的标签
'备注:部分标签未经测试,可能需要调整
'===================================
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,"<b>$1</b>")'[b]粗体[/b]
str=replaceUBB("\[i\](.+?)\[\/i\]",str,"<i>$1</i>")'[i]斜体[/i]
str=replaceUBB("\[u\](.+?)\[\/u\]"),str,"<u>$1<\u>"'[u]下划线[\u]
str=replaceUBB("\[