服务器之家:专注于服务器技术及软件下载分享
分类导航

PHP教程|ASP.NET教程|JAVA教程|ASP教程|

服务器之家 - 编程语言 - ASP教程 - asp下用实现模板加载的几种方法总结

asp下用实现模板加载的几种方法总结

2019-09-29 11:10asp教程网 ASP教程

asp下html模板的加载方法,一般有以下几种,大家可以根据情况自己决定,结果都是一样的,都是好方法

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、还有一种就是把模板放到数据库中(速度慢)

延伸 · 阅读

精彩推荐