通過模板生成靜態頁面示例

'/////////////////////////////////////////////////////
'通過模板生成靜態頁面示例
'作者: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
%>

發佈了46 篇原創文章 · 獲贊 3 · 訪問量 29萬+
發表評論
所有評論
還沒有人評論,想成為第一個評論的人麼? 請在上方評論欄輸入並且點擊發布.
相關文章