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、还有一种就是把模板放到数据库中(速度慢)
推荐阅读
asp下实现字符串的补充fill()
复制代码 代码如下:<% '功能:在一个字符串前后补全另一字符串 '来源:http://jorkin.reallydo.com/article.asp?id=452 Public Function Fill(ByVal sString, ByVal sStr) Fill = RFill(LFill(sString, sStr>>>详细阅读
本文标题:asp下用实现模板加载的的几种方法总结 原创
地址:http://www.17bianji.com/kaifa2/ASP/32316.html
1/2 1