呵呵，其实这个写了都挺久的了，看看里面的日期就知道了，只不过一直不想发布出来，这次在做一个小型的论坛，就把原来自己的的那个复杂的摸板引擎修改了一翻拿来用，因为把ASP代码和HTML代码分离了开来，所以论坛是可以变换风格，在用这个摸板引擎的过程中发现了它功能上还是有点不足，就是在循环标签替换上，不过如果结合数组可以轻松实现的，呵呵，具体用法暂且不说了...等有时间再把教程写出来


<Script Language="vbscript" Runat="Server">

'--------------------------------------
'版权说明：
'Author:西楼冷月
'Date:2005-8-21
'HomeSite: www.xilou.Net   |-西楼社区-|    //    www.chinaCMS.org
'E-Mail:ch_56@163.com
'QQ:39949376   CMS讨论群：11497202
'version:西楼模板引擎V1.0精简版 XILOU-EasyTemplate v1.0
'--------------------------------------
'函数说明：
'Set_Block(BlkName)
'Set_Bvar(TagName,TagValue)
'Prase_Block(BlkName,BlkList)
'Replace_Block(BlkNameList)
'Set_Var(TagName,TagValue)
'Prase_Temp()
'OutPut()
'--------------------------------------
'变量说明：
'Key(),Value(),Num'//--------单标签保存数组
'BKey(),BValue(),BNum'//--------区块内单标签保存数组
'Temp'//----------模板全局变量
'BeginBlockStart,BeginBlockEnd,EndBlockStart,EndBlockEnd'//----------区块标签设置
'VarBegin,VarEnd'//------------单标签设置
'Re,Match,Mathes
'--------------------------------------
'集合说明：
'Block '//保存替换后的区块内容
'Block_List '//取出区块，保存区块内内容
'BlockNC '//取出区块，保存包括区块标签的整个区块内容
'---------------------------------------

On Error Resume Next

Class EasyTemplate

Private Key(),Value(),Num
Private BKey(),BValue(),BNum  
public   Block,Block_List,BlockNC
Public   Temp
Private BeginBlockStart,BeginBlockEnd,EndBlockStart,EndBlockEnd
Private VarBegin,VarEnd
Private Re,Match,Mathes
'--------------------------------------------------------
Private Sub Class_Initialize
'response.write "西楼模板引擎开始了，哈哈！<br>"
set Block         =CreateObject("Scripting.Dictionary")  '追加内容，更新内容
set Block_List =CreateObject("Scripting.Dictionary")  '储存区块内容
set BlockNC    =CreateObject("Scripting.Dictionary")'//储存包括区块标签的区块内容
set re=New RegExp

redim Key(20)
redim Value(20)
Num=0
redim BKey(20)
redim BValue(20)
BNum=0
redim PBblockName(20)
BlockNum=0
'------------默认标签模式------------
BeginBlockStart="<beginblock:"
BeginBlockEnd=">"
EndBlockStart="<endblock:"
EndBlockEnd=">"
VarBegin="{Tag:"
VarEnd="}"

End Sub

Private Sub Class_Terminate
set Block=nothing
set Block_List=nothing
set BlockNC=nothing
set re=nothing

Erase Key
Erase Value
Erase BKey
Erase BValue
'response.write "西楼模板引擎结束了！"
End Sub

'-------------------------------------------------------
Public Property Let SetTag(BS,BE,ES,EE,BG,ED)'//--------重新设置标签模式
BeginBlockStart= BS
BeginBlockEnd=BE
EndBlockStart=ES
EndBlockEnd=EE
VarBegin=BG
VarEnd=ED
End Property

'-------------------------------------------------------
Public Sub Set_Var(TagName,TagValue)   '单标签解析
dim k
   if IsArray(TagName) and IsArray(TagValue) then
      for k=LBound(TagName) to Ubound(TagName)
         Key(Num)=TagName(k)
     Value(Num)=TagValue(k)
     Num=Num+1
     if UBound(Key)=Num then   '如果数组太小则