ASP 게시판 - 조은보드 질문답변 [오랜만에 질문드립니다....새로고침시]

중첩되는 질문이 없는지 확인하신 후 오류발생 페이지의 URL을 기입하여 질문해주세요. 그리고 질문에 대해 해결된 사항은 답변을 달아주시면 다른 회원님에게 좋은 자료가 됩니다.

제 목 오랜만에 질문드립니다....새로고침시
작성자 등록일 2012-02-14/11:58 조회수 905

회원님의 웹사이트는 프레임으로 구성이 되어있는 관계로 새로고침시 메인화면으로 갈 수 밖에 없는 구조입니다.
과거 Explorer 6.0 까지는 새로고침시 현재페이지를 유지 할 수 있는 Tip이 있었으나 현재로서는 적용이 되지 않습니다. 요즘에는 프레임구조에서 새로고침의 제약이 있어 많이 사용하지 않는 구성입니다.

아래는 과거에 사용했던 방식의 소스입니다. 프레임을 구성하는 페이지(index.asp) 상단에 적용하시면 됩니다.

그냥 참고용도로만 사용하세요.

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

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

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

Set f = Nothing
Set fso = Nothing
end function

<html>
<head>
<title>Sample Site</title>
</head>

1. 회원등급: 마스터
2. 작성글: 52개
3. 작성댓글수: 1,288개
4. 로그인: 4,495회
5. 접속상태: 로그인
6. 가입일: 2006-05-20
국내 1호 조은보드 마스터 자격(?)을 보유한 운영자입니다.
최대한 상세히 정보를 알려 주시면 답변시 많은 도움이 됩니다.
오늘도 파이팅!!

로그인 하시면 댓글을 남길 수 있습니다.
타인의 명예를 훼손 또는 비방, 개인정보 유출 및 광고성 게시물을 삼가해 주세요.

최일섭(2012.02.15/12:30:01) 답변
친절한 답변에 항상 감사드립니다.

이전글 ▲ :: 오랜만에 질문드립니다....새로고침시

다음글 ▼ :: 조은보드 셋업되서 글쓰기 하면..Processing...만 나옵니다.