欢迎您访问程序员文章站本站旨在为大家提供分享程序员计算机编程知识!
您现在的位置是: 首页  >  IT编程

ASP使用FSO读取模板的代码

程序员文章站 2023-01-03 21:31:16
  m_root是文件名,可以使用相对路径。 调用调用示例: response.write(loadfile("test.htm")) function ...
 
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