參數說明
'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)