作家
登录

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

作者: 来源:www.28hudong.com 2013-03-30 08:31:46 阅读 我要评论

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

关键词: 探索发现

乐购科技部分新闻及文章转载自互联网,供读者交流和学习,若有涉及作者版权等问题请及时与我们联系,以便更正、删除或按规定办理。感谢所有提供资讯的网站,欢迎各类媒体与乐购科技进行文章共享合作。

网友点评
自媒体专栏

评论

热度

精彩导读
栏目ID=71的表不存在(操作类型=0)