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