用ASP实现论坛的UBB功能(二)

大家应当注意到了，我们所要用的函数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代码的程序核心思想都是相同的，实现了其中的一个，其他的也都是迎刃而解的了。下面我们以比较困难并且有代表性的……语法的实现为例来详细讲解如何实现他：
　　首先，我们可以分析出来，在一段文章当中，要实现这个功能，其实也就是将形式为的字符串找出来，并且加以适当的替换，并且要全程替换，也就是说，你要设法记住你的每一步所在的位置，以便依次进行替换，下面就是实现这个UBB语法的函数代码：(里面有详细注释)
　　Function LinkURLs(strInput)
　　Dim iCurrentLocation
　　Dim iLinkStart
　　Dim iLinkEnd
　　Dim strLinkText
　　Dim strOutPut
　　'初始化变量
　　strLinkText=""
　　strOutput=""
　　iCurrentLocation=1
　　Do while Instr(iCurrentLocation,strInput,"　　iLinkStart=Instr(iCurrentLocation,strInput,"",1)<>0 '查找UBB语法字符串
　　iLinkStart=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),"","")
　　strOutput=strOutput ＆ "" ＆ strLinkText ＆ ""
　　iCurrentLocation=iLinkEnd '记录下当前游标位置
　　Loop
　　strOutput=strOutput ＆ Mid(strInput,iCurrentLocation)
　　LinkURLs=replace(strOutput,"[/url]","",1,－1,1)
　　End Function
　　好了，通过上面的这个实现……功能的函数，我们可以以此类推得到实现其他UBB语法的函数，限于篇幅，我就不一一加以祥述了，你可以将这些函数放到一个文件中，形成一个UBB代码函数库，这样就可以方便的在你的程序当中加以引用了。
　　怎么样，通过我们自己的努力，现在我们的论坛也可以完全支持UBB代码功能了，我们的论坛现在也会变得色彩斑斓，图文并茂了，也必将会吸引到更多的网友，:)
　　关于上面文章的实际应用例子，您可以在这里访问到：
　　(以上所有程序均在Windows9x/NT，IIS/PWS,Access/SQL7上面运行通过)（北京 苏红超）