영삼넷IT 강국 = 김영삼 블로그에 오신걸 환영합니다.

<%
  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
%>

<%

function weekFunc(today)
 
     '//-------1년 52주중 오늘은 몇번째 주인가?--------------------//
     wcountYear = datepart("ww", today)

    '날짜의 유효성 검사
     if isDate(today) = false then
     weekFunc = "유효한 날짜가 아닙니다."
     end if

    '//-------이번달중 오늘은 몇번째 주인가?----------------------//
    '이번달의 첫번째일
    firstdate = year(today) & "-" & month(today) & "-01"
    wcountMonth = datepart("ww", today) - datepart("ww", firstdate) + 1

     '리턴값
     weekFunc = "오늘은 1년중 " & wcountYear & "주 째이며 이번달 중 " & wcountMonth & "주 째입니다. "

end function

Response.Write weekFunc(date())

%>

<%

 '올해
 yearTemp  = year(date)

 '이번달
 monthTemp = month(date)

 '오늘
 dayTemp  = day(date)

 '오늘날짜
 today = date()

 '오늘날짜시간분초
 iday = now()

 '오늘은 무슨요일인가?
 wday = weekday(now())
 select case wday
 case "1" wday = "일요일"
 case "2" wday = "월요일"
 case "3" wday = "화요일"
 case "4" wday = "수요일"
 case "5" wday = "목요일"
 case "6" wday = "금요일"
 case "7" wday = "토요일"
 end select

 Response.Write "올해:" & yearTemp & "<br>"
 Response.Write "이번달:" & monthTemp &  "<br>"
 Response.Write "오늘:" & dayTemp & "<br>"
 Response.Write "오늘날짜:" & today & "<br>"
 Response.Write "오늘날짜시간분초:" & iday & "<br>"
 Response.Write "무슨요일:" & wday & "<br>"

%>