在ASP中利用“正則表達式” 對象實現(xiàn)UBB風(fēng)格的論壇_ASP教程

      編輯Tag賺U幣
      教程Tag:暫無Tag,歡迎添加,賺取U幣!

      推薦:ASP 3.0高級編程(三十二)
      7.2.4 客戶端腳本錯誤 到目前為止,我們已了解了來自ASP的錯誤。然而ASP也經(jīng)常用于創(chuàng)建包含客戶端腳本的網(wǎng)頁。如果包含客戶端代碼的<SCRIPT>元素沒有被設(shè)置成RUNAT="SERVER"屬

      上一次,我們談到在ASP中如何利用“正則表達式”對象來實現(xiàn)各種數(shù)據(jù)的校驗,文中描述了正則表達式對象的強大功能,接下來,我們來看看有關(guān)“正則表達式”對象的其他功能。當我們在網(wǎng)上沖浪的時候,尤其是瀏覽各類論壇的時候,經(jīng)常會見到“UBB代碼”這個詞語。什么是UBB代碼呢?UBB代碼是HTML的一個變種,是Ultimate Bulletin Board (國外一個BBS程序,國內(nèi)也有不少地方使用這個程序)采用的一種特殊的TAG。為了避免用戶無意或者有意的HTML代碼對論壇的攻擊,各種論壇基本上都屏蔽了HTML代碼,但是為了使得論壇更加“多姿多彩”,論壇都會相應(yīng)的開放一些自定義的Tag標簽,類似于HTML中的Tag,比如“[URL],[/URL],[RED],[/RED]”,這樣,可以提供一些等同于HTML代碼的功能,又避免了論壇受到惡意攻擊,這些自定義的各種Tag就是俗稱的UBB代碼。眼下時髦的論壇均支持UBB代碼,比如:動感技術(shù)網(wǎng)絡(luò)的論壇就很好的支持UBB代碼。現(xiàn)在,我們一同使用“正則表達式”對象來實現(xiàn)我們自己的豐富多彩的UBB代碼吧。

      首先,你的服務(wù)器端(IIS或者PWS)要有VBScript5.0的支持環(huán)境,一般指要安裝了IE5.X就已經(jīng)可以支持“正則表達式”對象了。

      關(guān)于“正則表達式”對象的常見方法、屬性的使用方法,我在本刊的“在ASP中利用“正則表達式”對象實現(xiàn)數(shù)據(jù)的校驗”一文中已經(jīng)有詳細介紹了,可以參見那一篇文章,在這里,我主要介紹一下實現(xiàn)“UBB代碼”的主要正則表達式對象方法:Replace()方法。

      Replace方法語法如下:

      Replace方法語法如下:

      描述

      替換在正則表達式查找中找到的文本。

      語法

      object.Replace(string1, string2)

      Replace 方法的語法包含以下幾個部分:

      部分       描述

      object       必需的。總是一個 RegExp 對象的名稱。

      string1      必需的。string1 是將要進行文本替換的字符串。

      string2      必需的。 string2 是替換文本字符串。

      說明

      被替換的文本的實際模式是通過 RegExp 對象的 Pattern 屬性設(shè)置的。

      Replace 方法返回 string1 的副本,其中的 RegExp.Pattern 文本已經(jīng)被替換為 string2。如果沒有找到匹配的文本,將返回原來的 string1 的副本。

      接下來,我們要確定我們最終想要實現(xiàn)一套什么樣的UBB代碼?這次我們要實現(xiàn)的UBB代碼功能如下:

      URL超級鏈接

      在你的信息里加入超級鏈接,只要按下列方式套入就可以了(UBB代碼是粗體).

      [url]www.test.net[/url]

      按上例套入,UBB代碼會自動對URL產(chǎn)生鏈接,并保證當用戶點擊新的窗口時這個鏈接是打開著的。

      電子郵件鏈接

      在你的信息里加入電子郵件的超級鏈接,只要按照下例套入就可以了(UBB代碼是粗體)

      [email]uestc95@263.net[/email]

      按上例套入,UBB代碼會對電子郵件自動產(chǎn)生鏈接。

      加入圖象

      在你的信息里加入圖象,只要按下例套入就可以了(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代碼的實現(xiàn)方式同上面的類似,我們就以上面UBB代碼實現(xiàn)作為例子來講解“正則表達式”對象的強大功能。

      我們主要使用Replace()方法配合相應(yīng)的模版,就可以方便的實現(xiàn)UBB代碼功能了,在這里我們主要用到了兩個自己編寫的函數(shù),第一個函數(shù)ReplaceTest,這個函數(shù)實現(xiàn)的功能主要是將“正則表達式”對象進行了封裝,提供三個入口參數(shù):

      Patrn

      這個參數(shù)傳遞的是UBB代碼的匹配模版

      Str

      這個參數(shù)傳遞的是將要以UBB方式處理的字符串,比如文章內(nèi)容。

      ReplStr

      這個參數(shù)傳遞的是匹配成的HTML代碼語言。

      ReplaceTest函數(shù)的出口參數(shù)是經(jīng)過模版匹配替換之后的字符串。

      ReplaceTest函數(shù)代碼如下:

      Function ReplaceTest(patrn,str,replStr)

      Dim regEx, str1 ' 建立變量。

      str1=trim(str)

      Set regEx = New RegExp ' 建立正則表達式。

      regEx.Pattern = patrn ' 設(shè)置模式。

      regEx.IgnoreCase = true ' 設(shè)置是否區(qū)分大小寫。

      ReplaceTest = regEx.Replace(str1, replStr) ' 作替換。

      set regEx=nothing ‘銷毀正則表達式對象

      End Function

      我們要編寫的第二個函數(shù)是:UBB()函數(shù)。這個函數(shù)實現(xiàn)的功能就是將一段文本進行UBB功能的轉(zhuǎn)換。這個函數(shù)僅僅只有一個入口參數(shù):

      Str

      這個參數(shù)傳遞要被處理的字符串。

      UBB函數(shù)的出口參數(shù)是經(jīng)過UBB代碼處理過后的字符串。

      UBB函數(shù)的代碼如下:(程序中有詳細注釋信息)

      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代碼的實現(xiàn)模版

      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 ‘將經(jīng)過UBB代碼過濾后的字符串傳出

      else

      UBB=str  ‘將經(jīng)過UBB代碼過濾后的字符串傳出

      end if

      end function

      在函數(shù)UBB的代碼中我們可以看到“$1”,“$2”,“$3”等等,這些字符串就是匹配后的字符串的代詞,就如同一些“宏”一樣,我們可以使用他們方便代替匹配到的字符串,而不必再使用程序去記住匹配字符串的位置。通過這兩個簡單的函數(shù)調(diào)用,我們實現(xiàn)了UBB代碼的功能,怎么樣,很簡單吧。

      這樣,我們只要在顯示文章的時候調(diào)用UBB函數(shù),對文章內(nèi)容進行處理之后,再顯示到瀏覽器上面,就實現(xiàn)了論壇的UBB代碼功能。并且,你可以方便的在函數(shù)UBB添加需要的UBB代碼匹配替換模版,從而可以不斷的擴充你的UBB代碼的功能。

      (以上程序均在WinNT4.0英文版SP5,IIS4.0,IE5.x中運行通過)

      分享:asp控制xml數(shù)據(jù)庫的6段非常的經(jīng)典代碼
      NO.1--建立一個XML數(shù)據(jù)庫data.xml <?xml version="1.0"?> <records> <record> <name>caca</name> <qq>1

      來源:模板無憂//所屬分類:ASP教程/更新時間:2008-08-22
      相關(guān)ASP教程