用ASP实现论坛的UBB功能(二)
日期：2011-01-30 浏览次数：20755 次
大家应当注意到了，我们所要用的函数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," iLinkStart=Instr(iCurrentLocation,strInput,"[url]",1) '记录下开始位置
iLinkEnd=Instr(iCurrentLocation＋1,strInput,"" target="_blank">",1)<>0 '查找UBB语法字符串
iLinkStart=Instr(iCurrentLocation,strInput,"[url]",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),"[/url]","")
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上面运行通过)（北京 苏红超）
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," iLinkStart=Instr(iCurrentLocation,strInput,"[url]",1) '记录下开始位置
iLinkEnd=Instr(iCurrentLocation＋1,strInput,"" target="_blank">",1)<>0 '查找UBB语法字符串
iLinkStart=Instr(iCurrentLocation,strInput,"[url]",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),"[/url]","")
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上面运行通过)（北京 苏红超）
免责声明： 本文仅代表作者个人观点，与爱易网无关。其原创性以及文中陈述文字和内容未经本站证实，对本文以及其中全部或者部分内容、文字的真实性、完整性、及时性本站不作任何保证或承诺，请读者仅作参考，并请自行核实相关内容。
