用ASP实现论坛的UBB功能->>网页教学网(http://www.webjx.com)建站指南|网页制作|网页特效|Flash动画|网络编程|素材下载|教程下载|建站|HTML|CSS|JAVASCRIPT|ASP|PHP|JSP|ASP.NET|数据库

　　前几日我曾经阅读到一篇技术文章讲述如何使用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，表示进行所有可能的替换。在和start关联时必须用。

　　Compare 

　　可选项。指示在计算子字符串时使用的比较类型的数值。有关数值，请参阅"设置"部分。如果省略,缺省值为0 ,这意味着必须进行二进制比较。

　　设置

　　compare参数可以有以下值：

　　常数

　　值

　　描述

　　vbBinaryCompare 

　　0 

　　执行二进制比较。

　　vbTextCompare 

　　1 

　　执行文本比较。

　　返回值

　　Replace返回以下值：

　　如果

　　Replace返回

　　expression为零长度

　　零长度字符串("")。

　　expression为Null 

　　错误。

　　find为零长度

　　expression的副本。

　　replacewith为零长度

　　expression的副本，其中删除了所有由find参数指定的内容。

　　start > Len(expression) 

　　零长度字符串。

　　count为0 

　　expression的副本。

　　这里我们应当注意的自然也是这个Replace的Compare可选择参数了，这样我们在进行UBB代码全程替换的时候才可以保证对大小写的不敏感。

　　其实，实现UBB代码的程序核心思想都是相同的，实现了其中的一个，其他的也都是迎刃而解的了。下面我们以比较困难并且有代表性的……语法的实现为例来详细讲解如何实现他：

　　首先，我们可以分析出来，在一段文章当中，要实现这个功能，其实也就是将形式为http://xxx.xxx.xxx的字符串找出来，并且加以适当的替换，并且要全程替换，也就是说，你要设法记住你的每一步所在的位置，以便依次进行替换，下面就是实现这个UBB语法的函数代码：(里面有详细注释) 

　　Function LinkURLs(strInput) 

　　Dim iCurrentLocation 

　　Dim iLinkStart 

　　Dim iLinkEnd 

　　Dim strLinkText 

　　Dim strOutPut 

　　‘初始化变量

　　strLinkText="" 

　　strOutput="" 

　　iCurrentLocation=1 

　　Do while Instr(iCurrentLocation,strInput,"开始位置

　　iLinkEnd=Instr(iCurrentLocation＋1,strInput,"" TARGET=_blank>",1) ‘记录下开始位置

　　iLinkEnd=Instr(iCurrentLocation＋1,strInput,"",1) ‘记录下结束位置

　　If iLinkEnd=0 then iLinkEnd=len(strINput)＋1 

　　select case Mid(strInput,iLinkEnd－1,1) 

　　case ".","!","?" 

　　iLinkEnd=iLinkEnd－1 ‘剔除多余标点符号

　　end select 

　　stroutput=strOutput＆Mid(strInput,iCurrentLocation,iLinkStart
－iCurrentLocation) 

　　strLinkText=replace(Mid(strInput,iLinkStart＋5,iLinkEnd－iLinkStart
－5),"" TARGET=_blank>",1)<>0 ‘查找UBB语法字符串

　　iLinkStart=Instr(iCurrentLocation,strInput,"开始位置

　　iLinkEnd=Instr(iCurrentLocation＋1,strInput,"",1) ‘记录下结束位置

　　If iLinkEnd=0 then iLinkEnd=len(strINput)＋1 

　　select case Mid(strInput,iLinkEnd－1,1) 

　　case ".","!","?" 

　　iLinkEnd=iLinkEnd－1 ‘剔除多余标点符号

　　end select 

　　stroutput=strOutput＆Mid(strInput,iCurrentLocation,iLinkStart－iCurrentLocation) 

　　strLinkText=replace(Mid(strInput,iLinkStart＋5,iLinkEnd－iLinkStart－5),"","") 

　　strOutput=strOutput＆""＆strLinkText＆"" 

　　iCurrentLocation=iLinkEnd ‘记录下当前游标位置

　　Loop 

　　strOutput=strOutput＆Mid(strInput,iCurrentLocation) 

　　LinkURLs=replace(strOutput,"[/url]","",1,－1,1) 

　　End Function 

　　好了，通过上面的这个实现……功能的函数，我们可以以此类推得到实现其他UBB语法的函数，限于篇幅，我就不一一加以祥述了，你可以将这些函数放到一个文件中，形成一个UBB代码函数库，这样就可以方便的在你的程序当中加以引用了。

　　怎么样，通过我们自己的努力，现在我们的论坛也可以完全支持UBB代码功能了，我们的论坛现在也会变得色彩斑斓，图文并茂了，也必将会吸引到更多的网友，:) 

　　关于上面文章的实际应用例子，您可以在这里访问到：Http://TechTop.Yeah.Net

　　(以上所有程序均在Windows9x/NT，IIS/PWS,Access/SQL7上面运行通过)