功能不錯的asp模板類代碼附下載

更新時間：2008年07月24日 15:06:03 作者：

在工作中，因為要用模板類，在網(wǎng)上找了個asp模板類，用著挺好了。完工后也按別人的思路寫了模板類，這個模板類沒在設計的項目中應用，只是練練筆，所以只寫了簡單的幾個demo,有沒有bug還不清楚，歡迎大家測試，指教，幫忙完善。

四、模板里有循環(huán)塊沒有單變量
模板文件主要代碼
<title>模板-{webName}</title>
</head>

<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>

<tr><td>{animal2}</td></tr>

<tr><td><div align="center">{myname2}</div></td></tr>
</table>
</body>
注意在list_1塊中沒有像在list塊中的animal這樣的要替換的單變量

替換模板的代碼
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>

<%
response.Charset="utf-8"
set newTpl=new tpl
newTpl.setTpl="tpl4.html"

newTpl.setVar "myname","有一個塊沒有變量要替換的嵌套循環(huán)的"
newTpl.setVar "webName","亮亮的博客"

newTpl.setBlock="list"
for i=0 to 2
newTpl.setBloVar "animal","動物類別_"&i
newTpl.setBloVar "animal2","動物類別_"&i&"結束"
newTpl.outBloVar

newTpl.setBlock="list_1"
for m=0 to 2
'list_1塊里沒有單變量要替換也要執(zhí)行setBloVar和outBloVar,參數(shù)用空代替
newTpl.setBloVar "",""
newTpl.outBloVar

newTpl.setBlock="list_1_1"
for k=0 to 1
newTpl.setBloVar "plant","動物"&k
newTpl.outBloVar
next
newTpl.outInBlock "list_1","list_1_1"

newTpl.resetBlock="list_1"
next
newTpl.outInBlock "list","list_1"

newTpl.resetBlock="list"
next
newTpl.outBlock "list"
newTpl.setVar "myname2","測試結束"

newTpl.out
set newTpl=nothing
%>
最后介紹一下類里的主要方法
newTpl.setTpl="tpl.html" 設置主要模板文件
newTpl.setVar "myname","一個塊循環(huán)的" 替換模板文件中塊之外的變量
newTpl.setVarTpl "PageNo","inTpl.html" 用副模板文件替換單變量即加載副模板
newTpl.setBloVar "tpl_2","第三列_"&tt 替換塊里的變量
newTpl.outBloVar 輸入塊里所有替換后的內(nèi)容
newTpl.setBlock="a_block" 設置循環(huán)快
newTpl.outBlock "a_block" 輸出循環(huán)塊
newTpl.out 輸出所有
newTpl.resetBlock="list" 這是個比較特殊的，若list塊里還有要循環(huán)的塊，在循環(huán)list塊的代碼的next之前要用它。