在ASP中利用“正则表达式” 对象实现UBB风格的论坛

ailto:$2"" target=_top>$2</a>")

temp=ReplaceTest("(\[img])(\S+)(\[/img])",temp,"<img src=""$2"">")

temp=ReplaceTest("(\[url])(\S+)(\[/url])",temp,"<a href=""$2"" target=_top>$2</a>")

temp=ReplaceTest("(\[#(\S+)])(\S+)(\[/#])",temp,"<font color=$1>$3</font>")‘进行UBB代码的模版匹配与替换

i=i+1

loop

if trim(temp)<>"" then

UBB=temp　‘将经过UBB代码过滤后的字符串传出

else

UBB=str　　‘将经过UBB代码过滤后的字符串传出

end if

end function



在函数UBB的代码中我们可以看到“$1”，“$2”，“$3”等等，这些字符串就是匹配后的字符串的代词，就如同一些“宏”一样，我们可以使用他们方便代替匹配到的字符串，而不必再使用程序去记住匹配字符串的位置。通过这两个简单的函数调用，我们实现了UBB代码的功能，怎么样，很简单吧。

这样，我们只要在显示文章的时候调用UBB函数，对文章内容进行处理之后，再显示到浏览器上面，就实现了论坛的UBB代码功能。并且，你可以方便的在函数UBB添加需要的UBB代码匹配替换模版，从而可以不断的扩充你的UBB代码的功能。

（以上程序均在WinNT4.0英文版SP5，IIS4.0,IE5.x中运行通过）