ASP使用FSO读取模板的代码

m_Root是文件名，可以使用相对路径。

调用调用示例：

Response.Write(LoadFile("Test.htm"))

Function LoadFile(m_Root)

Dim Filename,fso,hndFile

Filename = m_Root

If Right(Filename, 1)<>"/" And Right(Filename, 1)<>"\" Then Filename = Filename & "/"

Filename = Server.MapPath(Filename & m_FileName)

Set fso = CreateObject("Scripting.FileSystemObject")

If Not fso.FileExists(Filename) Then ShowError("模板文件" & m_FileName & "不存在!")

set hndFile = fso.OpenTextFile(Filename)

LoadFile = hndFile.ReadAll

Set hndFile = Nothing

Set fso = Nothing

If LoadFile = "" Then ShowError("不能读取模板文件" & m_FileName & "或文件为空!")

End Function

时间： 2024-11-10 14:15:02

ASP使用FSO读取模板的代码的相关文章

asp.net C#读取中文字符代码

asp教程.net c#读取中文字符代码 private static void fnfileprocess() { streamreader reader = new streamreader(@"d:1500.txt", encoding.getencoding("gb2312")); streamwriter writeren = new streamwriter(@"d:english.txt", false, encoding.utf8

asp.net C# 读取Excel数据代码

asp教程.net  c# 读取excel数据代码 public dataset exceltods(string path)     {        string con = "provider=microsoft.jet.oledb.4.0;data source="+"e:\collegemis\upexcel\" + fileupload1.filename+";extended properties='excel 8.0;imex=1'&quo

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  

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  

asp.net sqlserver2005数据库存入和读取二进制文件数据代码 该如何实现呢

问题描述 asp.netsqlserver2005数据库存入和读取二进制文件数据代码文件包括pdf文档,.Doc.Excel.Zip.Rar等.该如何实现呢QQ:282617226并提供在线阅读和下载功能. 解决方案 解决方案二:给个e-mail发个源码给你,我公司上不成qq解决方案三:weidazhe@163.com

asp.net FileStream的读取和写入代码

asp教程.net filestream的读取和写入代码 using system; using system.collections.generic; using system.componentmodel; using system.data; using system.drawing; using system.linq; using system.text; using system.windows.forms; using system.io;//注意,必不可少 namespace w

。。。。求asp与数据库之间读取数据的代码，小弟由于公司需求，学习哈asp

问题描述 求asp与数据库之间读取数据的代码,小弟由于公司需求,学习哈asp,有经验的可以谈下asp 解决方案 解决方案二:第一,去问你们同事第二,看帮会组第三,google你有哪个做不到吗解决方案三:引用1楼bdmh的回复: 第一,去问你们同事第二,看帮会组第三,google你有哪个做不到吗 我只是想快一点完成解决方案四: 解决方案五:引用2楼dupengnet的回复: 引用1楼bdmh的回复:第一,去问你们同事第二,看帮会组第三,google你有哪个做不到吗我只是想快一点完成 拿过去直接用还

功能不错的asp模板类代码附下载第1/4页_应用技巧

此类支持循环替换,支持嵌套循环替换,支持多模板.  类的代码就不贴不来啰嗦了,在后面有下载,只贴出demo的代码.  一.模板只有一个循环块  模板文件主要代码  <head>  <meta http-equiv="Content-Type" content="text/html; charset=utf-8" />  <title>{myname}模板-{webName}</title>  </head>

asp FSO在线压缩解压缩代码

asp FSO在线压缩解压缩代码 <% ''===================== ''FSO在线压缩解压缩 '自动生成HYTop.mdb ''===================== Sub AddToMdb(thePath)  On Error Resume Next  Dim Rs, Conn, Stream, ConnStr, adoCatalog, FsoX  Set FsoX = CreateObject("Scripting.FileSystemObject"