1、使用adodb.stream實現的 一般虛擬主機都提供 

復制代碼代碼如下:

function loadtempletfile(byval path)   
    on error resume next   
    dim objstream   
    set objstream = server.createobject("adodb.stream")   
    with objstream   
        .type = 2   
        .mode = 3   
        .open   
        .loadfromfile server.mappath(path)   
        if err.number <> 0 then   
            err.clear   
             response.write("預加載的模板[" & path & "]不存在!")   
            response.end()   
        end if   
        .charset = "" & chrset & ""   
        .position = 2   
            loadtempletfile = .readtext   
        .close   
    end with   
    set objstream = nothing   
end function 

2、用fso實現模板的加載速度快，但好多虛擬主機不提供fso功能 

復制代碼代碼如下:

'******************************************************************************************************* 
        '函數名：LoadTemplate 
        '作  用：取出模板內容 
        '參  數：TemplateFname模板地址 
        '返回值：模板內容 
        '******************************************************************************************************** 
        Function LoadTemplate(TemplateFname) 
            on error resume next 
            Dim FSO, FileObj, FileStreamObj  
            Set FSO = CreateObject("scripting.filesystemobject") 
              TemplateFname = Server.MapPath(Replace(TemplateFname, "//", "/")) 
              If FSO.FileExists(TemplateFname) = False Then 
                LoadTemplate = "模板不存在,請先綁定!" 
              Else 
                Set FileObj = FSO.GetFile(TemplateFname) 
                Set FileStreamObj = FileObj.OpenAsTextStream(1) 
                If Not FileStreamObj.AtEndOfStream Then 
                    LoadTemplate = FileStreamObj.ReadAll 
                Else 
                    LoadTemplate = "模板內容為空" 
                End If 
              End If 
              Set FSO = Nothing:Set FileObj = Nothing:Set FileStreamObj = Nothing 
              LoadTemplate=LoadTemplate & Published 
        End Function 
'**************************************************

ASP使用FSO讀取模板的代碼
3、還有一種就是把模板放到數據庫中（速度慢）