asp下用實現模板載入的的幾種方法總結[原創]_應用技巧

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、還有一種就是把模板放到資料庫中（速度慢）