ASP使用FSO读取模板的代码
ASP使用FSO读取模板的代码
发布时间:2016-12-29 来源:查字典编辑
摘要:m_Root是文件名,可以使用相对路径。调用调用示例:Response.Write(LoadFile("Test.htm"))Functio...

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

调用调用示例:

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

FunctionLoadFile(m_Root)

DimFilename,fso,hndFile

Filename=m_Root

IfRight(Filename,1)<>"/"AndRight(Filename,1)<>""ThenFilename=Filename&"/"

Filename=Server.MapPath(Filename&m_FileName)

Setfso=CreateObject("Scripting.FileSystemObject")

IfNotfso.FileExists(Filename)ThenShowError("模板文件"&m_FileName&"不存在!")

sethndFile=fso.OpenTextFile(Filename)

LoadFile=hndFile.ReadAll

SethndFile=Nothing

Setfso=Nothing

IfLoadFile=""ThenShowError("不能读取模板文件"&m_FileName&"或文件为空!")

EndFunction

推荐文章
猜你喜欢
附近的人在看
推荐阅读
拓展阅读
相关阅读
网友关注
最新ASP教程学习
热门ASP教程学习
编程开发子分类