模板 一個從類到執行個體都有的模板的例子
這個類還有很多不完善（比如效率），希望大家共同探討，高手多多指正。
-----------------------------------------------------------------------
首先介紹asp中的類：
Class對象，要求版本 5。
像一些物件導向的語言一樣，asp中也提供類的支援，不過功能上不完善。
對於本類中使用的加以說明：
Initialize 事件：在建立類的執行個體時發生此事件。
Private Sub Class_Initialize()
語句
End Sub
此事件類別似於c++中的建構函式，用來構造一個對象，本類中初始化了一些類的屬性。
如何建立一個執行個體呢？
Dim X
Set X = New classname
此時X已經是經過Class_Initialize過程的一個對象了。
在類中定義的函數（過程），就叫做類的方法。
具體細節可參考：
mytju.com/classFiles/TJU001/vbs5.5.chm
-----------------------------------------------------------------------
介紹模板技術：
大家寫程式的時候（比如留言板），是不是都經曆過迴圈＋表格的方式呢？
這樣寫出的程式，既可讀性差，又難於維護代碼。
比如，以後要更改表格的顏色，或者改變頁面配置（比如改變留言顯示位置），
可能所有的代碼都要重寫（留言板當然不會，大的新聞系統就麻煩了）。
而模板技術的目的就是把：
表現層（頁面）與邏輯層（代碼）分開。
這是一個分頁檔（就是模板）：
下面是經過代碼檔案解析過的效果：
也許你會問，這又怎樣呢？不是更麻煩了嗎？
也許在初期編寫，會增加周期，可是，後期只要你把模板檔案更換一下，就是一個
全新的結果了！而這個過程，asp的vbs指令檔是完全不需修改的。
更進一步：上面的解析過程，是通過你編寫的vbs來控制的，這樣（理論上）就可以解析成
任何類型的檔案，只要有模板！
這樣你想到什麼呢？對，新浪你也能作了！（誇張修辭）以前做新聞系統時，
news.asp?id=xxx（通過新聞ID讀取新聞）的時代就可以結束了，你可以產生靜態頁面：
2004090618.htm。
言歸正傳，說模板技術：
模板技術簡單說就是把[模板檔案]裡面的待替換的變數（此處是用{}包含的內容），
替換成你所需要顯示的內容。
普通的變數替換很容易：你只要瞭解FSO的操作（廣告秀：cnbruce有個asp教程，有詳細講解）
就不難，把模板檔案的內容全部讀取，然後對其中要替換的‘標記’進行替換（replace()）就可以
實現效果。
而模板技術核心的東西應該是對於迴圈的處理：
以前看到的一些技術，是採用自訂一個標籤，然後在標籤中加入決定迴圈的
一些變數，比如名稱、次數。
個人覺得這樣可能違背了模板的初衷－－表現層與邏輯層分離
而且正則的效率也不敢恭維。
對於迴圈的次數，應該完全由代碼來控制，而不是要製作頁面人員（美工）來添加。
所以我採用設定區塊的思想：（借鑒自php）
把欲迴圈的頁面代碼，作為一個Block，整個block再作為頁面的一個變數來處理。
見下圖：
需要做的就是加入一個html的注釋（類似於上面說得標籤）
而在代碼部分：（tp為類的一個對象，set_block，set_bvar是類的一個方法）
'對於迴圈的處理方式
tp.set_block "b" '設定區塊，對應圖中的 block b
for tmpc=1 to 10'設定迴圈次數，可以根據程式而定
tp.set_bvar "t1","alax"&tmpc'解析區塊中的變數
tp.set_bvar "t2","proa"&tmpc
tp.set_bvar "t3","hotsjf"&tmpc
tp.prase_block(10-tmpc)'把區塊作為變數來看，解析整個區塊
next
需要執行個體的可以下載這個。
www.7csky.com/user/hotsjf/hottemplate.rar
運行test.asp即可看到採用 t.htm 為模板的效果。
效果示範點這：
代碼檔案：
202.4.136.222:802/test.asp
模板檔案：
202.4.136.222:802/t.htm
之後的事情，就是對已經替換了全部標記的模板內容顯示了。
顯示可以直接將內容 response.write
也可以同FSO，將內容寫成檔案，這時就可以產生其他類型的檔案（例如.htm）。
謝謝大家多多提意見。
簡單總結模板的特點：
表現層與邏輯層分開，頁面人員不需考慮邏輯部分。
區塊（block）的思想，解決asp中容易造成頁面與代碼交叉的部分。
帶有緩衝功能，加快檔案產生速度。
＝＝
模板代碼：引用請保留資訊，謝謝。
類：hotTemplat.asp
<%
'======================================'
'hotTemplate
'by hotsjf
'2004.7.28
'sjf008@tom.com
'some rights reserved
'======================================'
On Error Resume Next
Class hotTemplate
'class member
dim file
dim var_key(50)
dim var_val(50)
dim var_num
dim bvar_key(50)
dim bvar_val(50)
dim bvar_num
dim block_name
dim block_content
dim new_block
dim debug
dim clear_unknown_tag
dim beginBlockStart
dim beginBlockEnd
dim endblockStart
dim endBlockEnd
dim varBegin
dim varEnd
'-------------------------------------------------------------------'
'初始化
Private Sub Class_Initialize
var_num=0
bvar_num=0
debug=false
beginBlockStart="<!-- begin block "
beginBlockEnd=" -->"
endblockStart="<!-- end block "
endBlockEnd=" -->"
varBegin="{"
varEnd="}"
file=""
clear_unknown_tag=true
if debug then
response.write ("in Class_Initialize() <br>")
end if
End Sub
'-------------------------------------------------------------------'
'載入模板檔案
Public function loadfile(filename)
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile( server.mappath(filename),1)
if err.number>0 then
exp_msg("no file matched!")
end if
file = f.ReadAll
'write into cache
Application.Lock
Application("hot_tp"&filename)=file
Application.Unlock
if debug then
response.write ("i
