繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP > ASP使用FSO读取模板的代码
- ASP
- ASP 3.0高级编程（二十七）
- ASP 3.0高级编程（二十八）
- ASP 3.0高级编程（二十九）
- ASP 3.0高级编程（三十）
- ASP中时间函数的使用(一)
- ASP中时间函数的使用(二)
- ASP中时间函数的使用(三)
- .NET之ASP WebApplication快速入门(1)
- .NET之ASP WebApplication快速入门(2)
- .NET之ASP WebApplication快速入门(3)
- .NET之ASP WebApplication快速入门(4)
- .NET之ASP WebApplication快速入门(5)
- asp.NET特写
- ASP 3.0高级编程（七）
- ASP 3.0高级编程（八）
- ASP.NET 入门的五个步骤
- ASP 组件指南
- XML 数据的编码方式
- ASP 3.0高级编程（九）
- ASP 3.0高级编程（十）
ASP使用FSO读取模板的代码
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-09-13 浏览: 197 ::
收藏到网摘: n/a
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
评论 (0) All
