如何用ASP操作XML(四)

为了更进一步提高性能，你可以把转换工作放到COM/COM+组件中， ASP代码只进行数据的最终表现即可。把业务层、数据层和表现层分开，ASP只需要调用数据组件，数据组件调用数据库的存储过程，把结果转换成XML，最后只把简单的XML字符环串回到ASP程序里，ASP就可以用XSLT把XML进行转换，把结果送到浏览器。 <!--＃i nclude file="hotTemplat.asp"--> <% startime=timer() dim tp set tp=new hotTemplate dim tkey(2) tkey(0)="t1" tkey(1)="t2" dim tval(2) tval(0)="v1" tval(1)="v2" 'tp.loadfile "t.htm" tp.loadfile_fromcache "t.htm" tp.set_var "head","GOOD" tp.set_var "b2name","fkjdslajflksdakjlfjsdalkjflsadjkfljsad" tp.set_var tkey,tval tp.set_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 tp.set_block "aa" for tmpc=1 to 10  tp.set_bvar "bt1","haha"&tmpc  tp.set_bvar "bt2","hehe"&tmpc  tp.prase_block(10-tmpc) next tp.prase_file() tp.output() Response.Write("<hr><b>[Executing Time:&nbsp;"&FormatNumber((timer()-startime)*1000,3)&"&nbsp;Milliseconds.]</b><br>") 'tp.out_file("tt.htm") %> 模板（页面）：t.htm <style type="text/css"> <!-- .style1 {  color: #FF0000;  font-weight: bold; } --> </style> <span class="style1">{head}</span> is a hotTemplate show!! <table width="100%"  border="1" cellspacing="0" cellpadding="0">   <tr>     <td>title1</td>     <td>title2</td>     <td>title3</td>   </tr>   <!-- begin block b -->   <tr>     <td>{t1}</td>     <td>{t2}</td>     <td>{t3}</td>   </tr>   <!-- end block b --> </table> <p><br>   here is anther block {b2name} </p> <table width="100%"  border="0" cellpadding="0" cellspacing="1" bordercolor="#CCCCCC" bgcolor="#666666">   <tr bgcolor="#FFFFFF">     <td>bt1</td>     <td>bt2</td>   </tr>   <!-- begin block aa -->   <tr bgcolor="#FFFFFF">     <td>{bt1}</td>     <td>{bt2}</td>   </tr>   <!-- end block aa --> </table> <br>t1={t1}<br>t2={t2}<br>{tun}<br><br><br> <p>&nbsp;</p>