熊海博客

    有相当一段时间来总在研究将程序生成html，网上找了不少例子，经过多次尝试终究没有成功，因为网上写的例子有不少有错误的，而且不少执行效率过低，比如xmlhtml的方法，今天下午将网上写的一个错误的例子反复查看，终于将其修改正确，其中，moben为模板文件，test.htm为生成后的文件。

<% 
Dim fso,htmlwrite 
Dim strTitle,strContent,strOut

Set fso=Server.CreateObject("Scripting.FileSystemObject")    
Set htmlwrite=fso.OpenTextFile(Server.MapPath("moban.htm"))  
strOut=htmlwrite.ReadAll  
htmlwrite.close  

strTitle="AAA"
strContent="BBB" 

'// 用真实内容替换模板中的标记  
strOut=Replace(strOut,"$title$",strTitle)
strOut=Replace(strOut,"$body$",strContent)
 
Set htmlwrite=fso.CreateTextFile(Server.MapPath("test.htm"),true)  

'// 写入网页内容  
htmlwrite.WriteLine strOut  
htmlwrite.close  

Response.Write "操作成功" 

'// 释放文件系统对象  
set htmlwrite=Nothing  
set fso=Nothing  
%>

    原理很简单，将模板内动态内容全部写成$...$这种格式，再在此文件中将其替换即可，很多CMS就是利用这种方法生成，此方法来源于网络，但有部分错误，由我重新修正，希望能帮助到无法使用ASP生成HTML的朋友。