使用模板實現ASP程式碼與頁面分離

作者：Eve Cole 更新時間：2009-06-24 16:44:28

文章出處:程式設計手札
http://blog.csdn.net/nhconch請大家多多支援.

每個進行過較大型的ASP-Web應用程式設計的開發人員大概都有如下的經驗：ASP程式碼與頁面HTML混淆難分，業務邏輯與顯示方式絞合，使得程式碼難以理解、難以修改；程式編寫必須在美工之後，成為專案瓶頸；整合的程式碼和HTML靜態頁面時，花費大量的時間才能得到理想的效果，兼作了美工。的確，用腳本語言開發Web應用不容易將資料的處理和資料的顯示分開，但在多人合作的情況下，如果無法將資料和顯示分開，將大大影響開發的效率，專業分工的發揮。
其它的腳本語言，如JSP、PHP都有自己的解決方案，ASP的後一代產品ASP.NET也實現了程式碼與頁面，似乎直接過渡到ASP是不錯的選擇。但總有這樣或那樣的原因讓我們不能或暫時不能放棄ASP直奔.NET大營。從公司角度來看，轉換語言是一筆不少的投資，包括僱用熟手.NET程式設計師、培訓原有程式設計師、開發工具的轉型、開發風格的轉型、介面風格轉變、介面風格、軟體架構、文件、開發流程等等；這也意味著原有的程式碼必須在新語言環境中重寫以實現最佳的效果和穩定性；同時將直接影響這段時間內專案的進度，更有可能導致個別程式設計師出走。由此看來在您決定轉換語言之前，先在原基礎上尋求一種解決方案，才是最好的選擇。
PHP透過模板實作程式碼與頁面，可供選擇的有FastTemplate、PHPLIB、Smarty等多種，其中PHPLIB的影響最大、使用最多。既然如此，我們直接把它搬到ASP來，對於同時使用PHP和ASP的公司還有很有好處：一、美工處理頁面時，不管將要套用PHP還是ASP，處理方式是一樣，無須經過培訓；二、程式設計師編寫程式碼時，兩種語言間的想法接近或一致，相同功能在兩種語言實現時，只需拷貝過來略作修改即可，保證了工作效率和專案進度。

1.模板類別的設計實作程式碼封裝成為模板類，也就是為了與PHPLIB相容，也使得程式碼方便管理與擴充。
模板類別要實現的目標為：從模板檔案中讀入顯示的HTML程式碼，將這些顯示程式碼中需要動態資料的地方替換為ASP程式運算所得出的數據，然後依照一定的順序輸出。其中，替換的部分可以自由的設定。因此它必須完成以下任務：
·從範本檔案讀取顯示用的HTML程式碼。
·將範本檔案和實際產生的資料結合，產生輸出的結果。
·允許同時處理多個模板。
·允許模板的嵌套。
·允許對模板中的某個單獨的部分進行處理。

實作方法：
採用FSO讀取模板文件
採用正規替換實現模板檔案和資料的結合
處理多個模板用數組儲存來實現。
模板的嵌套的實現主要的想法是：將模板和輸出（任何中間的分析結果）一視同仁，都可拿來做替換，即可實現。
單獨部分的處理的透過在範本檔案中設定標註，然後在正規替換中結合標註來控制，實現部分替換。

2.模板類別的實作給出具體程式碼之前，先把主要函數列出，用過PHPLIB的朋友應該對此很熟悉了：
1)Public Sub set_root(ByVal Value) 設定模板預設目錄2）Public Sub set_file(ByVal handle,ByVal filename) 讀取檔案3）Public Sub set_var(ByVal Name, ByVal Value, ByVal Append) 設定映射資料-替換變數4)Public Sub unset_var(ByVal Name) 取消資料映射5)Public Sub set_block(ByVal Parent, ByVal BlockTag, ByVal Name) 設定資料區塊6)Public Sub set_unknowns(ByVal unknowns) 設定未指定映射的標記處理方式7） Public Sub parse(ByVal Name, ByVal BlockTag, ByVal Append) 執行模板檔案與資料的結合8)Public Sub p(ByVal Name) 輸出處理結果實作程式

碼：
<%
'================================================== ======================
' 本物件中使用了set_var、set_block等命名方法是為了相容於phplib
'================================================== ======================
'www.downcodes.com

Class kktTemplate

