ASP使用FSO读取模板的代码
2018-09-06 10:42
阅读：643
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者必看
评论
亲，登录后才可以留言！