'/////////////////////////////////////////////////////
'通過模板產生靜態頁面樣本
'作者：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
%>
Start building with 50+ products and up to 12 months usage for Elastic Compute Service
1 on 1 presale consultation
24/7 Technical Support 6 Free Tickets per Quarter Faster Response
Alibaba Cloud offers highly flexible support services tailored to meet your exact needs.
A comprehensive suite of global cloud computing services to power your business
Payment Methods We Support
