'/////////////////////////////////////////////////////
'通過模板生成靜態頁面示例
'作者：grIEfforyou
'/////////////////////////////////////////////////////
<!--模塊文件(template.htm)-->
<Html>
<head>
<title>%title%</title>
</head>
<body>
%content%
</body>
</Html>br>
<!--testtemplate.ASP-->
<%
dim fso,f
dim strtitle,strcontent,strout
'創建文件系統對象
set fso=server.createobject("scripting.filesystemobject")
'打開網頁模板文件，讀取模板內容
set f=fso.opentextfile(server.mappath("template.htm"))
strout=f.readall
f.close
strtitle="這是生成的網頁標題"
strcontent="這是生成的網頁內容"
'用真實內容替換模板中的標記
strout=replace(strout,"%title%",strtitle)
strout=replace(strout,"%content%",strcontent)
'創建要生成的靜態頁
set f=fso.createtextfile(server.mappath("new.htm"),true)
'寫入網頁內容
f.writeline strout
f.close
response.write "生成靜態頁成功！"
'釋放文件系統對象
set f=nothing
set fso=nothing
%>