日期:2011-01-30  浏览次数:21171 次

前几日我曾经阅读到一篇技术文章讲述如何使用VBScript中的正则表达式对象来实现论坛里面的UBB功能。VBScript提供的正则表达式对象功能非常强大,但是只有5。5以上的脚本引擎才可以很好的支持正则表达式对象,为了获得版本是
5。5的脚本引擎,你需要单独安装这个脚本引擎,或者安装IE5.5,也就是说对服务器的要求比较苛刻,那就没有其他的方法实现UBB功能了吗?当然不是了,现在就跟随我一同来使用普通的VBScript脚本语言来实现功能强大的UBB功能吧。
  先,在UBB功能中,核心功能也即最吸引人的功能是完全支持贴图功能和字体属性的控制。因为出于安全方面的原因,网络上面的几乎所有的论坛都尽可能的屏蔽掉了HTML代码,这样可以避免人为的有意无意的对论坛的破坏,这样虽然保证了论坛自身的安全性,但是网友面对的贴子内容就始终是一成不变的颜色、字体、大小,更不要奢望看到绚丽多彩的图片了。UBB代码由此而生,具体来说说我们如何实现以上的UBB核心功能。
  下面我们先来详细描述一下我们将要实现的UBB代码的语法:
  一、 支持贴图的UBB语法
  语法:
  实例:
  描述:上面语法的结果就是在网页上面显示出来一幅图片
  二、 支持字体颜色的UBB语法:
  语法:[red]文字[/red]
  [green]文字[/green]
  等等
  实例:[blue]这是一段蓝色的文字[/blue]
  描述:上面的一段语法就是显示一段蓝颜色的文字
  三、 支持超级连接的UBB代码
  语法:连接地址
  实例:http://www.coolbel.com/chinagusu
  描述:上面的语法的结果就是生成一段超级连接,当你点击的时候就会转跳到连接的地址!
  四、 支持Email地址的UBB语法
  语法:你的email地址
  实例:uestc95@263.net
  描述:上面的代码结果就是显示一个邮件地址,当你用鼠标点击的时候,就会自动打开发送电子邮件的软件,并将地
址写上。
  五、 支持字体属性的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