推薦:ASP 3.0高級編程(三十二) 7.2.4 客戶端腳本錯誤到目前為止,我們已了解了來自ASP的錯誤。然而ASP也經常用於創建包含客戶端腳本的網頁。如果包含客戶端代碼的<SCRIPT>元素沒有被設置成RUNAT=SERVER屬
上一次,我們談到在ASP中如何利用正則表達式對象來實現各種數據的校驗,文中描述了正則表達式對象的強大功能,接下來,我們來看看有關正則表達式對象的其他功能。當我們在網上沖浪的時候,尤其是瀏覽各類論壇的時候,經常會見到UBB代碼這個詞語。什麼是UBB代碼呢? UBB代碼是HTML的一個變種,是Ultimate Bulletin Board (國外一個BBS程序,國內也有不少地方使用這個程序)採用的一種特殊的TAG。為了避免用戶無意或者有意的HTML代碼對論壇的攻擊,各種論壇基本上都屏蔽了HTML代碼,但是為了使得論壇更加多姿多彩,論壇都會相應的開放一些自定義的Tag標籤,類似於HTML中的Tag,比如[URL],[/URL],[RED],[/RED],這樣,可以提供一些等同於HTML代碼的功能,又避免了論壇受到惡意攻擊,這些自定義的各種Tag就是俗稱的UBB代碼。眼下時髦的論壇均支持UBB代碼,比如:動感技術網絡的論壇就很好的支持UBB代碼。現在,我們一同使用正則表達式對象來實現我們自己的豐富多彩的UBB代碼吧。
首先,你的服務器端(IIS或者PWS)要有VBScript5.0的支持環境,一般指要安裝了IE5.X就已經可以支持正則表達式對象了。
關於正則表達式對象的常見方法、屬性的使用方法,我在本刊的在ASP中利用正則表達式對象實現數據的校驗一文中已經有詳細介紹了,可以參見那一篇文章,在這裡,我主要介紹一下實現UBB代碼的主要正則表達式對象方法:Replace()方法。
Replace方法語法如下:
Replace方法語法如下:
描述
替換在正則表達式查找中找到的文本。
文法
object.Replace(string1, string2)
Replace 方法的語法包含以下幾個部分:
部分描述
object 必需的。總是一個RegExp 對象的名稱。
string1 必需的。 string1 是將要進行文本替換的字符串。
string2 必需的。 string2 是替換文本字符串。
說明
被替換的文本的實際模式是通過RegExp 對象的Pattern 屬性設置的。
Replace 方法返回string1 的副本,其中的RegExp.Pattern 文本已經被替換為string2。如果沒有找到匹配的文本,將返回原來的string1 的副本。
接下來,我們要確定我們最終想要實現一套什麼樣的UBB代碼?這次我們要實現的UBB代碼功能如下:
URL超級鏈接
在你的信息裡加入超級鏈接,只要按下列方式套入就可以了(UBB代碼是粗體).
[url]www.test.net[/url]
按上例套入,UBB代碼會自動對URL產生鏈接,並保證當用戶點擊新的窗口時這個鏈接是打開著的。
電子郵件鏈接
在你的信息裡加入電子郵件的超級鏈接,只要按照下例套入就可以了(UBB代碼是粗體)
[email][email protected][/email]
按上例套入,UBB代碼會對電子郵件自動產生鏈接。
加入圖像
在你的信息裡加入圖像,只要按下例套入就可以了(UBB代碼是粗體).
[img]http://www.test.net/test.gif[/img]
在上例中,UBB代碼會自動讓圖像在你的信息裡顯示。
其他TAG
還有這些tag , u small h1 h2 h3 h4 h5 h6 strike blink sub sup del pre big , 這些tag的功能與html的功能等同
[h1]這是一個標題[/h1]
[/tag]是必須的
讓一段文字使用顏色顯示
這是一個特殊的tag
[#ff0000]一段紅色的字[/#]
#後面跟的顏色的16進制RGB代碼,如紅色是ff0000,綠色是00ff00,而藍色是0000ff
至於其他各式各樣的UBB代碼的實現方式同上面的類似,我們就以上面UBB代碼實現作為例子來講解正則表達式對象的強大功能。
我們主要使用Replace()方法配合相應的模版,就可以方便的實現UBB代碼功能了,在這裡我們主要用到了兩個自己編寫的函數,第一個函數ReplaceTest,這個函數實現的功能主要是將正則表達式對象進行了封裝,提供三個入口參數:
Patrn
這個參數傳遞的是UBB代碼的匹配模版
Str
這個參數傳遞的是將要以UBB方式處理的字符串,比如文章內容。
ReplStr
這個參數傳遞的是匹配成的HTML代碼語言。
ReplaceTest函數的出口參數是經過模版匹配替換之後的字符串。
ReplaceTest函數代碼如下:
Function ReplaceTest(patrn,str,replStr)
Dim regEx, str1 ' 建立變量。
str1=trim(str)
Set regEx = New RegExp ' 建立正則表達式。
regEx.Pattern = patrn ' 設置模式。
regEx.IgnoreCase = true ' 設置是否區分大小寫。
ReplaceTest = regEx.Replace(str1, replStr) ' 作替換。
set regEx=nothing '銷毀正則表達式對象
End Function
我們要編寫的第二個函數是:UBB()函數。這個函數實現的功能就是將一段文本進行UBB功能的轉換。這個函數僅僅只有一個入口參數:
Str
這個參數傳遞要被處理的字符串。
UBB函數的出口參數是經過UBB代碼處理過後的字符串。
UBB函數的代碼如下:(程序中有詳細註釋信息)
Function UBB(str)
dim i,temp '聲明變量
i=1
temp=
do while instr(i,str,[/]>=1 '如果沒有達到字符串的末尾
if trim(temp)= then
temp=ReplaceTest((/[i])(/S )(/[/i]),str,<i>$2</i>) '進行UBB代碼的模版匹配與替換
else
temp=ReplaceTest((/[i])(/S )(/[/i]),temp,<i>$2</i>) '進行UBB代碼的模版匹配與替換
end if
temp=ReplaceTest((/[b])(/S )(/[/b]),temp,<b>$2</b>) '進行UBB代碼的模版匹配與替換
temp=ReplaceTest((/[big])(/S )(/[/big]),temp,<big>$2</big>) '進行UBB代碼的模版匹配與替換
temp=ReplaceTest((/[strike])(/S )(/[/strike]),temp,<strike>$2</strike>)'進行UBB代碼的模版匹配與替換
temp=ReplaceTest((/[sub])(/S )(/[/sub]),temp,<sub>$2</sub>)'進行UBB代碼的模版匹配與替換
temp=ReplaceTest((/[sup])(/S )(/[/sup]),temp,<sup>$2</sup>)
temp=ReplaceTest((/[pre])(/S )(/[/pre]),temp,<pre>$2</pre>)
temp=ReplaceTest((/[u])(/S )(/[/u]),temp,<u>$2</u>)
temp=ReplaceTest((/[small])(/S )(/[/small]),temp,<small>$2</small>)
temp=ReplaceTest((/[h1])(/S )(/[/h1]),temp,<h1>$2</h1>)
temp=ReplaceTest((/[h2])(/S )(/[/h2]),temp,<h2>$2</h2>)
temp=ReplaceTest((/[h3])(/S )(/[/h3]),temp,<h3>$2</h3>)
temp=ReplaceTest((/[h4])(/S )(/[/h4]),temp,<h4>$2</h4>)
temp=ReplaceTest((/[h5])(/S )(/[/h5]),temp,<h5>$2</h5>)
temp=ReplaceTest((/[h6])(/S )(/[/h6]),temp,<h6>$2</h6>)
temp=ReplaceTest((/[red])(/S )(/[/red]),temp,<font color=red>$2</font>)
'這裡可以增加新的UBB代碼的實現模版
temp=ReplaceTest((/[email])(/S )(/[/email]),temp,<a href=mailto:$2 target=_top>$2</a>)
temp=ReplaceTest((/[img])(/S )(/[/img]),temp,<img src=$2>)
temp=ReplaceTest((/[url])(/S )(/[/url]),temp,<a href=$2 target=_top>$2</a>)
temp=ReplaceTest((/[#(/S )])(/S )(/[/#]),temp,<font color=$1>$3</font>)'進行UBB代碼的模版匹配與替換
i=i 1
loop
if trim(temp)<> then
UBB=temp '將經過UBB代碼過濾後的字符串傳出
else
UBB=str '將經過UBB代碼過濾後的字符串傳出
end if
end function
在函數UBB的代碼中我們可以看到$1,$2,$3等等,這些字符串就是匹配後的字符串的代詞,就如同一些宏一樣,我們可以使用他們方便代替匹配到的字符串,而不必再使用程序去記住匹配字符串的位置。通過這兩個簡單的函數調用,我們實現了UBB代碼的功能,怎麼樣,很簡單吧。
這樣,我們只要在顯示文章的時候調用UBB函數,對文章內容進行處理之後,再顯示到瀏覽器上面,就實現了論壇的UBB代碼功能。並且,你可以方便的在函數UBB添加需要的UBB代碼匹配替換模版,從而可以不斷的擴充你的UBB代碼的功能。
(以上程序均在WinNT4.0英文版SP5,IIS4.0,IE5.x中運行通過)
分享:asp控制xml數據庫的6段非常的經典代碼NO.1--建立一個XML數據庫data.xml <?xml version=1.0?><records><record><name>caca</name><qq>1