ASP生成静态Html文件的技术总结(2)

　　’// 用真实内容替换模板中的标记 
　　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 
　　%>