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("預(yù)加載的模板[" & path & "]不存在!")   
            response.end()   
        end if   
        .charset = "" & chrset & ""   
        .position = 2   
            loadtempletfile = .readtext   
        .close   
    end with   
    set objstream = nothing   
end function 

2、用fso實(shí)現(xiàn)模板的加載速度快，但好多虛擬主機(jī)不提供fso功能

復(fù)制代碼代碼如下:

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