No trabalho real, geralmente usamos o modelo, que não apenas garante a consistência de cada página, mas também reduz a nossa carga de trabalho.
Modelo Página: M.Htm
Título: {Title}
Conteúdo: {content}
Ligue para a página xxx.asp
My_moban = loadfile (m.htm)
Se my_moban <> então
My_moban = (substitua (my_moban, {title}, wulin.com
My_moban = (substitua (my_moban, {content}, http://www.vevb.com))
Response.Write my_moban
final se
Função loadfile (m_root)
Dim FileName, FSO, HNDFILE
Nome do arquivo = m_root
Se certo (nome do arquivo, 1) <>/ e direito (nome do arquivo, 1) <>/ então filename = nome do arquivo & //
FileName = Server.mappath (nome do arquivo e m_filename)
Set fso = createObject (script.filesystemObject)
Se não for fso.fileExist (nome do arquivo), então Response.Write (arquivo de modelo & m_filename & faz
Definir hndfile = fso.opentExtfile (nome do arquivo)
se não hndfile.atendofstream, então
Loadfile = hndfile.readall
final se
Definir hndfile = nada
Definir FSO = nada
Se loadfile = então Response.Write
Função final
Os métodos acima são apenas para referência.