<%@ CodePage=65001 Language="VBScript"%> <% Option Explicit Response.Expires=-1 Response.CharSet = "utf-8" '2017.06.08 신규홈페이지로 리다이렉트 response.redirect "http://lib.rda.go.kr/main.do" %> <% Dim query, addLink, pCode, pageCode, pageCodeSub Dim rowsDict, colsDict, preAtc, nextAtc, fileInfo Dim bdInfo, getData, postData, bcode Dim articleid Set getData = RequestParameter() 'pCode = bdInfo("pageCode") pageCode = "7" If getData("bcode") = 6 Or getData("bcode") = 7 Then pageCodeSub = 5 Else pageCodeSub = getData("bcode") End if articleid = getData("articleid") IF NOT IsNumeric(articleid) Then response.redirect "../new/error/404error.htm" response.end END IF IF NOT IsNumeric(getData("bcode")) Then response.redirect "../new/error/404error.htm" response.end END IF '##게시판 정보 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 End If '기존 방식 ../inc/lib_board_FC.asp에 세팅되어 있는 페이코드를 임시 변경 처리 '리뉴얼 중에 해당 코드를 변경 할 수 없음. addLink = "bcode="&getData("bcode")&"&pageNo="&getData("pageNo")&_ "&findCol="&getData("findCol")&"&findStr="&getData("findStr") query = "SELECT WNAME, TITLE, RPIDX, DEPTH, "&_ " CONTENT, RCNT, REGDATE, HTMLYN "&_ " FROM LIB_BOARD_T "&_ " WHERE ARTICLEID = '"&articleid&"'" 'Response.Write "
query=" & query 'Response.end Set rowsDict = getList(query) Set colsDict = rowsDict.item(0) '## 이전글 Set preAtc = getPreArticle( articleid ) '## 다음글 Set nextAtc = getNextArticle( articleid ) '##조회수 업데이트 Call UpdateReadCount(articleid) '##파일 정보 Set fileInfo = getFileInfo(getData("bcode"), articleid) %> <%=bdInfo("BOARDNAME")%> - 농업과학도서관

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

게시판보기
<% '### 이모저모 보기는 제목을 출력 하지 않음. %> <% If PageCodeSub <> 5 then%> <% End If %> <% '######################################################################################################## ' 이미지 사이즈 픽스 : 화면상에 보여줄 수 있는 이미지 폭의 최대치는 590px이며 ' 컨텐츠(내용)상에 뿌려지는 이미지의 크기를 구할 수 없음으로 이미지 사이즈를 580px에 고정 한다. '######################################################################################################## %>
Q&A
제목 <%=colsDict("TITLE")%>
작성자 <%=colsDict("WNAME")%> 등록일 <%=Left(colsDict("REGDATE"), 10)%>
첨부파일 <%=fileInfo("FILENM")%> 조회수 <%=colsDict("RCNT")%>
<%=ContentReplace(colsDict("CONTENT"), colsDict("HTMLYN"))%>
이전글, 다음글
이전글 &<%=addLink%>"><%=preAtc("TITLE")%>
다음글 &<%=addLink%>"><%=nextAtc("TITLE")%>
<% Set bdInfo = Nothing Set getData = Nothing Set rowsDict = Nothing Set colsDict = Nothing Set preAtc = Nothing Set nextAtc = Nothing %>