<%@ CodePage=65001 Language="VBScript"%> <% 'Option Explicit Response.Expires = -1 response.charset = "utf-8" %> <% '## get parameter 특수문자 체크 Call CheckQueryString() Dim addLink, findLink, pageCode Dim bdInfo, getData, bcode '## request.QueryString parameter Set getData = RequestParameter() '##게시판 정보 Set bdInfo = getBdInfo( getData("bcode") ) bcode = getData("bcode") '### 플래시 페이지 코드 PageCode = 7 PageCodeSub = 1 If bcode = 6 Or bcode = 7 Then pageCodeSub = bcode - 1 Else PageCodeSub = bcode End if '=================================================== ' 2012.08.16 : 현재 글쓰기는 관리자에서만 가능 '=================================================== response.write alertAndGo("잘못된 접근입니다.", "../index.asp") response.write metaRefresh("잘못된 접근입니다..", "../index.asp") response.End If bcode = "3" Then If Not session("is_login") Then response.write alertAndGo("로그인 후 이용하십시요.", "../member/lib_member_login.asp") response.write metaRefresh("로그인 후 이용하십시요.", "../member/lib_member_login.asp") response.End End If Else 'response.write alertAndGo("잘못된 접근입니다.", "../index.asp") 'response.write metaRefresh("잘못된 접근입니다..", "../index.asp") 'response.End End If '## 검색용 추가링크 findLink = "findCol="&getData("findCol")&"&findStr="&getData("findStr") '## 기본 링크 + 추가 링크 addLink = "bcode="&bdInfo("bcode")&"&pageNo="&getData("pageNo")&"&"&findLink %> ::농업과학도서관에 오신걸 환영합니다.

" alt="<%=bdInfo("BOARDNAME")%>" />

" /> " />
질문작성하기
Q&A
제목
작성자 " />
  • 취소

담당자: 기획조정관실 지식정보화담당관실 이유정 063) 238 - 0534 갱신주기: 변경시