<%@ CodePage=65001 Language="VBScript"%> <% Option Explicit Response.Expires=-1 Response.CharSet = "utf-8" %> <% If InStr(Request.ServerVariables("HTTP_REFERER"), "lib_board_R.asp") = 0 Then response.write alertAndBack("잘못된 접근입니다.") End If '## get parameter 특수문자 체크 Call CheckQueryString() Dim addLink, findLink, query, pageCode Dim bdInfo, getData, rowsDict, colsDict, fileInfo, bcode '## request.QueryString parameter Set getData = GetRequest() '##게시판 정보 Set bdInfo = getBdInfo( getData("bcode") ) bcode = getData("bcode") 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 '##플래쉬 현제페이지 표시용 변수 pageCode = bdInfo("pageCode") '## 검색용 추가링크 findLink = "findCol="&getData("findCol")&"&findStr="&getData("findStr") '## 기본 링크 + 추가 링크 addLink = "bcode="&bdInfo("bcode")&"&pageNo="&getData("pageNo")&"&"&findLink query = "SELECT WNAME, TITLE, RPIDX, DEPTH, "&_ " CONTENT, RCNT, REGDATE, HTMLYN "&_ " FROM LIB_BOARD_T "&_ " WHERE ARTICLEID = "&getData("articleid") Set rowsDict = getList(query) Set colsDict = rowsDict.item(0) Set rowsDict = Nothing '## 파일 정보 Set fileInfo = getFileInfo(getData("bcode"), getData("articleid")) %> ::농업과학도서관에 오신걸 환영합니다.

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

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

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

<% Set colsDict = Nothing Set fileInfo = Nothing Set getData = Nothing Set bdInfo = Nothing %>