Private m_FileName, m_Root, m_Unknowns, m_LastError, m_HaltOnErr
Private m_ValueList, m_BlockList
Private m_RegExp
' 建構函數
Private Sub Class_Initialize
Set m_ValueList = CreateObject("Scripting.Dictionary")
Set m_BlockList = CreateObject("Scripting.Dictionary")
set m_RegExp = New RegExp
m_RegExp.IgnoreCase = True
m_RegExp.Global = True
m_FileName = ""
m_Root = ""
m_Unknowns = "remove"
m_LastError = ""
m_HaltOnErr = true
End Sub

' 析構函數
Private Sub Class_Terminate
Set m_RegExp = Nothing
Set m_BlockMatches = Nothing
Set m_ValueMatches = nothing
End Sub

Public Property Get ClassName()
ClassName = "kktTemplate"
End Property

Public Property Get Version()
Version = "1.0"
End Property

Public Sub About()
Response.Write("kktTemplate ASP頁面模板類別<br>" & vbCrLf &_
"程式設計：彭國輝2004-07-05<br>" & vbCrLf &_
"個人網站：<a href='http://kacarton.yeah.net'>http://kacarton.yeah.net</a><br>" & vbCrLf &_
"電子郵件：<a href='mailto:[email protected]'>[email protected]</a><br>")
End Sub

'檢查目錄是否存在
Public Function FolderExist(ByVal path)
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
FolderExist = fso.FolderExists(Server.MapPath(path))
Set fso = Nothing
End Function
'讀取文件內容
Private Function LoadFile()
Dim Filename, fso, hndFile
Filename = m_Root
If Right(Filename, 1)<>"/" And Right(Filename, 1)<>"" Then Filename = Filename & "/"
Filename = Server.MapPath(Filename & m_FileName)
Set fso = CreateObject("Scripting.FileSystemObject")
If Not fso.FileExists(Filename) Then ShowError("範本檔案" & m_FileName & "不存在!")
set hndFile = fso.OpenTextFile(Filename)
LoadFile = hndFile.ReadAll
Set hndFile = Nothing
Set fso = Nothing
If LoadFile = "" Then ShowError("無法讀取範本檔案" & m_FileName & "或檔案為空!")
End Function

'處理錯誤訊息
Private Sub ShowError(ByVal msg)
m_LastError = msg
Response.Write "<font color=red style='font-size;14px'><b>模板錯誤：" & msg & "</b></font><br>"
If m_HaltOnErr Then Response.End
End Sub

'設定模板檔案預設目錄
'Ex: kktTemplate.set_root("/tmplate")
' kktTemplate.Root = "/tmplate"
' root = kktTemplate.get_root()
' root = kktTemplate.Root
'使用類似set_root這樣的命名方法是為了相容於phplib，以下將不再重複說明
Public Sub set_root(ByVal Value)
If Not FolderExist(Value) Then ShowError(Value & "不是有效目錄或目錄不存在!")
m_Root = Value
End Sub
Public Function get_root()
get_root = m_Root
End Function
Public Property Let Root(ByVal Value)
set_root(Value)
End Property
Public Property Get Root()
Root = m_Root
End Property

'設定範本文件
'Ex: kktTemplate.set_file("hndTpl", "index.htm")
'本類不支援多模板文件，handle為相容phplib保留
Public Sub set_file(ByVal handle,ByVal filename)
m_FileName = filename
m_BlockList.Add Handle, LoadFile()
End Sub
Public Function get_file()
get_file = m_FileName
End Function
' Public Property Let File(handle, filename)
' set_file handle, filename
' End Property
' Public Property Get File()
' File = m_FileName
' End Property

'設定對未指定的標記的處理方式，有keep、remove、comment三種
Public Sub set_unknowns(ByVal unknowns)
m_Unknowns = unknowns
End Sub
Public Function get_unknowns()
get_unknowns = m_Unknowns
End Function
Public Property Let Unknowns(ByVal unknown)
m_Unknowns = unknown
End Property
Public Property Get Unknowns()
未知 = m_Unknowns
End Property

Public Sub set_block(ByVal Parent, ByVal BlockTag, ByVal Name)
Dim Matches
m_RegExp.Pattern = "([sS.]*)")
Case Else finish = content
End Select
End Function

