'/////////////////////////////////////////////////////
'通過模板生成靜態頁面示例
'作者：griefforyou
'/////////////////////////////////////////////////////
<!--模塊文件(template.htm)-->
<html>
<head>
<title>%TITLE%</title>
</head>
<body>
%CONTENT%
</body>
</html>
<!--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
%>
