En el trabajo real, a menudo usamos la plantilla, que no solo garantiza la consistencia de cada página, sino que también reduce nuestra carga de trabajo.
Página del modelo: M.HTM
Título: {Título}
Contenido: {contenido}
Llame a la página xxx.asp
My_moban = loadFile (m.htm)
Si my_moban <> entonces
My_moban = (reemplazar (my_moban, {title}, wulin.com
My_moban = (reemplazar (my_moban, {content}, http://www.vevb.com)))
Respuesta. Escribe my_moban
final si
Función LoadFile (m_root)
Dim File Name, FSO, Hndfile
Nombre de archivo = m_root
If right (nombre de archivo, 1) <>/ y derecho (nombre de archivo, 1) <>/ luego nombre de archivo = nombre de archivo & //
FileName = server.mappath (nombre de archivo y m_filename)
Establecer fso = createObject (scripting.filesystemObject)
Si no es fso.fileExist (nombre de archivo), entonces respuesta.write (archivo de plantilla & m_filename & does
establecer hndfile = fso.opentextfile (nombre de archivo)
si no hndfile.atendofstream entonces
LoadFile = hndfile.readall
final si
Establecer hndfile = nada
Establecer FSO = nada
If loadFile = entonces respuesta.write
Función final
Los métodos anteriores son solo para referencia.