參數說明
'demoname 使用的範本[ ../demo/*.html]
'savename 儲存位置以及名稱[ ../demo/*.html]
'strflag 需要替換的標記[ $aaa$,$bbb$]
'strcontent 各標記的替換內容[aaa$bbb]
'================================================== ==============================
Sub makepage(demoname,savename,strflag,strcontent)
Dim fso,htmlwrite
Dim strOut
'// 建立檔案系統物件Set fso=Server.CreateObject(Scripting.FileSystemObject)
'// 開啟網頁範本文件，讀取範本內容
Set htmlwrite=fso.OpenTextFile(Server.MapPath(demoname))
strOut=htmlwrite.ReadAll
htmlwrite.close
'================================================== ==============================
strflag=split(strflag,,)
for i = 0 to ubound(strflag)
strcont=split(strcontent,$)
strOut=Replace(strOut,strflag(i),strcont(i))
'response.write strflag(i)&=&[&strcont(i)&]
next
'// 以真實內容取代模板中的標記
'================================================== ==============================
'// 建立要產生的靜態頁
Set htmlwrite=fso.CreateTextFile(Server.MapPath(savename),true)
'// 寫入網頁內容
htmlwrite.WriteLine strOut
htmlwrite.close
Response.Write
'// 釋放檔案系統對象
set htmlwrite=Nothing
set fso=Nothing
end sub
-------------------------------------------------- -------------------------------------------------- -----------------------------------------
使用範例：
'替換標籤
commentFlag=$hotname$,$webkeywords$,$webdescription$,$webtitle$,$weblogo$
'替換標籤對應的值
Hostname=Request.ServerVariables(SERVER_NAME)'取得目前域名
set rs=conn.execute(select webtitle_cn,webkey_cn,webDescription_cn,weblogo,webbanner from [WebConfig])
commentstr=Hostname&$&rs(1)&$&rs(2)&$&rs(0)&$&rs(3)
rs.close
set rs=nothing
'呼叫子程式
call makepage(../Demo/index_cn.html,../Cn/index.html,commentFlag,commentstr)