正则表达式在ＵＢＢ论坛中的应用

　re="([^(=)])((\w)+[@]{1}((\w)+[.]){1,3}(\w)+)" ''查找邮件地址
　str=checkexp(re,str," <a href=''mailto:$2''>$2</a> ")

　re="\[0-F]{6})\]((.)+)\[\/color\]" ''替换字体色彩
　str=checkexp(re,str,"<font color=''$1''>$4</font>")

　re="\[size=([0-9]{1})\]((.)+)\[\/size\]" ''替换字体大小
　str=checkexp(re,str,"<font size=''$1''>$2</font>")

　re="\((.)+)\[\/font\]" ''替换字体
　str=checkexp(re,str,"<font face=''$1''>$3</font>")

　re="(\[b\])(.+)(\[\/b\])" ''加粗字体
　str=checkexp(re,str,"<b>$2</b>")

　re="(\[u\])(.+)(\[\/u\])" ''下画线
　str=checkexp(re,str,"<u>$2</u>")

　re="(\[li\])(.+)(\[\/li\])" ''列表
　str=checkexp(re,str,"<li>$2</li>")

　re="(\[QUOTE\])(.+)(\[\/QUOTE\])" ''引用
　str=checkexp(re,str,"<BLOCKQUOTE>引用:<HR SIZE=1>$2<HR SIZE=1></BLOCKQUOTE>")

　re="\[email=((\w)+[@]{1}((\w)+[.]){1,3}(\w)+)\](.+)(\[\/email\])" ''邮件
　str=checkexp(re,str,"<a href=mailto:$1>$6</a>")

　re="(\[center\])(.+)(\[\/center\])" ''居中
　str=checkexp(re,str,"<center>$2</center>")

　re="fuck"
　str=checkexp(re,str,"***")

　re="操"
　str=checkexp(re,str,"***")

　re="sex"
　str=checkexp(re,str,"***")

　re="TMD"
　str=checkexp(re,str,"***")

　re="shit"
　str=checkexp(re,str,"***")

　ReThestr=str
end function

ＵＢＢ代码如下：
[i] [/i] [u] [/u]
[url] [/url] [email=] [/email] [img] [/img]
引用:
--------------------------------------------------------------------------------

--------------------------------------------------------------------------------

[li] [/li] [font=impact] [color=Yellow]

测试代码如下：
[img] [/img]http://cn.yahoo.com
aol.com 192.168.0.1
www.yahoo.com how are you[/b]
page2000.xiloo.com/~page2000?PageNo=2&action=del
lucaihui@cmmail.com 大家好http:\\page2000.shit
<font color=red>http://test.com</font>http://test
全部符合预想结果

七）ＡＳＰ正则表达式对像函数如下：
Function CheckExp(patrn,strng,tagstr)
　Dim regEx,Matches

　Set regEx=New RegExp''建立一个新对像
　regEx.Pattern=patrn''设置模板
　regEx.IgnoreCase=true''搜索是否区分大小写的 true表是不区分 flase表示区分
　regEx.Global=True''搜索是否应用于整个字符串

　Matches=regEx.replace(strng,tagstr)''匹配并替代字符串

　CheckExp=Matches返回函数结果
end function

把上面的两个函数存为一个页面（如ubbcode.asp），这样就组成一个完整的ＵＢＢ函数了。
在你的论坛上加上这个函数，就成了支持ＵＢＢ代码的论坛了。只要在用时调用这个函数就行了。调用形式如
　text=ReThestr(text)

很久以前写的文章了不知现在还实不实用
嘻~~有错误的话
问我我也不清楚了这么久不看都忘了
:)

倒这文章看不了了禁止笑脸转换了还这样

看来ubb和ubb冲突了