<% Function getFileContents(strIncludeFile) '函数:读取包含文件内容 Dim objFSO,objText,strPage Set objFSO = Server.CreateObject("Scripting.FileSystemObject") '调用FSO对象 Set objText = objFSO.OpenTextFile(Server.MapPath(strIncludeFile)) getFileContents = objText.ReadAll objText.Close Set objText = Nothing Set objFSO = Nothing End Function