用ASP实现论坛的UBB功能

    前几日我曾经阅读到一篇技术文章讲述如何使用VBScript中的正则表达式对象来实现论坛里面的UBB功能。VBScript提供的正则表达式对象功能非常强大，但是只有5。5以上的脚本引擎才可以很好的支持正则表达式对象，为了获得版本是5。5的脚本引擎，你需要单独安装这个脚本引擎，或者安装IE5.5，也就是说对服务器的要求比较苛刻，那就没有其他的方法实现UBB功能了吗？当然不是了，现在就跟随我一同来使用普通的VBScript脚本语言来实现功能强大的UBB功能吧。

　　先，在UBB功能中，核心功能也即最吸引人的功能是完全支持贴图功能和字体属性的控制。因为出于安全方面的原因，网络上面的几乎所有的论坛都尽可能的屏蔽掉了HTML代码，这样可以避免人为的有意无意的对论坛的破坏，这样虽然保证了论坛自身的安全性，但是网友面对的贴子内容就始终是一成不变的颜色、字体、大小，更不要奢望看到绚丽多彩的图片了。UBB代码由此而生，具体来说说我们如何实现以上的UBB核心功能。

　　下面我们先来详细描述一下我们将要实现的UBB代码的语法：

　　一、支持贴图的UBB语法

　　语法：[img]图片路径[/img]

　　实例：[img]http://www.webjx.com/logo.gif[/img]

　　描述：上面语法的结果就是在网页上面显示出来一幅图片

　　二、支持字体颜色的UBB语法：

　　语法：[red]文字[/red]

　　[green]文字[/green]

　　等等

　　实例：[blue]这是一段蓝色的文字[/blue]

　　描述：上面的一段语法就是显示一段蓝颜色的文字

　　三、支持超级连接的UBB代码

　　语法：连接地址

　　实例：http://www.webjx.com

　　描述：上面的语法的结果就是生成一段超级连接，当你点击的时候就会转跳到连接的地址！

　　四、支持Email地址的UBB语法

　　语法：你的email地址[/email]

　　实例：info@webjx.com

　　描述：上面的代码结果就是显示一个邮件地址，当你用鼠标点击的时候，就会自动打开发送电子邮件的软件，并将地址写上。

　　五、支持字体属性的UBB语法

　　语法：一段文字等等

　　实例：一段粗体的文字

　　描述：上面代码的结果就是显示一段粗体的文字

　　好了，UBB代码的核心功能就是上面的这些东西了，当然你还可以增加其他的种种功能因为这个UBB代码的语法都是可以自定义的。

　　在我们开始具体实现UBB功能之前，我们先来了解几个重要的VBScript函数：Instr函数和Replace函数。也许你看到这里忍不住想要说，这也太简单了吧，呵呵，其实这两个函数的确是我们在编程当中使用比较频繁的两个函数，但是它也有自己的小秘密哦，我们先来看看这两个函数的具体
语法：

　　InStr函数

　　返回某字符串在另一字符串中第一次出现的位置。

　　InStr([start, ]string1, string2[, compare])

　　参数

　　start

　　可选项。数值表达式，用于设置每次搜索的开始位置。如果省略，将从第一个字符的位置开始搜索。如果start包含Null，则会出现错误。如果已指定compare，则必须要有start参数。

　　string1

　　必选项。接受搜索的字符串表达式。

　　string2

　　必选项。要搜索的字符串表达式。

　　compare

　　可选项。指示在计算子字符串时使用的比较类型的数值。有关数值，请参阅"设置"部分。如果省略，将执行二进制比较。

　　设置

　　compare参数可以有以下值：

　　常数

　　值

　　描述

　　vbBinaryCompare

　　0

　　执行二进制比较。

　　vbTextCompare

　　1

　　执行文本比较。

　　返回值

　　InStr函数返回以下值：

　　如果

　　InStr返回

　　string1为零长度

　　0

　　string1为Null

　　Null

　　string2为零长度

　　start

　　string2为Null

　　Null

　　string2没有找到

　　0

　　在string1中找到string2

　　找到匹配字符串的位置

　　start > Len(string2)

　　0

　　大家应当注意到了，我们所要用的函数Instr的小秘密就是它的最后一个可选择参数Compare，因为我们的UBB代码需要大小写不敏感的，默认的情况下，函数Instr是要进行二进制匹配的，也就是说是对大小写敏感的，所以记住了，这个Compare参数的值应当设置成为1才可以满足我们的要求。

　　Replace函数

　　返回字符串，其中指定数目的某子字符串被替换为另一个子字符串。

　　Replace(expression, find, replacewith[, compare[, count[, start]]])


　　参数

　　expression

　　必选项。字符串表达式包含要替代的子字符串。

　　Find

　　必选项。被搜索的子字符串。

　　Replacewith

　　必选项。用于替换的子字符串。

　　Start

　　可选项。expression中开始搜索子字符串的位置。如果省略，默认值为1。在和count关联时必须用

　　count

[1]    

原文转自：http://www.ltesting.net