<%
Dim objFSO, objOpenedFile, Filepath, sRead
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Const FileName = "\readme.txt"
'파일시스템 객체를 생성한다
Set objFSO = CreateObject("Scripting.FileSystemObject")
Filepath = Server.MapPath(Filename)
'파일이 존재하면
If objFSO.FileExists(Filepath) Then
'함수원형 object.OpenTextFile(filename[, iomode[, create[, format]]])
'TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0
'-2 시스템 기본값을 이용하여 파일을 연다, -1 유니코드 형식으로 파일을 연다, 0 ASCII 형식으로 파일을 연다
Set objOpenedFile = objFSO.OpenTextFile(Filepath, ForReading, False, TristateUseDefault)
sRead = objOpenedFile.ReadAll 'ReadAll 메서드는 열린 파일 전체를 읽는다
'sRead = objOpenedFile.ReadLine 'ReadLine 메서드는 줄 바꿈 문자는 제외하고 줄 전체를 읽는다
'sRead = objOpenedFile.Read(4) 'Read 메서드는 열린 파일의 현재 위치에서 지정된 수의 문자를 읽는다
Response.write "<pre>" & sRead & "</pre>"
objOpenedFile.Close
Set objOpenedFile = nothing
Else
Response.Write "파일명 " & Filename & " 파일이 없습니다."
End If
Set objFSO = nothing
%>