実際の作業では、各ページの一貫性を保証するだけでなく、この記事ではASPを使用する方法を紹介します。
モデルページ:m.htm
タイトル:{タイトル}
コンテンツ:{content}
ページxxx.aspに電話してください
my_moban = loadfile(m.htm)
my_moban <> thenの場合
my_moban =(cheplage(my_moban、{title}、wulin.com
my_moban =(置き換え(my_moban、{content}、http://www.vevb.com)))
Response.write my_moban
ifを終了します
function loadfile(m_root)
dim filename、fso、hndfile
filename = m_root
右(filename、1)<>/ and right(filename、1)<>/ then filename = filename&//
filename = server.mappath(filename&m_filename)
fso = createObject(scripting.filesystemObject)をset
fso.fileexist(filename)ではない場合は、response.write(template file&m_filename&dos
set hndfile = fso.opentextfile(filename)
hndfile.atendofStreamでない場合
loadfile = hndfile.readall
ifを終了します
hndfile = Nothingを設定します
FSO =何も設定しません
loadfile = then respons.writeの場合
エンド関数
上記の方法は参照用です。