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  

上一个：ASP中JavaScript处理复杂表单的生成与验证第1/3页
下一个：实例分析之用ASP编程实现网络内容快速查找的代码