摘要：现在我们正式进入则表达式的学习，我会根据实例结合讲解正则表达式的用法，看完后你就会觉得写ＵＢＢ代码如此简单了，只要你一步一步的跟着我学 看完本文章后你就成为ＵＢＢ高手了。
关键字：正则表达式 UBB 
正文：
a href=$3 target=_blank>$3</a> ")

　re="([^(http://|http:\\)])((www|cn)[.](\w)+[.]{1,}(net|com|cn|org|cc)(((\/[\~]*|\\[\~]*)(\w)+)|[.](\w)+)*
(((([?](\w)+){1}[=]*))*((\w)+){1}([\&](\w)+[\=](\w)+)*)*)" 查找不以http://开头的地址
　str=checkexp(re,str,"$1 <a href=http://$2 target=_blank>$2</a> ")

　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

七）ＡＳＰ正则表达式对像函数如下：
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)

[1][2][3][4]

上一篇：常用正则表达式 下一篇：17种正则表达式