前幾日我曾經(jīng)閱讀到一篇技術(shù)文章講述如何使用VBScript中的正則表達式對象來(lái)實(shí)現論壇里面的UBB功能。VBScript提供的正則表達式對象功能非常強大，但是只有5。5以上的腳本引擎才可以很好的支持正則表達式對象，為了獲得版本是5。5的腳本引擎，你需要單獨安裝這個(gè)腳本引擎，或者安裝IE5.5，也就是說(shuō)對服務(wù)器的要求比較苛刻，那就沒(méi)有其他的方法實(shí)現UBB功能了嗎？當然不是了，現在就跟隨我一同來(lái)使用普通的VBScript腳本語(yǔ)言來(lái)實(shí)現功能強大的UBB功能吧。
先，在UBB功能中，核心功能也即最吸引人的功能是完全支持貼圖功能和字體屬性的控制。因為出于安全方面的原因，網(wǎng)絡(luò )上面的幾乎所有的論壇都盡可能的屏蔽掉了HTML代碼，這樣可以避免人為的有意無(wú)意的對論壇的破壞，這樣雖然保證了論壇自身的安全性，但是網(wǎng)友面對的貼子內容就始終是一成不變的顏色、字體、大小，更不要奢望看到絢麗多彩的圖片了。UBB代碼由此而生，具體來(lái)說(shuō)說(shuō)我們如何實(shí)現以上的UBB核心功能。
下面我們先來(lái)詳細描述一下我們將要實(shí)現的UBB代碼的語(yǔ)法：
一、支持貼圖的UBB語(yǔ)法
語(yǔ)法：[img]圖片路徑[/img]
實(shí)例：[img]http://www.webjx.com/logo.gif[/img]
描述：上面語(yǔ)法的結果就是在網(wǎng)頁(yè)上面顯示出來(lái)一幅圖片
二、支持字體顏色的UBB語(yǔ)法：
語(yǔ)法：[red]文字[/red]
[green]文字[/green]
等等
實(shí)例：[blue]這是一段藍色的文字[/blue]
描述：上面的一段語(yǔ)法就是顯示一段藍顏色的文字
三、支持超級連接的UBB代碼
語(yǔ)法：連接地址
實(shí)例：http://www.webjx.com
描述：上面的語(yǔ)法的結果就是生成一段超級連接，當你點(diǎn)擊的時(shí)候就會(huì )轉跳到連接的地址！
四、支持Email地址的UBB語(yǔ)法
語(yǔ)法：你的email地址[/email]
實(shí)例：info@webjx.com
描述：上面的代碼結果就是顯示一個(gè)郵件地址，當你用鼠標點(diǎn)擊的時(shí)候，就會(huì )自動(dòng)打開(kāi)發(fā)送電子郵件的軟件，并將地址寫(xiě)上。
五、支持字體屬性的UBB語(yǔ)法
語(yǔ)法：一段文字等等
實(shí)例：一段粗體的文字
描述：上面代碼的結果就是顯示一段粗體的文字
好了，UBB代碼的核心功能就是上面的這些東西了，當然你還可以增加其他的種種功能因為這個(gè)UBB代碼的語(yǔ)法都是可以自定義的。
在我們開(kāi)始具體實(shí)現UBB功能之前，我們先來(lái)了解幾個(gè)重要的VBScript函數：Instr函數和Replace函數。也許你看到這里忍不住想要說(shuō)，這也太簡(jiǎn)單了吧，呵呵，其實(shí)這兩個(gè)函數的確是我們在編程當中使用比較頻繁的兩個(gè)函數，但是它也有自己的小秘密哦，我們先來(lái)看看這兩個(gè)函數的具體
語(yǔ)法：
InStr函數
返回某字符串在另一字符串中第一次出現的位置。
InStr([start, ]string1, string2[, compare])
參數
start
可選項。數值表達式，用于設置每次搜索的開(kāi)始位置。如果省略，將從第一個(gè)字符的位置開(kāi)始搜索。如果start包含Null，則會(huì )出現錯誤。如果已指定compare，則必須要有start參數。
string1
必選項。接受搜索的字符串表達式。
string2
必選項。要搜索的字符串表達式。
compare
可選項。指示在計算子字符串時(shí)使用的比較類(lèi)型的數值。有關(guān)數值，請參閱"設置"部分。如果省略，將執行二進(jìn)制比較。
設置
compare參數可以有以下值：
常數
值
描述
vbBinaryCompare
0
執行二進(jìn)制比較。
vbTextCompare
1
執行文本比較。
返回值
InStr函數返回以下值：
如果
InStr返回
string1為零長(cháng)度
0
string1為Null
Null
string2為零長(cháng)度
start
string2為Null
Null
string2沒(méi)有找到
0
在string1中找到string2
找到匹配字符串的位置
start > Len(string2)
0
大家應當注意到了，我們所要用的函數Instr的小秘密就是它的最后一個(gè)可選擇參數Compare，因為我們的UBB代碼需要大小寫(xiě)不敏感的，默認的情況下，函數Instr是要進(jìn)行二進(jìn)制匹配的，也就是說(shuō)是對大小寫(xiě)敏感的，所以記住了，這個(gè)Compare參數的值應當設置成為1才可以滿(mǎn)足我們的要求。
Replace函數
返回字符串，其中指定數目的某子字符串被替換為另一個(gè)子字符串。
Replace(expression, find, replacewith[, compare[, count[, start]]])
參數
expression
必選項。字符串表達式包含要替代的子字符串。
Find
必選項。被搜索的子字符串。
Replacewith
必選項。用于替換的子字符串。
Start
可選項。expression中開(kāi)始搜索子字符串的位置。如果省略，默認值為1。在和count關(guān)聯(lián)時(shí)必須用
count
可選項。執行子字符串替換的數目。如果省略，默認值為－1，表示進(jìn)行所有可能的替換。在和start關(guān)聯(lián)時(shí)必須用。
Compare
可選項。指示在計算子字符串時(shí)使用的比較類(lèi)型的數值。有關(guān)數值，請參閱"設置"部分。如果省略,缺省值為0 ,這意味著(zhù)必須進(jìn)行二進(jìn)制比較。
設置
compare參數可以有以下值：
常數
值
描述
vbBinaryCompare
0
執行二進(jìn)制比較。
vbTextCompare
1
執行文本比較。
返回值
Replace返回以下值：
如果
Replace返回
expression為零長(cháng)度
零長(cháng)度字符串("")。
expression為Null
錯誤。
find為零長(cháng)度
expression的副本。
replacewith為零長(cháng)度
expression的副本，其中刪除了所有由find參數指定的內容。
start > Len(expression)
零長(cháng)度字符串。
count為0
expression的副本。
這里我們應當注意的自然也是這個(gè)Replace的Compare可選擇參數了，這樣我們在進(jìn)行UBB代碼全程替換的時(shí)候才可以保證對大小寫(xiě)的不敏感。
其實(shí)，實(shí)現UBB代碼的程序核心思想都是相同的，實(shí)現了其中的一個(gè)，其他的也都是迎刃而解的了。下面我們以比較困難并且有代表性的……語(yǔ)法的實(shí)現為例來(lái)詳細講解如何實(shí)現他：
首先，我們可以分析出來(lái)，在一段文章當中，要實(shí)現這個(gè)功能，其實(shí)也就是將形式為http://xxx.xxx.xxx的字符串找出來(lái)，并且加以適當的替換，并且要全程替換，也就是說(shuō)，你要設法記住你的每一步所在的位置，以便依次進(jìn)行替換，下面就是實(shí)現這個(gè)UBB語(yǔ)法的函數代碼：(里面有詳細注釋)
Function LinkURLs(strInput)
Dim iCurrentLocation
Dim iLinkStart
Dim iLinkEnd
Dim strLinkText
Dim strOutPut
‘初始化變量
strLinkText=""
strOutput=""
iCurrentLocation=1
Do while Instr(iCurrentLocation,strInput,"開(kāi)始位置
iLinkEnd=Instr(iCurrentLocation＋1,strInput,"" TARGET=_blank>",1) ‘記錄下開(kāi)始位置
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 ‘剔除多余標點(diǎn)符號
end select
stroutput=strOutput＆Mid(strInput,iCurrentLocation,iLinkStart
－iCurrentLocation)
strLinkText=replace(Mid(strInput,iLinkStart＋5,iLinkEnd－iLinkStart
－5),"" TARGET=_blank>",1)<>0 ‘查找UBB語(yǔ)法字符串
iLinkStart=Instr(iCurrentLocation,strInput,"開(kāi)始位置
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 ‘剔除多余標點(diǎn)符號
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
好了，通過(guò)上面的這個(gè)實(shí)現……功能的函數，我們可以以此類(lèi)推得到實(shí)現其他UBB語(yǔ)法的函數，限于篇幅，我就不一一加以祥述了，你可以將這些函數放到一個(gè)文件中，形成一個(gè)UBB代碼函數庫，這樣就可以方便的在你的程序當中加以引用了。
怎么樣，通過(guò)我們自己的努力，現在我們的論壇也可以完全支持UBB代碼功能了，我們的論壇現在也會(huì )變得色彩斑斕，圖文并茂了，也必將會(huì )吸引到更多的網(wǎng)友，:)
關(guān)于上面文章的實(shí)際應用例子，您可以在這里訪(fǎng)問(wèn)到：Http://TechTop.Yeah.Net
(以上所有程序均在Windows9x/NT，IIS/PWS,Access/SQL7上面運行通過(guò))
聯(lián)系客服
