http://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)
