아래의 코드를 프레임셋으로 나눈 페이지에 넣으면 새로고침(F5)를 하더라도 첫 페이지로 이동하지 않습니다.



Dim LastModified


LastModified = getGmt(DateAdd("h", -9, ShowFileAccessInfo(Server.MapPath("/test/test.asp"))))
Response.AddHeader "Last-Modified", "" &LastModified& ""
Response.AddHeader "ETag", "" &LastModified& ""


'===================================================================
'        func        : getGmt(sDate)
'        param        : sDate - 파일수정시간
'        memo        : 시간을 받아 GMT 포맷으로 리턴
'===================================================================
function getGmt(sDate)
       dim weekT(6), monT(11)
       weekT(0) = "Sun"
       weekT(1) = "Mon"
       weekT(2) = "The"
       weekT(3) = "Wed"
       weekT(4) = "Thu"
       weekT(5) = "Fri"
       weekT(6) = "Sat"


       monT(0) = "Jan"
       monT(1) = "Feb"
       monT(2) = "Mar"
       monT(3) = "Apr"
       monT(4) = "May"
       monT(5) = "Jun"
       monT(6) = "Jul"
       monT(7) = "Aug"
       monT(8) = "Sep"
       monT(9) = "Oct"
       monT(10) = "Nov"
       monT(11) = "Dec"


       getGmt = weekT(DatePart("w", sDate)-1) & " " &_
                        day(sDate)& " " &_
                        monT(DatePart("m", sDate)-1)& " " &_
                        year(sDate)& " " &_
                        mid(sDate, InstrRev(sDate, " ")) & " GMT"
end function


'===================================================================
'        func        : ShowFileAccessInfo(filespec)
'        param        : filespec - 파일
'        memo        : 파일의 마지막 수정 시간을 리턴
'===================================================================
function ShowFileAccessInfo(filespec)
       Dim fso, f


       Set fso = CreateObject("Scripting.FileSystemObject")
       Set f = fso.GetFile(filespec)
       ShowFileAccessInfo = f.DateLastModified
end function

2009/08/07 21:38 2009/08/07 21:38

Trackback Address :: https://youngsam.net/trackback/680