Public Sub p(ByVal Name)
If Not m_ValueList.Exists(Name) Then ShowError("不存在的標記" & Name)
Response.Write(finish(m_ValueList.Item(Name)))
End Sub
End Class
%>

3.使用例子下面舉三個例子來說明。
1)簡單的值替換範本檔案為myTemple.tpl，內容：
<html><title>ASP模板簡單替換</title><body>
祝賀！你贏了一輛{some_color}法拉利！
</body>

下面是ASP程式碼（kktTemplate.inc.asp就是上面給的模板類別）：

<%
dim my_color, kkt
my_color = "紅色的"
set kkt = new kktTemplate '建立模板對象
kkt.set_file "hndKktTemp", "myTemple.tpl" '設定並讀取範本檔案myTemple.tpl
kkt.set_var "some_color", my_color, false '設定模板變數some_color = my_color的值
kkt.parse "out", "hndKktTemp", false '範本變數out = 處理後的文件
kkt.p "out" '輸出out的內容
set kkt = nothing '銷毀模板對象
%>

執行後輸出為：
<html><title>ASP模板簡單替換</title><body>
祝賀！你贏了一輛紅色的法拉利！
</body>

2)循環區塊示範範例範本檔案myTemple2.tpl：
<html><title>ASP模板－區塊的示範</title><body>
<table cellspacing="2" border="1"><tr><td>下面的動物您喜歡哪一種</td></tr>

<tr><td><input type="radio" name="chk">{animal}</td></tr>

</table>
</body>

ASP程式碼：

<%
dim animal, kkt, i
animal = Array("小豬","小狗","小強壯")
set kkt = new kktTemplate
kkt.set_file "hndKktTemp", "myTemple2.tpl"
kkt.set_block "hndKktTemp", "AnimalList", "list"
for i=0 to UBound(animal)
kkt.set_var "animal", animal(i), false
kkt.parse "list", "AnimalList", true
next
kkt.parse "out", "hndKktTemp", false
kkt.p "out"
set kkt = nothing
%>

執行結果：
<html><title>ASP模板－區塊的示範</title><body>
<table cellspacing="2" border="1"><tr><td>下面的動物您喜歡哪一種</td></tr>
<tr><td><input type="radio" name="chk">小豬</td></tr>
<tr><td><input type="radio" name="chk">小狗</td></tr>
<tr><td><input type="radio" name="chk">小強</td></tr>
</table>
</body>

3)巢狀區塊示範範本檔案myTemple3.tpl：
<html><title>ASP模板－嵌套區塊示範</title>
<body><table width="400" border="1" bordercolor="#000000">
<tr><td><div align="center">{myname}測試</div></td></tr>
<tr><td>我的動植物園：</td> </tr>

<tr><td>{animal}</td></tr>

<tr><td>  {plant}</td></tr>


</table>
</body>
</html>

ASP程式碼：

<%
dim my_color, kkt, myname, animal, plant
set kkt = new kktTemplate
myname = "kktTemplate block test..."
animal = array("動物", "植物")
plant = array(array("小豬","小白","小強"), array("玫瑰","向日葵"))

kkt.set_file "hndKktTemp", "myTemple3.tpl"
kkt.set_var "myname", myname, false
kkt.set_block "hndKktTemp", "animalList", "a"
kkt.set_block "animalList", "plantList", "p"

for i=0 to UBound(animal)
kkt.set_var "animal", animal(i), False
kkt.unset_var "p"
'kkt.set_var "p", "", false
for j=0 至 UBound(plant(i))
kkt.set_var "plant", plant(i)(j), false
kkt.parse "p", "plantList", true
next
kkt.parse "a", "animalList", true
next
kkt.parse "out", "hndKktTemp", false
kkt.p "out"
%>

執行結果：
<html><title>ASP模板－嵌套區塊示範</title>
<body><table width="400" border="1" bordercolor="#000000">
<tr><td><div align="center">kktTemplate block test...測試</div></td></tr>
<tr><td>我的動植物園：</td> </tr>
<tr><td>動物</td></tr>
<tr><td>  小豬</td></tr>
<tr><td>  小白</td></tr>
<tr><td>  小強</td></tr>
<tr><td>植物</td></tr>
<tr><td>  玫瑰</td></tr>
<tr><td>  向日葵</td></tr>
</table>
</body>
</html>

本文提及的所有程式碼可從此處下載：