上一篇
下一篇
通過範本生成靜態頁面示例
作者:tank 日期:2004-12-29
穩萊
通過範本生成靜態頁面示例
作者：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
%>
給當前日誌評分：
正在讀取評分資料...
文章來自: 
引用通告: 
Tags: 評論: 0 | 引用: 0 | 查看次數: -
發表評論