正则表达式在网络编程中的运用（5）

　　三、UBB正则表达模板实例

　　下面是我写的一个UBB函数，这个函数基本上能使你的论坛成为一个优秀的UBB代码论坛了。当然，通过改进后，你可以得到一个更强大的UBB论坛。

Function ReThestr(face,str)
　dim re,str

　re="/＞"
　str=checkexp(re,str,">")

　re="/＜"
　str=checkexp(re,str,"<")

　re="/n/r/n/"
　str=checkexp(re,str,"＜P＞")

　re=chr(32)
　str=checkexp(re,str," ")

　re="/r"
　str=checkexp(re,str," ")

　re="/[img/]((http:(////|////)){1}((/w)+[.]){1,3}_
(net|com|cn|org|cc|tv)(((//[/~]*|//[/~]*)
(/w)+)|[.](/w)+)*(/w)+[.]{1}(gif|jpg|png))/[//img/]" '查找图片地址
　str=checkexp(re,str," ＜img src='$1'＞ ")

　re="/[w/](http:(////|////)((/w)+[.]){1,}_
(net|com|cn|org|cc|tv)(((//[/~]*|//[/~]*)(/w)+)|[.](/w)+)*
(((([?](/w)+){1}[=]*))*((/w)+){1}([/&](/w)+[/=](/w)+)*)*)/[//w/]" '查找帧地址
　str=checkexp(re,str,"＜iframe width='300' height='300' src='$1'＞＜/iframe＞")

　re="([^('＞)])(＜br＞)*((http|https|ftp):_
(////|////)((/w)+[.]){1,}(net|com|cn|org|cc|tv|_
([0-9]{1,3}))(((//[/~]*|//[/~]*)(/w)+)|[.](/w)+)*_
(((([?](/w)+){1}[=]*))*((/w)+){1}([/&](/w)+[/=](/w)+)*)*)" '查找链接地址
　str=checkexp(re,str,"$1$2 ＜a href='$3' target=_blank＞$3＜/a＞ ")
　re="([^(http://www.xker.com/upimg/20070117/11D963cU5015Y5.jpg|http://)])((www|cn)[.](/w)+[.]{1,}_
(net|com|cn|org|cc)(((//[/~]*|//[/~]*)(/w)+)|[.](/w)+)*
(((([?](/w)+){1}[=]*))*((/w)+){1}([/&](/w)+[/=](/w)+)*)*)
" '查找不以http://www.xker.com/upimg/20070117/11D963cU5015Y5.jpg开头的地址
　str=checkexp(re,str,"$1 ＜a href='http://www.xker.com/upimg/20070117/11D963cU5015Y5.jpg$2' target=_blank＞$2＜/a＞ ")
　re="([^(=)])((/w)+[@]{1}((/w)+[.]){1,3}(/w)+)" '查找邮件地址
　str=checkexp(re,str," ＜a href='mailto:$2'＞$2＜/a＞ ")
　re="/[color=(((/w)+)|][#][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=((.)+){1,3}/]((.)+)/[//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


　　UBB代码如下：

[center] [/center] [email=] [/email]

[font=impact] [/font] [color=Yellow] [/color] [size=4] [/size]

　　测试代码如下：


http://www.xker.com/upimg/20070117/11D963cU5015Y5.jpgcn.yahoo.com
http://www.xker.com/upimg/20070117/11D963cU5015Y5.jpgaol.com http://www.xker.com/upimg/20070117/11D963cU5015Y5.jpg192.168.0.1
www.yahoo.com how are you[/b]
http://www.xker.com/upimg/20070117/11D963cU5015Y5.jpgpage2000.xiloo.com/~page2000?PageNo=2&action=del
lucaihui@cmmail.com 大家好http://page2000.shit
＜font color=red＞http://www.xker.com/upimg/20070117/11D963cU5015Y5.jpgtest.com＜/font＞http://www.xker.com/upimg/20070117/11D963cU5015Y5.jpgtest


　　全部符合预想结果

　　ASP正则表达式对像函数如下：

　 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），这样就组成一个完整的UBB函数了。

　　在你的论坛上加上这个函数，就成了支持UBB代码的论坛了。只要在用时调用这个函数就行了。调用形式如

　　　text=ReThestr(text)

　　如果你要进一步测试，可以到http://www.xker.com/upimg/20070117/11D963cU5015Y5.jpgwww.4u2v.com/bbs去测试，因为该论坛就采用了此模板。