실제 작업에서는 종종 템플릿을 사용하여 각 페이지의 일관성을 보장 할뿐만 아니라 워크로드를 줄입니다.
모델 페이지 : M.HTM
제목 : {title}
내용 : {content}
xxx.asp 페이지에 전화하십시오
my_moban = loadfile (m.htm)
my_moban <>라면
my_moban = (replace (my_moban, {title}, wulin.com
my_moban = (replace (my_moban, {content}, http://www.vevb.com))
Response.write my_moban
끝 If
함수로드 파일 (m_root)
Dim Filename, FSO, Hndfile
filename = m_root
오른쪽 (filename, 1) <> and right (filename, 1) <> filename = filename & //
filename = server.mappath (filename & m_filename)
set fso = createobject (scripting.filesystemobject)
fso.fileExist (filename)가 아닌 경우 response.write (템플릿 파일 & m_filename & does
set hndfile = fso.opentextfile (filename)
hndfile.atendofstream이 아닌 경우
loadfile = hndfile.readall
끝 If
Hndfile = 아무것도 설정하지 않습니다
FSO = 아무것도 설정하지 않습니다
loadFile =이면 응답. write
엔드 기능
위의 방법은 참조 용입니다.