아래의 코드를 프레임셋으로 나눈 페이지에 넣으면 새로고침(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