1、使用adodb.stream实现的一般虚拟主机都提供
复制代码 代码如下:
functionloadtempletfile(byvalpath)
onerrorresumenext
dimobjstream
setobjstream=server.createobject("adodb.stream")
withobjstream
.type=2
.mode=3
.open
.loadfromfileserver.mappath(path)
iferr.number<>0then
err.clear
response.write("预加载的模板["&path&"]不存在!")
response.end()
endif
.charset=""&chrset&""
.position=2
loadtempletfile=.readtext
.close
endwith
setobjstream=nothing
endfunction

2、用fso实现模板的加载速度快，但好多虚拟主机不提供fso功能
复制代码 代码如下:
'*******************************************************************************************************
'函数名：LoadTemplate
'作用：取出模板内容
'参数：TemplateFname模板地址
'返回值：模板内容
'********************************************************************************************************
FunctionLoadTemplate(TemplateFname)
onerrorresumenext
DimFSO,FileObj,FileStreamObj
SetFSO=CreateObject("scripting.filesystemobject")
TemplateFname=Server.MapPath(Replace(TemplateFname,"//","/"))
IfFSO.FileExists(TemplateFname)=FalseThen
LoadTemplate="模板不存在,请先绑定!"
Else
SetFileObj=FSO.GetFile(TemplateFname)
SetFileStreamObj=FileObj.OpenAsTextStream(1)
IfNotFileStreamObj.AtEndOfStreamThen
LoadTemplate=FileStreamObj.ReadAll
Else
LoadTemplate="模板内容为空"
EndIf
EndIf
SetFSO=Nothing:SetFileObj=Nothing:SetFileStreamObj=Nothing
LoadTemplate=LoadTemplate&Published
EndFunction
'**************************************************

ASP使用FSO读取模板的代码
3、还有一种就是把模板放到数据库中（速度慢）