TestTemplate.asp '// 生成Html ＜% 
Dim fso,htmlwrite 
Dim strTitle,strContent,strOut 
'// 创建文件系统对象 
Set fso=Server.CreateObject("Scripting.FileSystemObject") 
'// 打开网页模板文件，读取模板内容 
Set htmlwrite=fso.OpenTextFile(Server.MapPath("Template.htm")) 
strOut=f.ReadAll 
htmlwrite.close 
strTitle="生成的网页标题" 
strContent="生成的网页内容" 
'// 用真实内容替换模板中的标记 
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 
%> 

(编辑:aniston)