<%@ 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 list, query, findQuery, pCdoe, pageCode, pageCodeSub
Dim rowsDict, colsDict, table
Dim i, totalCount, pagePerRow, pageNo, paging, findLink, addLink, bocde, notice
Dim bdInfo, getData, dispNo, depth, findQueryStr
'##테이블명 설정
table = "LIB_BOARD_T"
'## get 방식으로 넘어온 파라메터를 담고 있음 use : getData("paramName")
Set getData = GetRequest()
articleid = getData("articleid")
IF NOT IsNumeric(articleid) Then
response.redirect "../new/error/404error.htm"
response.end
END If
'IF NOT IsNumeric(getData("findStr")) 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 = bdInfo("bcode")
'====================================================
' 2012.08.16 : 현재 사용하지 않는 게시판
'====================================================
If bcode = "3" Then
response.write alertAndGo("잘못된 접근입니다.", "../index.asp")
response.write metaRefresh("잘못된 접근입니다..", "../index.asp")
response.End
' 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
'##플래쉬 현제페이지 표시용 변수
pageCode = 7
pageCodeSub = bcode
'If bcode = 4 Then
' pageCodeSub = 5
'End If
'Response.Write " pagecode=" & pageCode
'Response.Write " sub=" & getdata("bcode")
'기존 방식 ../inc/lib_board_FC.asp에 세팅되어 있는 페이코드를 임시 변경 처리
'리뉴얼 중에 해당 코드를 변경 할 수 없음.
'##페이징 관련 변수들 정의
pagePerRow = 10
pageNo = getData("pageNo")
If pageNo = "" Then
pageNo = "1"
End If
'##검색용 쿼리 Scripting.Dictionary
Set findQuery = getFindQuery(table, getData("findStr"), getData("findCol") )
'##전체 게시물수 가져오기
totalCount = getTotalCount("LIB_BOARD_T", findQuery("WHERE"), bdInfo("bcode"))
'Response.Write "pageno=" & pageno
'Response.Write " "
'Response.Write pagePerRow * (pageNo-1)
'##리스팅 쿼리
query = "SELECT TOP "&pagePerRow&" ARTICLEID, BOARDID, WNAME, WPWD, "&_
" TITLE, RPIDX, DEPTH, CONTENT, "&_
" RCNT, DELETEYN, REGDATE, "&_
" (SELECT TOP 1 FILEID "&_
" FROM LIB_FILES_T "&_
" WHERE ARTICLEID = A.ARTICLEID "&_
" AND BOARDID = "& bdInfo("bcode") &") AS FILEID "&_
" FROM "& table &" A "&_
" WHERE ARTICLEID NOT IN( SELECT TOP "&( pagePerRow * (pageNo-1) )&" ARTICLEID "&_
" FROM "& table &_
" WHERE BOARDID = "& bdInfo("bcode") & findQuery("AND") &_
" ORDER BY RPIDX DESC, DEPTH ASC ) "&_
" AND BOARDID = "& bdInfo("bcode") & findQuery("AND") &_
" ORDER BY RPIDX DESC, DEPTH ASC"
'Response.Write query
'##게시물 가져오기 Scripting.Dictonary
Set rowsDict = getList(query)
'## 검색용 추가링크
findLink = "bcode="&bdInfo("bcode")&"&findCol="&getData("findCol")&"&findStr="&CheckWord(getData("findStr"))
'## 기본 링크 + 추가 링크
addLink = "bcode="&bdInfo("bcode")&"&pageNo="&pageNo&"&findCol="&getData("findCol")&"&findStr="&CheckWord(getData("findStr"))
'## 목록 페이징
'## totalCount:전체 게시물수, pageNo:현제페이지번호, pagePerNum:한화면당출력페이지갯수
'## pagePerRow:페이지당 게시물수, pageName:링크 페이지명, addLink:추가 링크
Set paging = getPaging(totalCount, pageNo, 10, pagePerRow, findLink)
'## top_line_flag 검색 공지사항으로 지정된 게시물 가져오기
Set notice = NoticeFlag(bcode)
%>
<%=bdInfo("BOARDNAME")%> - 농업과학도서관
