<%@ CodePage=65001 Language="VBScript"%> <% Option Explicit Response.Expires=-1 Response.CharSet = "utf-8" %> <% 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") '=============================================================== ' 2012.08.16 : 답변형 게시판은 현재 사용하고 있지 않음. ' 답변형 게시판 처리전 메인으로 페이지 Redirect '=============================================================== 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 '##플래쉬 현제페이지 표시용 변수 pageCode = bdInfo("pageCode") '## 검색용 추가링크 findLink = "findCol="&getData("findCol")&"&findStr="&getData("findStr") '## 기본 링크 + 추가 링크 addLink = "bcode="&bdInfo("bcode")&"&pageNo="&getData("pageNo")&"&"&findLink query = "SELECT TITLE, CONTENT, RPIDX, DEPTH "&_ " FROM LIB_BOARD_T "&_ " WHERE ARTICLEID = "&getData("articleid") Set rowsDict = getList(query) Set colsDict = rowsDict.item(0) %> <%=bdInfo("BOARDNAME")%> - 농업과학도서관

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

" /> " /> " />
질문작성하기
Q&A
제목 " />
작성자
첨부파일
  • 취소
<% Set colsDict = Nothing Set fileInfo = Nothing Set getData = Nothing Set bdInfo = Nothing %>