<% ' ################################################## ' -------------------------------------------------- ' 引数： ' readFilename：ファイル名 ' ################################################## Function IncludeText(readFilename) Set objFile = Server.CreateObject("Scripting.FileSystemObject") sFilename = Server.MapPath(readFilename) '<--- 表示するファイル名を指定 Set InStream = objFile.OpenTextFile(sFilename, 1, False) buf = InStream.ReadAll '<--- ReadAll メソッドで格納 Response.Write buf End Function %> <% IncludeText("../include/header01.txt") %>

PHOTO BY AnimalsVoice <% IncludeText("../include/body_footer.txt") %>