ASP使用FSO读取模板的代码

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

调用调用示例：

1. Response.Write(LoadFile("Test.htm"))  
2.  
3. Function LoadFile(m_Root)  
4. Dim Filename,fso,hndFile  
5. Filename = m_Root  
6. If Right(Filename, 1)<>"/" And Right(Filename, 1)<>"\" Then Filename = Filename & "/"  
7. Filename = Server.MapPath(Filename & m_FileName)  
8. Set fso = CreateObject("Scripting.FileSystemObject")  
9. If Not fso.FileExists(Filename) Then ShowError("模板文件" & m_FileName & "不存在!")  
10. set hndFile = fso.OpenTextFile(Filename)  
11. LoadFile = hndFile.ReadAll  
12. Set hndFile = Nothing  
13. Set fso = Nothing  
14. If LoadFile = "" Then ShowError("不能读取模板文件" & m_FileName & "或文件为空!")  
15. End Function